Attendre exécution d'une tache
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:
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
