Action du Bouton

Bonjour

J'ai créé un bouton , mais le cde que je rentre n' est pas bon.

Je veux tout simplement ouvrir un dossier avec ce bouton.

Private Sub Html_Click()
workbooks.Open(ActiveWorkbook.Path & 'E:\Report\Tutoriel\Html')
End Sub

Et même celui-ci

Shell "c:\windows\explorer.exe c:\toto", 1 

Merci

Bonsoir à tous,

Bonsoir acymospc,

Si tu indiques le répertoire de ton fichier, il ne faut pas mettre le nom du disque dans le chemin puisqu'il y figure déjà.

Essaie donc comme ceci :

Private Sub Html_Click()
workbooks.Open(ActiveWorkbook.Path & "\Report\Tutoriel\Html")
End Sub

Cordialement.

Bonsoir Papou-net,

Avec ta ligne de code

cela donne une erreur 1004

    Private Sub Html_Click()
    workbooks.Open(ActiveWorkbook.Path & "\Report\Tutoriel\Html")
    End Sub

et le chemin n'est pas bon cela donne E\Report\Report\Tutoriel\Html

j'ai essayé avec

    workbooks.Open(ActiveWorkbook.Path & "\Tutoriel\Html")

Et idem car cela veut ouvrir un fichier Html.xlsx

et avec cette ligne

 workbooks.Open(ActiveWorkbook.Path & "\Tutoriel\Html\")

même erreur 1004 mais je dois corriger le fait que le dossier est en lecture seule.

Merci

Bonsoir à tous,

Bonsoir acymospc,

Je reviens sur ton sujet car je crois avoir enfin compris ta demande.

Je te suggère donc de tester avec ce code :

With Application.FileDialog(msoFileDialogFilePicker)
  .InitialFileName = ActiveWorkbook.Path & "\TonChemin\TonFichier"
  .Show
  If .SelectedItems.Count = 0 Then Exit Sub
  Set wb = Workbooks.Open(.SelectedItems(1))
End With

Il te suffit de remplacer TonChemin par le sous-répertoire voulu et (éventuellement) TonFichier par le nom du fichier désiré.

Cordialement.

Bonjour à tous

Bonjour Papou-net,

Tout d'abord BONNE ET HEUREUSE ANNÉE 2013 à tous et toutes.

Longue vie pour ce site et forum.

Papou-net

Ton code fonctionne, mais cela me redirige dans mes Documents.

Quelque soit le chemin que je rentre.

Merci

Cordialement