Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[RESOLUTO]Lien vers fichier PDF via un clic

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ilino
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Ilino

XLDnaute Barbatruc
Bonsoir Forum
Ci-joint le fichier exemple, je souhaite créer un lien entre chaque ligne de ListText avec le fichier PDF qui le correspond( les fichier sont sauvegardés dans le même répertoire) c-a-d si je clic sur une ligne il m’affiche le fichier PDF
GRAZIE et B.W end
NB : sorry pour le fichier
Edit : toutes mes fichiers sont nommés selon la colonne M
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Lien vers fichier PDF via un clic

job75 à dit:
Bonsoir Ilino, Jean-Marie,

- si ta base de données comporte 1000 noms en colonne M, tu créeras 1000 fichiers PDF ? 🙄

- quand crées -tu ces fichiers et qu'est-ce que tu mets dedans ? Donne-nous un fichier exemple...

A+
Cliquez pour agrandir...

GRAZIE MAITRE
SUPER C'EST NICKEL 😉
c'est des notes scanées qui sont nommé selon la colonne M
GRAZIE maintenant je peux aller faire DODOOOOOOOOOOOOOOOOO
A+ et Bon debut de semaine
 
Vote positif 0 Vote négatif
Re : Lien vers fichier PDF via un clic

Re, Bonsoir job75


Ilino
C'était pourtant simple de mixer les deux codes, non 😕🙄
Code: 
Sub ouvrirpdfTer()
Set objShell = 
Nom = L13.Column(1)
objShell.Run ThisWorkbook.Path & "\" & Nom & ".pdf"
End Sub
PS1: Je n'ai pas testé puisque je ne peux pas ouvrir ton fichier pour le moment.
PS2: Job75 lui aussi utilise FollowHyperlink dans son code, info que je te donnais dès le message #2...le 18/10/2O14
Nous sommes le 20 octobre ...
Ilino: je me pose des questions: tu cherches à comprendre la syntaxe VBA ou tu ne fais que de simple copier/coller dans VBE sans chercher à comprendre la logique du code 😕

Job
On ne peut pas éviter l'alerte à l'ouverture du fichier PDF
Cliquez pour agrandir...
En passant par l'utilisation de CreateObject("WScript.Shell"), on évite le message d'alerte 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Lien vers fichier PDF via un clic

Bonjour Ilino, Jean-Marie,

Staple1600 à dit:
En passant par l'utilisation de CreateObject("WScript.Shell"), on évite le message d'alerte 😉
Cliquez pour agrandir...

En effet, c'est donc nettement mieux :

Code: 
Private Sub ListBox1_Click()
'La propriété BoundColumn de ListBox1 doit être à 5
Dim nomfich$
nomfich = ThisWorkbook.Path & "\" & ListBox1 & ".pdf"
If Dir(nomfich) = "" Then MsgBox "Fichier '" & nomfich & "' introuvable...": Exit Sub
CreateObject("WScript.Shell").Run nomfich
End Sub
Fichiers (2).

Bonne journée.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Lien vers fichier PDF via un clic

Re,

Cette solution évite de passer par la propriété BoundColumn :

Code: 
Private Sub ListBox1_Click()
Dim nomfich$
nomfich = ThisWorkbook.Path & "\" & ListBox1.List(ListBox1.ListIndex, 4) & ".pdf"
If Dir(nomfich) = "" Then MsgBox "Fichier '" & nomfich & "' introuvable...": Exit Sub
CreateObject("WScript.Shell").Run nomfich
End Sub
Fichiers (3).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Lien vers fichier PDF via un clic

Bonjour JM, MAITRE
Ci dessous le code que je l'ai addapté ( grazie Job)
VB: 
 Private Sub UserForm_Initialize()
Dim d As Object, i&

With Feuil1 'CodeName de la feuille
  t = .Range("A2:AC" & .Range("A" & .Rows.Count).End(xlUp)(2).Row)
  .[C1,G1,J1,L1,M1,Q1,S1,N1,AC1].EntireColumn.AutoFit 'ajustement automatique
  ListBox1.ColumnWidths = .Columns(3).Width & ";" & .Columns(7).Width & ";" _
    & .Columns(10).Width & ";" & .Columns(12).Width & ";" _
    & .Columns(13).Width & ";" & .Columns(17).Width & ";" _
    & .Columns(19).Width & ";" & .Columns(14).Width & ";" & .Columns(29).Width
End With

Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t)
  If t(i, 2) <> "" Then d(t(i, 2)) = ""
Next
If d.Count Then ComboBox1.List = d.keys

End Sub

apres j'ai ajouté encore le code de notre MAITRE
VB: 
 Private Sub ListBox1_Click()
