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