'flag = False
[B]Workbooks(classeur2).Close True
Workbooks(classeur3).Close True[/B]
Application.ScreenUpdating = True
Exit Sub
erreur1:
Call MsgBox("Fichier : " & classeur2 _
& vbCrLf & "non trouvé" _
, vbExclamation, Application.Name)
Application.ScreenUpdating = True
Exit Sub
erreur2:
Call MsgBox("Fichier : " & classeur3 _
& vbCrLf & "non trouvé" _
, vbExclamation, Application.Name)
Workbooks(classeur2).Close False
Application.ScreenUpdating = True
Exit Sub
End Sub