Bonjour,Bonsoir à tous
Je cherche une ligne de code qui permet de selectionner un autre emplacement exemple le disque D: merci d'avance pour les solutions
Sub SelectFolder()
Dim sFolder$
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then sFolder = .SelectedItems(1)
End With
If sFolder <> "" Then MsgBox "Vous avez choisi : " & sFolder
End Sub