XL 2013 [RESOLU]Macro conversion PDF fichier WORD (depuis excel)

kaozuin

XLDnaute Nouveau
Bonjour à tous,

J'ai une nouvelle fois besoin de vos lumière (ou aide :))

J'ai un fichier, où avec une macro j'obiten les liens de fichier word et je souhaite, via une macro ouvrir ces fichiers pour les "publier (ou enregistrer) au format PDF dans le même répertoire que la source.

Ci joint un fichier Excel où j'ai ma macro d'extraction de liens.

Auriez vous cela en réserve ? :)

En vous remerciant d'avance.
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour kaozuin,

Vous n'avez pas de réponse parce que ce n'est pas clair.

S'il s'agit simplement de créer un document PDF à partir d'un document Word :
Code:
Sub PDF_Word()
Dim chemin$, doc$, pdf$, Wapp As Object
chemin = ThisWorkbook.Path & "\" 'à adapter
doc = "Mon document.docx" 'à adapter
pdf = Left(doc, InStrRev(doc, ".") - 1) & ".pdf"
Application.DisplayAlerts = False 'si le fichier Word est ouvert
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
With Wapp.Documents.Open(chemin & doc)
    .ExportAsFixedFormat chemin & pdf, ExportFormat:=17 '17 => wdExportFormatPDF
    .Close False
    If Wapp.Documents.Count = 0 Then Wapp.Quit
End With
End Sub
Téléchargez les fichiers zippés joints dans le même dossier.

A+
 

Fichiers joints

job75

XLDnaute Barbatruc
Re,

Si l'on veut afficher le document PDF utiliser ce fichier (2) avec l'instruction :
Code:
Shell Environ("WINDIR") & "\explorer.exe " & chemin & pdf, vbNormalFocus
A+
 

Fichiers joints

kaozuin

XLDnaute Nouveau
Salut Job75 !

Merci de ton aide j'ai adapté et automatisé cela ! (enfin ... je suis entrain de finaliser tout ça xD)
 

kaozuin

XLDnaute Nouveau
Re bonjour,

Je réouvre le sujet car j'ai un petit souci avec cette macro !

Je souhaiterais que cette dernière enchaine les conversion j'ai bien les bons lien / info mais on dirait que la conversion est ''sautée'' !

Avez vous une idée d'où cela peut il venir ?
 

job75

XLDnaute Barbatruc
Bonjour kaozuin,

Bis repetita :
Vous n'avez pas de réponse parce que ce n'est pas clair.
Vous remarquerez que moi j'ai joint le fichier Excel et le document Word concernés.

Alors joignez le ou les documents Word que vous voulez exporter en PDF (il faut les zipper).

A+
 

kaozuin

XLDnaute Nouveau
Ha pardon je n'avais pas vue cette ligne :)

Ci joint un exemple :

il faut d'abord aller dans l'éditeur marco / Feuille 1 et modifier manuellement le chemin du dossier à analyser
puis lancer l'analyse (ce qui exterait les infos)
puis lancer la macro du module 1 ( ta macro que j'ai un peu modifier).
 

Fichiers joints

job75

XLDnaute Barbatruc
J'ai supprimé votre code, bien trop compliqué et en plus inutile, voici ma macro complétée :
Code:
Sub PDF_Word()
Dim chemin$, doc$, Wapp As Object, pdf$
chemin = ThisWorkbook.Path & "\" 'à adapter
doc = Dir(chemin & "*.docx") '1er document du dossier
Application.DisplayAlerts = False 'si un document Word est ouvert
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
While doc <> ""
    pdf = Left(doc, InStrRev(doc, ".") - 1) & ".pdf"
    With Wapp.Documents.Open(chemin & doc)
        .ExportAsFixedFormat chemin & pdf, ExportFormat:=17 '17 => wdExportFormatPDF
        .Close False
    End With
    doc = Dir 'document suivant du dossier
Wend
If Wapp.Documents.Count = 0 Then Wapp.Quit
End Sub
 

Fichiers joints

Dernière édition:

Discussions similaires


Haut Bas