Discussion :

[fredo21]

Bonjour

Je reçois quotidiennement nombre de documents word, que j'enregistre en PDF après correction.
J'utilise la fonction "enregistrer sous" de word 2013, mais si je pouvais utiliser une routine VBA pour automatiser ce travail, je gagnerais du temps.
Je ne suis qu'utilisateur basique de word et ne possède pas les compétences pour créer une telle routine.
Quelqu'un aurait-il la solution ?

Merci d'avance à tous.

Cdt

[Heureux-oli]

Salut,

tu peux toujours utiliser un petit morceau de code.

Code :

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

Activedocument.SaveAs2 Activedocument.Name, wdFormatPDF

Associé à un bouton de la Barre d'outils accès rapide.

[m@rina]

Hello Olivier,

C'est ce que je pensais aussi il y a quelque temps, mais je me suis rendue compte que le simple saveas2 en précisant le format PDF ne fonctionne pas. As-tu testé ? Paske chez moi ça ouvre la boîte dialogue Enregistrer sous et ça me propose un format DOCX.

Aussi j'utilise la méthode ExportAsFixedFormat, et là ça fonctionne.

A +
m@rina

[clementmarcotte]

Bonjour,

Je viens d'essayer cela "au long" et cela marche, du moins sur ma machine avec Word 2010:

Code :

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

1
2
3
Sub UnTestVersPDF()
    ActiveDocument.SaveAs2 FileName:="C:\Users\Clément Marcotte\Documents\Nouveau.pdf", FileFormat:=wdFormatPDF
End Sub

Mais, j'ai commencé avec:

Code :

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

1
2
3
Sub UnTestVersPDF()
    ActiveDocument.SaveAs2 FileName:="C:\Mes Documents\Nouveau.pdf", FileFormat:=wdFormatPDF
End Sub

et là, il ne voulait rien savoir

P.S. J'ai aussi essayé avec l'enregistreur de macros. Il m'a "sorti" une instruction de 3 ou 4 lignes avec "ExportAsFixedFormat"

[m@rina]

Bonjour Clément,

Très bizarre quand même... J'ai essayé ta méthode et j'ai le même problème. Une fenêtre Enregistrer sous s'ouvre me proposant le format docx.

Avec la méthode d'export, je mets ça :

Code :

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

1
2
3
Sub UnTestVersPDF2()
    ActiveDocument.ExportAsFixedFormat outputFileName:="C:\Users\marina\Mes Documents\Nouveau.pdf", exportFormat:=wdExportFormatPDF
End Sub

et ça fonctionne bien.
J'ai testé avec Office 2013.

Quant au code d'Olivier, je pense que le Activedocument.Name risque d'engendre un problème, vu que le nom contient aussi l'extension.

m@rina

[Heureux-oli]

Salut M@rina,

Je ne rencontre pas de problème, j'ai bien le fichier dans le bon format sans aucune autre intervention.
Ce n'est pas la première fois que j'utilise cette commande et tout fonctionne bien (du moins quand j'oublie pas des morceaux).