Discussion :

[mllrfrnck]

Bonjour,

j'ai mis en place le code ci-dessous mais à la ligne "AppWrd.ExportAsFixedFormat" j'ai le message d'erreur 5 "Argument ou appel de procédure incorrect".
DocFile et AppWrd sont défini comme des objets (Object) et sFile et fichier_pdf comme des chaînes (String).
Je ne vois pas où se situe le problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
If InStr(1, myAttachments.Item(I).FileName, ".doc") > 1 Or InStr(1, myAttachments.Item(I).FileName, ".docx") > 1 Then
                    sFile = bPath & a & "_" & I & "." & Mid(myAttachments.Item(I).FileName, InStrRev(myAttachments.Item(I).FileName, ".") + 1)
                    myAttachments.Item(I).SaveAsFile sFile
                    fichier_pdf = bPath & a & "_" & I & ".pdf"
                    Set AppWrd = CreateObject("Word.Application")
                    Set DocFile = AppWrd.Documents.Open(sFile)
                    AppWrd.Visible = True
                    AppWrd.ActiveDocument.ExportAsFixedFormat OutputFilename:= _
                        fichier_pdf, ExportFormat:= _
                        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                        wdExportOptimizeForPrint, Range:=wdExportAllDocument

[Oliv-]

Bonjour

Est ce que tu as une références à "Microsoft Word 1x.0 object library " dans outils/références

sinon il faut ajouter les constantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Const wdExportFormatPDF = 17 '(&H11)
Const wdExportOptimizeForPrint = 0
Const wdExportAllDocument = 0

Si ce n'est pas cela Essaye en ne nommant pas les arguments de ExportAsFixedFormat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.ExportAsFixedFormat fichier_pdf, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument

[mllrfrnck]

Non, je n'ai pas coché la référence car la macro sera utilisée sur des postes avec Office 2010 et Office 2013.
En essayant la 2ème solution, j'ai toujours le même message d'erreur.

[Oliv-]

as tu ajouté les constantes ? en début de macro

[mllrfrnck]

Génial, ça fonctionne.
Par contre, j'ai dû mettre le code ci-dessous pour que ça fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AppWrd.ActiveDocument.ExportAsFixedFormat fichier_pdf, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument

Un immense merci Oliv.
Bon week-end.