Enregistrement en pdf fichier word

Bonjour à tous,
Voici mon problème: j'applique des modifications à un fichier word existant et je l'enregistre en format PDF , tous fonctionne correctement mais le fichier source word enregistre également les modifications,moi je veux enregistrer les modif dans le fichier pdf seulement !!
voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim objWord As Word.Application Dim docWord As Word.Document   objWord = CreateObject("Word.Application") docWord = objWord.Documents.Open("C:\toto.docx")     Dim tbl As Word.Table = CType(docWord.Tables(1), Word.Table) With docWord tbl.Cell(2, 2).Range.Text = "ggg" End With   Dim FileName As String FileName = ("riri" & "_" & "fifi") docWord.SaveAs2("C:\essai\" & FileName & ".pdf", Word.WdSaveFormat.wdFormatPDF)

---

si je l'enregistre au format docx au lieu de pdf ça fonctionne correctement , les modi se trouvent seulement sur le fichier dans c:essai

merci de votre aide , là je suis perdu
Greg

Je ne connais pas le fonctionnement intime de cette méthode, mais n'oublions pas que le format PDF est un format d'impression, base sur PostScript.
Il est probable que cette méthode enregistre d'abord le fichier source (le doc ou docx) et ensuite lance l'enregistrement/impression en PDF.
Si je me souviens bien des anciennes versions de Word, Word proposait d'enregistrer le document avant de l'imprimer.
Il est possible que cette méthode SaveAs2 utilise le même mécanisme.

Dans ce cas, il te faudra passe par un fichier word temporaire, que tu pourras supprimer post-enregistrement en PDF.

Bonjour

Saveas et Saveas2 ont beaucoup de misère avec le PDF. Je n'ai pas vérifié avec Word 2016, mais avec Word 2010, l'enregistreur de macros de Word "faisait" les PDF en passant par ExportAsFixedFormat

Salut, pour info en cas d'utilisation d'ExportAsFixedFormat voir ici

Bonjour à tous et merci pour votre aide
j'ai essayé le code suivant MAIS il enregistre toujours les modif dan le fichier word

Code:

---

1 2 3 4 5 6

Const wdExportFormatPDF = 17 docWord.ExportAsFixedFormat(FileName, ExportFormat:=wdExportFormatPDF) docWord.Close() objWord.Quit() docWord = Nothing objWord = Nothing

---

j'ai essayer un code vba directement dans le fichier word pour empêché les modifs, facile a faire dans excel , pour l'instant impossible dans word!!
MErci encore pour votreaide ,vraiment incroyable de galérer sur un code aussi simple
GReg