Discussion :

[grence16]

Bonjour, comment fait-on en VBA pour ouvrir l’explorateur et afficher dans une cellule le chemin du répertoire choisi via l'explorateur?
Merci pour votre réponse

Voici ce que j'ai fait

Code :

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

1
2
3
4
5
Sub GetDirectoryPath(sOut As String)  '
Dim rgOut As Range
 Set rgOut = CoordRg(ThisWorkbook, sOut)
 rgOut = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End Sub

[Al__22]

Ouvrir explorer

Ensuite pour mettre le chemin il suffit de faire un truc du genre

Code :

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

Sheets("Feuille1.xls").Range("A1").value = chemin