Convertir un fichier Word en pdf avec VBA Excel

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

--------------------------------------------------------

Hello,

Pourquoi passer par excel pour exporter une fichier word en pdf ?

SI tu fais directement la macro dans word ça sera + rapide et encore mieux si tu fais la macro dans le fichier à exporter

Oui bien sur! Mais cette fonction sert à envoyer par outlook un tableau xl associé à un fichier Word. merci tout de même

Rechercher des sujets similaires à "convertir fichier word pdf vba"