Sub Macro1()
Dim CL As Workbook 'déclare la variable CL (CLasseur)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim CAV As Variant 'déclare la variable CAV (Classeur À Ouvrir)
'CA = "\\serveur\PUB\poubelle\"
CA = "ici tu mets le chemin d'accès complet en terminant par le caractère \" 'définit le chemin d'accès CA (à adapter)
CAV = Application.InputBox("Nom du classeur à ouvrir complet avec extension", "OUVRIR", Type:=2) 'définit le classeur à ouvrir CAV
If CAV = False Or CAV = "" Then Exit Sub 'si bouton [Annuer] ou non renseigné, sort de la procédure
On Error Resume Next 'en cas d'erreur passe à la ligne suivante
Set CL = Workbooks.Open(CA & CAV) 'définit le classeur CL
End Sub