Enregistrer word avec macro en pdf ?

bonnandr Messages postés 35 Statut Membre -  
pijaku Messages postés 13513 Statut Modérateur -
Bonjour, j'ai une macro qui me permet d'enregistrer un formulaire. J'aimerais pour des raisons de sécurité que le document enregistré ne soit pas modifiable (PDF ....).
Voici ma macro :
ActiveDocument.SaveAs Filename:="C:\Users\xxxxx wwww\Desktop/xxxx/xxxxx" & _
Format(Now, "ddmmyyhhmm") & ".Doc"
Merci.



A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,
Pour enregistrer un doc word (version < 2007), vous devez avoir préalablement installé une imprimante virtuelle pdf. Un exemple.
Ensuite, votre macro va utiliser cette "imprimante" pour enregistrer en pdf votre doc word comme ceci : 

Dim imprimante As String
imprimante = ActivePrinter
    ActivePrinter = "Adobe PDF" 'ou le nom de votre imprimante virtuelle
    Application.PrintOut FileName:="" 
    ActivePrinter = imprimante

Code enregistré grâce à l'enregistreur de macro
1