Bonjour,
voici un code qui permet de sélectionner un dossier, et donc de récupérer un chemin complet.
J'aimerai la modifier pour que lorsqu'il m'affiche la fenêtre, j'ai directement le dossier où je trouve le fichier qui lance la macro ( avec ActiveWorkbook.Path?)
je vous remercie par avance
Sub LoadPath_fr()
Dim ObjShell As Object
Dim ObjFolder As Object
Dim chemin As String
On Error GoTo ErrorHandler
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, " ", &H201&)
If Not ObjFolder Is Nothing Then
chemin = ObjFolder.Items.Item.Path
If Right(chemin, 1) <> "\" Then chemin = chemin & "\"
config.Range("C16") = chemin
Else: Exit Sub
End If
Set ObjShell = Nothing: Set ObjFolder = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbLf & Err.Description
End Sub