ouvrir un doc word et le transformer en pdf

Public Sub joindredevis(mondevis As String, chemin As String)

Dim wdApp As Word.Application

Dim strCheminDoc As String

Dim strSQL As String

' Chemin du document Word à ouvrir

strCheminDoc = "M:\Devis\" & mondevis

' Démarrer Word

Set wdApp = New Word.Application

With wdApp

.Visible = True

' Ouvrir le document

.Documents.Open strCheminDoc

' Sauvegarder le document en pdf

.ActiveDocument.ExportAsFixedFormat chemin & "devis" & "_" & mondevis & ".pdf", wdExportFormatPDF

' Quitter Word

.Quit SaveChanges:=wdDoNotSaveChanges

End With

' Fermer et libérer les objets

Set wdApp = Nothing

End Sub