Aide utilisation fonction ChDir

Bonjour à tous.
J'ai récemment créé une macro sous excel et, j'utilise la "commande" ChDir dedans, pour indiquer la provenance d'un fichier.

Seulement, le chemin indiqué est amené à changer souvent car j'utilise le document à plusieurs endroits différents.

Je voudrais donc savoir s'il était possible, à la place de changer à chaque fois le chemin d'accès du fichier dans ma macro, de trouver quelque chose pour éviter cela.

Merci

bonjour tritriyaya,

une possibilité est d'utiliser la boite de dialog FileDialogFolderPicker

Code:

---

1 2 3 4

Sub test() répertoire = ChoixRépertoire If répertoire = Empty Then Exit Sub End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Function ChoixRépertoire() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .AllowMultiSelect = False .Show 'afficher la boite de dialogue On Error Resume Next ChoixRépertoire = .SelectedItems(1) End With End Function

---