XL 2019 fichier pdf dans excel

chris

XLDnaute Barbatruc

• 12 Décembre 2022

• #2

Bonjour

Ceci permet de récupérer des données de fichiers PDF pour les utiliser dans le tableur, pas de les afficher

 

Dernière édition: 12 Décembre 2022

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 12 Décembre 2022

• #3

Hello,
Suis pas certain qu'en PQ on puisse ajouter une colonne qui contiendrait l'insertion d'un lien file:// +[chemin] + [fichier] .... mais après suis pas assez caler pour cela.
Sinon regarde coté VBA pour cela.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 12 Décembre 2022

• #4

Bonjour,

Dans le fichier suivant vous verrez une requête qui liste les fichiers du répertoire qui le contient et en crée une formule "'=LIEN_HYPERTEXTE"
Après la mise à jour de la requête, vous pouvez chercher "'=" (apostrophe+ égal) et remplacer par "=" et vos liens seront effectifs .

 

Pièces jointes

• PQ-Liens_Hyppertextes.xlsx

  17.6 KB · Affichages: 6

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 12 Décembre 2022

• #5

Re,

Voici une version avec macro (dans module de code de la feuille) sur évènement mise à jour de la requête.

Cordialement

 

Pièces jointes

• PQ-Nautes.xlsm

  24.4 KB · Affichages: 5

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 12 Décembre 2022

• #6

Désolé mais je ne comprends pas trop ce qu'il faut faire

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 12 Décembre 2022

• #7

Salut, pour info si curieux voir liste contributions PDF ou ici

 

Dernière édition: 13 Décembre 2022

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 12 Décembre 2022

• #8

Bonsoir,
Vérifiez que la cellule nommée 'Dossier' contient bien le chemin du répertoire voulu.
Puis click-droit dans une cellule du tableau vert et choisissez "Actualiser". Ou dans l'onglet 'Données' le bouton 'Actualiser tout'
Une fois le tableau mis à jour, sélectionnez la première colonne puis Ctrl+h (pour rechercher/remplacer) et dans la zone "Rechercher" mettez '= (apostrophe + égal) et dans la zone "Remplacer" mettez = (signe égal) puis cliquez sur "Remplacer tout"

Pour voir la requête, clickez dans une cellule du tableau puis sur le bouton "Modider" de l'onglet "Requête" qui vient de s'afficher sur le ruban.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2022

• #9

Bonsoir à tous,

Une solution VBA très classique et très simple :

VB:

Sub MAJ()
Dim chemin$, fichier$, lig&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.pdf")
lig = 2
Application.ScreenUpdating = False
With Feuil1 'CodeNamz
    .Rows(lig & ":" & .Rows.Count).Delete 'RAZ
    While fichier <> ""
        .Hyperlinks.Add .Cells(lig, 1), Address:=chemin & fichier, TextToDisplay:=fichier
        .Cells(lig, 2) = FileDateTime(chemin & fichier)
        lig = lig + 1
        fichier = Dir
    Wend
End With
End Sub

Téléchargez les fichiers joints dans le même dossier (le bureau) et cliquez sur le bouton.

A+

 

Pièces jointes

• Liens PDF(1).xlsm

  18.3 KB · Affichages: 3
• PDF1.pdf

  9.7 KB · Affichages: 1
• PDF2.pdf

  22.8 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Décembre 2022

• #10

Si vous êtes agacé par l'alerte Excel quand on clique sur un lien placez dans le code de la feuille :

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Hyperlinks.Count Then
    If Target.Hyperlinks(1).Address <> "" Then
        Cancel = True
        CreateObject("wscript.shell").SendKeys "{TAB}~"
        Me.Parent.FollowHyperlink Target.Hyperlinks(1).Address
    End If
End If
End Sub

et faites un clic droit sur le lien.

Bonne nuit.

 

Pièces jointes

• Liens PDF(2).xlsm

  19.3 KB · Affichages: 5
• PDF1.pdf

  9.7 KB · Affichages: 3
• PDF2.pdf

  22.8 KB · Affichages: 3

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 13 Décembre 2022

• #11

Merci Job75, c'est ce que je recherche à faire.

Par contre, peut-on remplacer la colonne "FileDateTime" par une colonne date et mettre la date de l'import du fichier dans le dossier.

Dernière demande, peut-on également faire la MAJ automatiquement à l'ouverture du fichier.


Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Décembre 2022

• #12

Bonjour telemarrk, le forum,

Pas de problème, voyez ce fichier (3) et la macro dans ThisWorkbook :

VB:

Private Sub Workbook_Activate()
Dim chemin$, fichier$, lig&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.pdf")
lig = 2
Application.ScreenUpdating = False
With Feuil1 'CodeNamz
    .Range("A" & lig & ":B" & .Rows.Count).Delete xlUp 'RAZ
    While fichier <> ""
        .Hyperlinks.Add .Cells(lig, 1), Address:=chemin & fichier, TextToDisplay:=fichier
        .Cells(lig, 2) = CDate(Format(FileDateTime(chemin & fichier), "dd/mm/yyyy"))
        lig = lig + 1
        fichier = Dir
    Wend
End With
End Sub

Elle se déclenche quand on ouvre ou active le fichier.

La date est celle de la création du fichier PDF.

A+

 

Pièces jointes

• Liens PDF(3).xlsm

  18.6 KB · Affichages: 4
• PDF1.pdf

  9.7 KB · Affichages: 1
• PDF2.pdf

  22.8 KB · Affichages: 1

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 13 Décembre 2022

• #13

Merci Job75

Je pars travailler, je teste cela ce soir

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 13 Décembre 2022

• #14

Bonjour,

Je vois que monsieur est avare de merci pour les gens qui ont bossé pour lui et ont pris de leur temps en explication.
encore un qui vient au supermaché de la macro toute cuite et va finir dans ma liste d'ignorés.

 

Vote positif 0 Vote négatif

T

telemarrk

XLDnaute Occasionnel

• 13 Décembre 2022

• #15

Bonjour Hasco,

Désolé j'étais pressé ce matin, je te remercie pour ton aide je t'assure que je ne suis pas comme ça.
Pendant le midi je n'ai qu'une demi-heure

 

Vote positif 0 Vote négatif