Set Etat = GetObject(, "Word.Application" )
If Err.Number <> 0 Then Set Etat = CreateObject("Word.application" )
Err.Clear ' Efface l'objet Err si une erreur s'est produite.
On Error GoTo ErrFusionEditionDBOWord
With Etat
' Ouverture de l'overlay
'Modif Mathias le 23/08/05
.DisplayAlerts = wdAlertsMessageBox
.Documents.Open FileName:=CheminOverlay & NomOverlay, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto