Macro Ouvrir un fichier s'il existe dans le dossier

[KTM]

salut chers tous je voudrais une macro qui ouvre un fichier donné A s'il existe dans le Dossier si non envoyer un message et quitter la macro.Merci

 

[Robert]

Bonjour KTM,

Pas très explicite !... Peut-être comme ça :

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

 

[job75]

Bonjour KTM, Robert,

Il peut y avoir plusieurs fichiers A dans un même dossier : A.xls - A.xlsx - A.xlsm - A.pdf etc...

Pour les ouvrir tous :

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

A+

 

[KTM]

Merci à vous tous
C'est simplement impeccable