[COLOR="Navy"]On Error Resume Next[/COLOR]
Workbooks("EXPORT TEMPS.XLS").Activate
[COLOR="Navy"]If [/COLOR]Err <> 0 [COLOR="navy"]Then[/COLOR]
[COLOR="navy"]On Error GoTo 0[/COLOR]
Workbooks.Open Filename:="C:\Etats - Excel\EXPORT TEMPS.XLS"
[COLOR="navy"]If [/COLOR]Err <> 0 [COLOR="navy"]Then[/COLOR]
[COLOR="Navy"]On Error GoTo 0[/COLOR]
MsgBox "Le fichier ""EXPORT TEMPS.XLS"" est introuvable"
UserForm2.Show [COLOR="Green"]'Il permet de demander où se trouve le fichier[/COLOR]
Workbooks.Open Filename:=UserForm2.Text_Dossier
[COLOR="navy"]End If[/COLOR]
[COLOR="navy"]End [/COLOR][COLOR="navy"]If[/COLOR]