Bonjour,

Sous VBA Excel 2007, je créé un fichier PDF depuis un document Word puis je ferme le fichier Word en question.

Or il arrive que si la création du fichier PDF est trop longue, le fichier Word ne puisse se fermer car celui-ci est utilisé pour la création du PDF.
J'aimerai donc détecter de manière propre (sans wait...) la fin de la création du PDF.

Mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
...
Set oDoc = oWord.Documents.Open(chemin & "\" & fichier & ".docx")
 
'création du PDF
    oDoc.ExportAsFixedFormat OutputFileName:= _
    chemin & "\" & dossier & "\" & fichier & ".pdf", _
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
    Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
 
'On quitte le documment Word sans enregistrer
oDoc.Close False
Merci