XL 2019 fichier pdf dans excel

telemarrk · 12 Décembre 2022

Bonsoir,

Peut-on importer dans un classeur des fichiers PDF avec liens ? Je m'explique

J'ai créé mon fichier et je suis aller dans : Données/Obtenir des données/A partir d'un fichier/A partir d'un dossier

Là, je lui ai indiquer le chemin du dossier, il m'a créé un tableau avec une colonne qui reprend le nom des fichiers PDF mais j'aimerais cliquer sur le nom et ouvrir le fichier pdf dans Acrobat ou autre logiciel.

Je vous joins une capture d'écran

Merci

telemarrk · 13 Décembre 2022

Job75

Lorsque je mets "sous forme de tableau" au prochain démarrage j'ai un message d'erreur "erreur d'exécution 1004".

job75 · 13 Décembre 2022

Pourquoi mettre sous forme de tableau ? Ici ça ne sert à rien.et c'est même nuisible.

telemarrk · 13 Décembre 2022

Le but, c'est de partager ce fichier avec d'autres collègues et qu'ils puissent valider les fichiers PDF joints.

J’aimerais que ce soit structuré si cela est possible

job75 · 13 Décembre 2022

Voyez ce fichier (4) et la nouvelle macro :

VB:

Private Sub Workbook_Activate()
Dim chemin$, fichier$, lig&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.pdf")
Application.ScreenUpdating = False
With [Tableau1] 'tableau structuré
    .Cells(1).Hyperlinks.Delete
    .Rows(1).ClearContents 'RAZ
    If .Rows.Count > 1 Then .Rows(2).Resize(.Rows.Count - 1).Delete xlUp 'RAZ
    While fichier <> ""
        lig = lig + 1
        .Hyperlinks.Add .Cells(lig, 1), Address:=chemin & fichier, TextToDisplay:=fichier
        .Cells(lig, 2) = CDate(Format(FileDateTime(chemin & fichier), "dd/mm/yyyy"))
        fichier = Dir
    Wend
End With
End Sub

telemarrk · 15 Décembre 2022

Bonjour,

Job75, je reviens vers toi aujourd'hui car hier il y avait France-Maroc (Allez la France).

Dès que j'ajoute de nouveaux fichiers PDF dans mon dossier, il ne met pas une ligne sur deux en bleu.

Merci

job75 · 15 Décembre 2022

Bonjour telemarrk, le forum,

telemarrk à dit:
Dès que j'ajoute de nouveaux fichiers PDF dans mon dossier, il ne met pas une ligne sur deux en bleu.

Oui la création du lien hypertexte ne suffisait pas pour redimensionner le tableau structuré.

Prenez ce fichier (5) avec la macro :

VB:

Private Sub Workbook_Activate()
Dim chemin$, fichier$, lig&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.pdf")
Application.ScreenUpdating = False
With [Tableau1] 'tableau structuré
    .Cells(1).Hyperlinks.Delete
    .Rows(1).ClearContents 'RAZ
    If .Rows.Count > 1 Then .Rows(2).Resize(.Rows.Count - 1).Delete xlUp 'RAZ
    While fichier <> ""
        lig = lig + 1
        .Cells(lig, 1) = fichier
        .Cells(lig, 2) = CDate(Format(FileDateTime(chemin & fichier), "dd/mm/yyyy"))
        .Hyperlinks.Add .Cells(lig, 1), Address:=chemin & fichier
        fichier = Dir
    Wend
End With
End Sub

A+

telemarrk · 15 Décembre 2022

Job75

Parfait

Encore merci pour le temps passé

XL 2019 fichier pdf dans excel

telemarrk

XLDnaute Occasionnel

Pièces jointes

telemarrk

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

Discussions similaires