rechercher un fichier pour creer une formule avec liaison

[dj.run]

bonjour à toutes et à tous,

dans une macro que j'utilise pour ajouter une formule (avec liaison) à mon projet, je fait appel à un fichier, si le fichier existe, cela marche tres bien mais si le fichier n'existe pas sir mon disque, la macro plante .

ma question est la suivante comment faire pour que si le fichier "appelé" n'existe pas, je puisse sortir de la macro et que j'ai un message type ce fichier n'existe pas ??

pour info ma macro

Sub formule()
Dim var As String, var1 As String
var = Range("al19").Value
var1 = Range("al20").Value
Application.ScreenUpdating = False
ChDir "D:\david\DA\CREDIT\" & Range("al17").Value
Workbooks.Open FileName:="D:\david\DA\CREDIT\" & Range("al17").Value & "\" & Range("al15").Value
Windows(Range("al18").Value).Activate
Range("ac41").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-'" & var
Range("AD41").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-'" & var1
Range("AD42").Select
Windows(Range("al15").Value).Activate
ActiveWindow.Close SaveChanges:=False
Range("AC42").Select
Application.ScreenUpdating = True
End Sub

merci pour votre aide

dj.run

 

[Robert]

Salut le Forum, salut DJ.run

Essaie de rajouter les lignes que j'ai isolé.

Sub formule()
Dim var As String, var1 As String
var = Range("al19").Value
var1 = Range("al20").Value
Application.ScreenUpdating = False

On Error GoTo fin

ChDir "D:\david\DA\CREDIT\" & Range("al17").Value
Workbooks.Open FileName:="D:\david\DA\CREDIT\" & Range("al17").Value & "\" & Range("al15").Value
Windows(Range("al18").Value).Activate
Range("ac41").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-'" & var
Range("AD41").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-'" & var1
Range("AD42").Select
Windows(Range("al15").Value).Activate
ActiveWindow.Close SaveChanges:=False
Range("AC42").Select
Application.ScreenUpdating = True

fin:
msg = "Ce fichier n'existe pas !"
a = MsgBox(msg, 16, "Attention")

End Sub


Robert

 

[dj.run]

bonjour le forum,

merci robert de ton aide, je vais essayer cela dès aujourd'hui .

merci encore

dj.run