Verifier Document ouvert

Verifier Document ouvert - VB/VBA/VBS - Programmation

Marsh Posté le 03-09-2010 à 10:34:08    

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 ?


Message édité par Hi-gel le 03-09-2010 à 10:34:45
Reply

Marsh Posté le 03-09-2010 à 10:34:08   

Reply

Marsh Posté le 03-09-2010 à 11:46:47    

Up!

Reply

Marsh Posté le 03-09-2010 à 16:46:42    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed