Sub OuvrirFichier()
Dim Fichier As String, Chemin As String
Chemin = "g:\Users\PC_PAPA\Documents\_SYLVAIN\Technique\Excel" ' Mettre le chemin désiré
ChDrive "G"
ChDir Chemin
Fichier = Application.GetOpenFilename()
If Fichier = "Faux" Then Exit Sub
Workbooks.Open Fichier
End Sub