Discussion :

[tritriyaya]

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

[sabzzz]

bonjour tritriyaya,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test()
répertoire = ChoixRépertoire
If répertoire = Empty Then Exit Sub
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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