'La propriété BoundColumn de ListBox1 doit être à 5
Dim nomfich$
nomfich = ThisWorkbook.Path & "\" & ListBox1 & ".pdf"
If Dir(nomfich) = "" Then MsgBox "Fichier '" & nomfich & "' introuvable...": Exit Sub
ThisWorkbook.FollowHyperlink nomfich
End Sub
Mais mon souci est au niveau de la nomination des fichiers PDF et le lien , quand je clic (doubl clic) il affiche le nom de fichier de la permiere colonne de ListBox ???? je souhaite qu'il affiche le nom de 8eme colonne de ListBox
sorry je sais que j'ai dépassé mes limites SORRY🙁
GRAZIE
 
Vote positif 0 Vote négatif
Re : Lien vers fichier PDF via un clic

Re
je pense que mon souci est résolu par ce code ( grazie MAITRE)


nomfich = ThisWorkbook.Path & "\" & ListBox1.List(ListBox1.ListIndex, 7) & ".pdf"
Cliquez pour agrandir...

VB: 
Private Sub ListBox1_Click()
Dim nomfich$
nomfich = ThisWorkbook.Path & "\" & ListBox1.List(ListBox1.ListIndex, 7) & ".pdf"
If Dir(nomfich) = "" Then MsgBox "Fichier '" & nomfich & "' introuvable...": Exit Sub
CreateObject("WScript.Shell").Run nomfich
End Sub
grazie
 
Vote positif 0 Vote négatif
Re : Lien vers fichier PDF via un clic

re
sincèrement après plusieurs adaptation,🙁 je me suis trouvé ...... maintenant je suis bugué🙁
quand je clic sur une ligne de ListBox j'ai ce message d'erreur😡 :
Erreur d’exécution "-2147024894......." La méthode 'Run' de l'objet 'IWshell3' a échoué"
Cliquez pour agrandir...
a ce niveau la :
CreateObject("WScript.Shell").Run nomfich
encore merci pour vos conseils
Grazie
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Lien vers fichier PDF via un clic

Re JM
Tu as raison j'ai oublié de changer "la propriété BoundColumn" = 8
avec le code
Code: 
Private Sub ListBox1_Click()
'La propriété BoundColumn de ListBox1 doit être à 5
Dim nomfich$
nomfich = ThisWorkbook.Path & "\" & ListBox1 & ".pdf"
If Dir(nomfich) = "" Then MsgBox "Fichier '" & nomfich & "' introuvable...": Exit Sub
ThisWorkbook.FollowHyperlink nomfich
End Sub
grazie JM
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
295
Magnio
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
688
PHIL37
P
  • Question Question
Microsoft 365 Copier un fichier dans l'explorer vers le presse-papier
Réponses
0
Affichages
374
gsx-air
J
  • Résolu(e)
XL 2019 Important : Nommer fichier grâce aux éléments de publipostage
Réponses
6
Affichages
883
JacquesO
J
D
  • Question Question
Microsoft 365 Renommer fichier txt via Macro selon son contenu
2
Réponses
15
Affichages
770
DELATTE
D
  • Question Question
Power Query Simplification code M (issu de l'assistant PQ) ou autre syntaxe pour ce résultat
2 3
Réponses
33
Affichages
3 K
Amilo
A
J
  • Question Question
XL 2019 Nommer exportation
Réponses
7
Affichages
1 K
JacquesO
J
7
  • Question Question
Microsoft 365 Tableau de Géolocalisation de vidéos de drone avec lien vers Google Earth
2
Réponses
15
Affichages
1 K
sylvanu
F
  • Question Question
XL 2016 Générer un rapport pdf depuis excel
2
Réponses
22
Affichages
3 K
fraux
F
  • Question Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
845
patricktoulon
S
  • Question Question
Microsoft 365 Tableaux Structurées : récupérer des données uniques pour consolider un bilan
Réponses
4
Affichages
401
vgendron
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V2.0 + 2.01 - exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
2
Affichages
537
oguruma
J
  • Question Question
Word Utiliser champs de publipostage pour nommer fichier .PDF
Réponses
2
Affichages
867
kiki29
I
  • Question Question
Microsoft 365 Renommer des fichiers avec des caractères non reconnus
Réponses
10
Affichages
1 K
ivan27
I
M
  • Résolu(e)
Power Query Convertir un fichier PdF en Excel et restitution d'un état de synthèse
Réponses
10
Affichages
1 K
Merlin258413
M
T
  • Question Question
Microsoft 365 Ouverture de fichier
2 3
Réponses
36
Affichages
3 K
TooFatBoy
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
780
arnoldbrice19
A
Y
  • Résolu(e)
XL 2013 Suppimer ligne et PDF associé
2 3
Réponses
40
Affichages
3 K
YANOU38
Y
M
  • Question Question
Power Query Convertir un fichier Contacts Gmail et fichier Excel
Réponses
13
Affichages
1 K
nat54
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
761
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…