Comment poursuivre le déroulement de la macro sans débogage

Bonjour à tous,

j'utilise ce code en le répétant pour extraire les données, plusieurs fichier nommés différemment mais identiques, je souhaiterais que ma macro ne plante pas dans le cas ou un fichier serait manquant, je suppose avec la fonction IF mais je n'y arrive pas.

Merci beaucoup

Workbooks.Open Filename:="c:\formation\Formation Macon.xls"
            Workbooks("Formation Macon.xls").Activate
            Application.EnableEvents = False
Workbooks("Formation Macon.xls").Sheets("Date").Range("A2:x51").Copy Destination _
:=Workbooks("région V1.xls").Sheets("Macon").Range("b2")
Application.DisplayAlerts = False
Workbooks("Formation Macon.xls").Close ' fermeture du fichier1

Workbooks.Open Filename:="c:\formation\Formation St Genis.xls"
            Workbooks("Formation St Genis.xls").Activate
            Application.EnableEvents = False
       Workbooks("Formation St Genis.xls").Sheets("Date").Range("A2:x51").Copy Destination _
:=Workbooks("région V1.xls").Sheets("St Genis").Range("b2")
Application.DisplayAlerts = False
Workbooks("Formation St Genis.xls").Close ' fermeture du fichier2

Bonjour,

Il y a plusieurs façons de gérer les erreurs dont une est la suivante. Mettre le code suivant au début de la macro :

On Error Resume Next

Super, simple et efficace Merci !!!!