Macro Ouvrir un fichier s'il existe dans le dossier

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

Sub Ouvrir()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
fichier = Dir(chemin & "A.*") 'à adapter
If fichier = "" Then MsgBox "Pas trouvé de fichier 'A'...": Exit Sub
While fichier <> ""
    ThisWorkbook.FollowHyperlink chemin & fichier
    fichier = Dir
Wend
End Sub