[RESOLUTO]Lien vers fichier PDF via un clic

[Ilino]

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

 

[Ilino]

Re : Lien vers fichier PDF via un clic

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+

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

 

[Staple1600]

Re : Lien vers fichier PDF via un clic

Re, Bonsoir job75


Ilino
C'était pourtant simple de mixer les deux codes, non

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

En passant par l'utilisation de CreateObject("WScript.Shell"), on évite le message d'alerte

 

[job75]

Re : Lien vers fichier PDF via un clic

Bonjour Ilino, Jean-Marie,

En passant par l'utilisation de CreateObject("WScript.Shell"), on évite le message d'alerte

En effet, c'est donc nettement mieux :

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.

 

[job75]

Re : Lien vers fichier PDF via un clic

Re,

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

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+

 

[Ilino]

Re : Lien vers fichier PDF via un clic

Bonjour JM, MAITRE
Ci dessous le code que je l'ai addapté ( grazie Job)

 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

 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

 

[Ilino]

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"

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

 

[Ilino]

Re : Lien vers fichier PDF via un clic

bonjour forum
mais ça n’empêche pas de me donner vos remarque sur la modif !!!
GRAZIE

 

[Ilino]

Re : Lien vers fichier PDF via un clic

Re

Ilino
Comme je l'ai signalé et job75 l'a illustré dans ses codes des messages 21 et 23, préférez l'utilisation de la méthode WScript.Shell
qui évite le message d'avertissement.

Re JM
mais j'ai travaillé avec le code de JOB Post# 23 !!!!!!!!????
a+

 

[Ilino]

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é"

a ce niveau la :
CreateObject("WScript.Shell").Run nomfich
encore merci pour vos conseils
Grazie

 

[Ilino]

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

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

 

[Ilino]

Re : Lien vers fichier PDF via un clic

Re JM
Mais attend ne t’innerve pas, dans mon dernier POST #32 j'ai utilisé que "FollowHyperlink" !!!!!! !!!!
GRAZIE

 

[Ilino]

Re : Lien vers fichier PDF via un clic

Re
Oky JM merci ,je vous informe que avec le code du post#32, fonctionne très bien.
Pblm résolu.
GRAZIE

 

[Ilino]

Re : [RESOLUTO]Lien vers fichier PDF via un clic

Re

Ilino
Et le message d'avertissement ne s'affiche pas ?

Bonsoir JM, Job
de quel message tu parles !! de "certains fichiers peuvent contenir des virus ......."!!!
A+