Bonjour
voici une une petite fonction que j'ai en stock pour demander à l'utilisateur de choisir le dossier de destination
Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choisir le dossier de destination"
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function
et pour l'appel de la fonction :
Sub test()
chemin = ChoixDossier
MsgBox chemin
End Sub
Fred