Enregistrer word avec macro en pdf ?

Fermé
bonnandr Messages postés 32 Date d'inscription mardi 15 mars 2011 Statut Membre Dernière intervention 18 mars 2020 - 17 mars 2011 à 09:03
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 17 mars 2011 à 14:31
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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
17 mars 2011 à 14:31
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