Word : Macro conversion pdf

Option Explicit
Dim chemin As String
Private Sub CommandButton1_Click()
chemin = "C:\Users\.....\Documents\Nouveau dossier\" 'chemin a adapter
' Sauvegarde du document publiposté
With ActiveDocument
.SaveAs chemin & ActiveDocument.Name & ".doc"
End With
VersPDF
End Sub
Sub VersPDF()
'macro écrite par m@rina
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:=chemin & nfichier2, _
exportFormat:=wdExportFormatPDF
End Sub

Dim DocName As String 
Dim chemin As String

Public Sub GenerationDocuments() 

' Déclaration des variables 
Dim recordCount As Integer 
Dim index As Integer 
Dim oDoc As Document 
Dim oDS As MailMergeDataSource 

' Affectation des objets 
Set oDoc = ActiveDocument 
Set oDS = oDoc.MailMerge.DataSource 

recordCount = oDoc.MailMerge.DataSource.recordCount 
Debug.Print recordCount & " a publier" 

For index = 1 To recordCount 
With oDoc.MailMerge 
'Définition du premier et dernier enregistrement 
.DataSource.FirstRecord = index 

.DataSource.LastRecord = index 

' Envoi des données dans un nouveau document 
.Destination = wdSendToNewDocument 

' Exécution du publipostage 
.Execute 

' Actualisation de l'enregistrement pour la sauvegarde 
.DataSource.ActiveRecord = index 

'Utilisation de deux champs pour obtenir le nom du document 
DocName = .DataSource.DataFields(3).Value 
DocName = DocName & "-" & .DataSource.DataFields(4).Value 
Debug.Print DocName; index 
End With 
' Sauvegarde du document publiposté 
chemin = "E:\Temp\test\" & DocName & ".doc" 
With ActiveDocument 
.SaveAs chemin  
End With 
Next index 
'enregistre en PDF
VersPDF
End Sub

Sub VersPDF()
'macro écrite par m@rina
Dim nfichier As String, nfichier2 As String, intpos As Byte
nfichier = DocName 
'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:=chemin & nfichier2, _
exportFormat:=wdExportFormatPDF
End Sub

Option Explicit
Dim chemin As String
Private Sub CommandButton2_Click()
chemin = ThisDocument.Path & "\"
With ActiveDocument
.SaveAs chemin & ActiveDocument.Name
End With
testPrintPDF
MsgBox "PDF enregistré"
End Sub
Sub testPrintPDF()
Dim oldPrinter As String
Dim stChemin As String
Dim stNom As String
' Affichage de la fenêtre de PDF
Shell "C:\Program Files (x86)\PDFCreator\PDFCreator.exe", vbNormalFocus 'a adapter le chemin de ton pc

Dim PDFCreator1 As New clsPDFCreator
oldPrinter = ActivePrinter
'On va mettre en mémoire dans une
'variable le nom de l'imprimante par défaut
ActivePrinter = "PDFCreator"
'Mettre comme imprimante par défaut PDFCreator
If Len(ActiveDocument.Path) = 0 Then
    stChemin = chemin '"c:\temp"
Else
    stChemin = chemin 'ActiveDocument.Path
End If
'Si le document n'a pas été sauvegardé, le PDF sera dans le répertoire c:\temp
'et un nom par défaut documentPDF;pdf
If Len(ActiveDocument.Name) = 0 Then
    stNom = "documentPDF.pdf"
Else
    stNom = ActiveDocument.Name
End If
'les option PDFCreator
With PDFCreator1
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = stChemin
   .cOption("AutosaveFilename") = stNom
   .cOption("AutosaveFormat") = 0                            ' 0 = PDF
   .cStart
   .cClearCache
End With
ActiveDocument.PrintOut Background:=True
PDFCreator1.cClose
ActivePrinter = oldPrinter
' Change l'imprimante par défaut

End Sub