End If
'flag = False
[B]Windows("janvier2009.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Cells.Select
Windoows("juillet2008.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Cells.Select[/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
Workbooks(classeur3).Close False
Application.ScreenUpdating = True
Exit Sub
End Sub