Sub Importe_Libellé()
Const Repretoire = "P:\DEP_TEC_ELECTRICITE\SPCC\02_Etudes_et_Projets\ 05_Automates_M1\"
Dim NomFichier As String
NomFichier = Sheets("Libelle").Range("A1")
Sheets("Libelle").ClearContents
If Dir(repertoire & NomFichier, vbDirectory) <> "" Then
Application.DisplayAlerts = False
Dim x As Integer
Dim G As Integer
'Ouverture du fichier Libelle_objet_M1.xls
Workbooks.Open Filename:=repertoire & NomFichier
'Suite de la procédure
Else
MsgBox "fichier: " & NomFichier & " introuvable!", vbExclamation, "Importe_Libellé"
End If
End Sub