Option Explicit
Public Function DialogueFichiers() As String
DialogueFichiers = ""
Dim fd As FileDialog
'Crée une boite de dialogue de sélection de fichiers :
Set fd = Application.FileDialog(msoFileDialogFilePicker)
dialog_show:
fd.Show
'limite la sélection à un fichier
If fd.SelectedItems.Count > 1 Then GoTo dialog_show
DialogueFichiers = fd.SelectedItems(1)
Set fd = Nothing
End Function
Sub recup_file()
Dim toto As String
toto = DialogueFichiers
MsgBox toto
End Sub