Ouvrir un dossier ou répertoire avec macro Excel 2013

Bonjour

J ai une macro

Sub Ouvrir_répertoire_yyy()

ChDir "D:\01 - yyy"

Application.GetOpenFilename

End Sub

or lorsque je l’exécute le dossier 01 - yyy sur le disque D ne s'ouvre pas et à la place s'ouvre l'ouverture de "mes documents"

Cela fait des heures que j'essais de trouver pourquoi mais je ne comprends pas

Peut être aurez vous une solution

PS je recherche une macro simple pour ouvrir un dossier (peux importe lequel) se trouvant sur la disque D

merci

Bonjour

Essaie ce code :

Sub Ouvrir_répertoire_yyy()

Classeur = "D:\01 - yyy"

Workbooks.Open Filename:=Classeur

End Sub

Avec Excel 2003 cela devrait marcher.

Merci mais il y a un message d'erreur

"erreur d'exécution '1004':

Excel ne peut pas accéder à '01 - yyy'. Le document est peut-être en lecture seule ou chiffré."

lorsque je clique sur débogage la phrase

"Workbooks.Open Filename:=Classeur" s'affiche en jaune

Je n'ai rien mis en lecture seule ou chiffré, ou alors comment doit je retirer ce blocage?

Merci

Alors essaie en mettant :

Classeur = "D:\01 - yyy.xls"

ou, selon le cas :

Classeur = "D:\01 - yyy.xlsx"

sans oublier le point.

Bye !

bonjour

Merci mais ce n'est pas un fichier excel que je veux ouvrir mais un dossier ou répertoire suivant comment vous le nommez

je veux juste l'ouvrir

je vous ai mis une copie écran du dossier en question à ouvrir

OK

Alors tente cela :

Sub Ouvrir_répertoire_yyy()

    ChDir "D:\01 - yyy"
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Sélectionner votre répertoire"
        .Filters.Clear
        .AllowMultiSelect = False
         If .Show = 1 Then
            chemin = .Selected.Item(1)
        End If
    End With
End Sub

Et dis-moi le résultat....

Bye !