Sub Appelee()
Dim Classeur As Workbook
Debug.Print "Appelee:Entrée " & Err.Number & " : " & Err.Description
Set Classeur = Workbooks.Open("D:\Chemin\Fichier.xlsx")
Debug.Print "Appelee " & Classeur.Name & " : " & Err.Number & " : " & Err.Description
Exit Sub