Bonsoir à tous,
j'ai trouvé sur le net et notamment Excel-Pratique de quoi fabriquer une fonction qui effectue la conversion. Cela fonctionne bien, mais prend de de 6 a 10 secondes. Le poids du fichier Word ne dépasse pas 100ko. Pourriez vous m'aider? merci d'avance. Ci- dessous la fonction:
----------------------------
Function nom_fichier(fic) As Variant ' choix du nom de fichier et export en pdf
Dim nomfic As Variant
Dim oW As Word.Application
Dim oWD As Word.Document
On Error Resume Next ' gere l'appui sur la croix fermante de l'explorateur windows
nomfic = Left(fic, Len(fic) - 5) & ".pdf" ' le .pdf de destination
Set oW = CreateObject("Word.Application") 'ouverture session Word
oW.Visible = False 'pour que word reste masqué pendant l'operation
'Enregistre le document Word en pdf
Set oWD = oW.Documents.Open(fic) 'ouvre le fichier word
If Not Len(Dir(nomfic)) > 0 Then Kill (nomfic)
oWD.ExportAsFixedFormat OutputFileName:=nomfic, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False
oWD.Close 'ferme le document Word
oW.Quit 'ferme la sessionWord
nom_fichier = nomfic 'renvoi le nom du fichier pdf
End Function
--------------------------------------------------------