Sub Demo3() Dim MonFichier As Workbook, Chemin as string Chemin = "C:\Temp\test.xls" ' on verifi que "chemin" pointe sur un fichier qui existe If Not Dir(Chemin) = "" Then 'si le resultat du test n'est pas vide 'on desactive les événements Application.EnableEvents = False Set MonFichier = Workbooks.Open(Chemin) DoEvents 'on active les événements Application.EnableEvents = True End If End Sub