Discussion :

[gregm954]

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 :

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

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

[nouanda]

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.

[clementmarcotte]

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

[kiki29]

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

[gregm954]

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

Code :

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

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