Bonjour,  
 
J'ai un probleme dans mon code:
 
'Creation du document Word
Dim DocWord As Object
Set DocWord = CreateObject("Word.Application" )
DocWord.Documents.Add
DocWord.ActiveDocument.SaveAs ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".doc"
DocWord.Visible = True
 
(Evidement c'est un partie) Si tout marche bien mon programme ne plante pas, le problème survient si lors de l'exécution il y a eu un problème et que je recompile alors il me dit que le document word est ouvert.
Comment vérifier que mon doc est ouvert ou non ?

Up!

Salut,
 
Juste un test style:
 
If Not DocWord Is Nothing Then
    MsgBox "Document ouvert"
End If