XL 2019 fichier pdf dans excel

[telemarrk]

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]

Job75

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

 

[job75]

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

 

[telemarrk]

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]

Voyez ce fichier (4) et la nouvelle macro :

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]

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]

Bonjour telemarrk, le forum,

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 :

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]

Job75

Parfait

Encore merci pour le temps passé