Discussion :

[Mandarine]

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

[patricktoulon]

bonjour et bien venue

mais tu n'est pas sur le bon forum ici c'est excel

cela dit je vois pas trop ton souci sachant qu'en fin de macro tu ferme le document automatiquement

je ne comprend pas trop bien ton besoins

l'action qui ferme ton document est exécutée tout de suite après le transfert en pdf

au plaisir

[Invité]

Bonjour

Essayes en intercalant l'instruction DoEvents après le code de la création de ton PDF.

Philippe