Sub Test_CHEMIN()
Dim Classeur, Chemin$
Classeur = Application.GetOpenFilename("Fichiers XL,*.xl?", , "Sélectionnez le classeur source,svp")
If Classeur <> False Then
MsgBox Classeur
Chemin = Left(Classeur, InStrRev(Classeur, "\"))
MsgBox Chemin
Else
MsgBox "Vous n'avez pas sélectionné de fichier!", vbCritical, "ERREUR"
End If
End Sub