Sortir de la macro si le fichier n'existe pas

[degap05]

Bonjour,

La macro ci-dessous:

Sub CopyAndKill()
FileCopy "C:\Users\Public\Desktop\STOCK.XLS", "C:\Users\toto\Documents\Stock.xls"
Kill "C:\Users\Public\Desktop\STOCK.XLS"
End Sub

me permet de copier et de supprimer un fichier.
Comment proposez-vous de sortir de la macro si le fichier: STOCK.XLS n'existe pas ?

Merci de votre aide.
A+

 

[tototiti2008]

Re : Sortir de la macro si le fichier n'existe pas

Bonjour degap05,

à tester

If Dir("C:\Users\Public\Desktop\STOCK.XLS") = "" then Exit sub

 

[degap05]

Re : Sortir de la macro si le fichier n'existe pas

Bonjour et merci Tototiti2008,

Parfait.

A+