Macro pour enregistrer au format PDF dans un dossier un fichier renommé comme cart
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:
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.
