Bonjour,
Je souhaite créer une macro (affectée à un bouton de commande) qui fera 2 choses :
1/ enregistrer au format PDF un formulaire word dans son dossier en cours
Pour cela, j'ai trouvé un code mais il bug. Pouvez-vous m'aider à comprendre pourquoi ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub FacturePDF_Click() Dim nfichier As String, nfichier2 As String, intpos As Byte nfichier = ActiveDocument.Name 'trouve la position de l'extension intpos = InStrRev(nfichier, ".") 'remplace l'extension doc par pdf nfichier = Left(nfichier, intpos - 1) nfichier2 = nfichier & ".pdf" 'enregistre dans le dossier en cours ActiveDocument.ExportAsFixedFormat outputFileName:=ActiveDocument.Path & "/" & nfichier2, _ exportFormat:=wdExportFormatPDF, OpenAfterPublish:=False End Sub
2/ mais je souhaite également que cette macro renomme ce fichier en reprenant certains champs du formulaire.
Est-ce possible ? Si oui, comment compléter le code (corrigé) ?
D'avance merci.
Partager