Message si fichier non trouvé

[gourdin]

Bonjour,

Une macro d'un fichier déclenche l'ouverture d'un autre fichier et excécute des actions dans cet autre fichier.

Je souhaite qu'apparaisse un message si le fichier n'a pas été trouvé par la macro et que la macro s'arrête.

Merci

 

[Pierrot93]

Re : Message si fichier non trouvé

Bonjour,

regarde peut être ceci :

Dim monfichier As String
monfichier = "C:\MesDocs\Test\test.xls"
If Dir(monfichier, vbDirectory) = "" Then
    MsgBox "fichier non trouvé..."
    Exit Sub
End If

bonne journée
@+

 

[gourdin]

Re : Message si fichier non trouvé

Merci pour le code

J'aurais souhaité "l'intégrer" avec mon code existant mais je n'y arrive pas :

Code existant :

ChDir ThisWorkbook.Path
Workbooks.Open Filename:= _
ThisWorkbook.Path & "\monfichier.xls"

 

[Pierrot93]

Re : Message si fichier non trouvé

Re,

essaye ainsi :

Dim monfichier As String
monfichier = ThisWorkbook.Path & "\monfichier.xls"
If Dir(monfichier, vbDirectory) = "" Then
    MsgBox "fichier non trouvé..."
    Exit Sub
Else
    Workbooks.Open Filename:=monfichier
End If

@+

 

[gourdin]

Re : Message si fichier non trouvé

Merci,

C'est tout bon

Bonne journée