1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

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

Discussion dans 'Forum Excel' démarrée par kaozuin, 1 Février 2019.

  1. kaozuin

    kaozuin XLDnaute Nouveau

    Inscrit depuis le :
    7 Décembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    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.
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - [RESOLU]Macro conversion PDF Forum Date
    XL 2013 [Résolu]macro pour rechercher valeur dans une colonne et mettre en couleur la cellul Forum Excel 6 Décembre 2015
    [Resolu]Macro qui ne fonctionne pas Forum Excel 20 Janvier 2015
    [Résolu]Macro évènementielle appliquer à plusieurs feuilles Forum Excel 5 Janvier 2015
    [Résolu]Macro onglet visible sur critères Forum Excel 30 Octobre 2014
    [RESOLU]Macro pour reprendre en automatique... Forum Excel 24 Septembre 2013

  3. kaozuin

    kaozuin XLDnaute Nouveau

    Inscrit depuis le :
    7 Décembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    Petit up du sujet :)

    Personne n'a de solution / sais si c'est possible à faire ?
     
  4. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    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 (Text):
    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+
     

    Pièces jointes:

  5. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,

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

    Pièces jointes:

    kaozuin aime votre message.
  6. kaozuin

    kaozuin XLDnaute Nouveau

    Inscrit depuis le :
    7 Décembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    Salut Job75 !

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

    kaozuin XLDnaute Nouveau

    Inscrit depuis le :
    7 Décembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    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 ?
     
  8. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour kaozuin,

    Bis repetita :
    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+
     
  9. kaozuin

    kaozuin XLDnaute Nouveau

    Inscrit depuis le :
    7 Décembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    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).
     

    Pièces jointes:

  10. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    J'ai supprimé votre code, bien trop compliqué et en plus inutile, voici ma macro complétée :
    Code (Text):
    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
     

    Pièces jointes:

    Dernière édition: 7 Février 2019
  11. kaozuin

    kaozuin XLDnaute Nouveau

    Inscrit depuis le :
    7 Décembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    Nickel !!!!

    Merci beaucoup de ton aide et encore désolé pour les explications pas trop clair !
     

Partager cette page