Ouverture PDF par listbox

[ifi77]

Bonjour @ tous,

je viens vers vous car je bloque et n'arrive pas à trouver de solution à mon probleme.
J'ai une feuille ou s'enregistre successivement les liens vers des fichiers PDF, l'ensemble des informations s'affiche dans une listbox.
Mon probleme est donc celui d'ouvrir le fichier PDF dont le lien figure en colonne D de la feuille piècedivers, en double cliquant sur la listbox.

Merci

 

[kiki29]

Re : Ouverture PDF par listbox

Salut,à insérer dans ton code

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub ListBox1_Click()
Dim sFichier As String
Dim hwnd As Long
    sFichier = ListBox1.List(ListBox1.ListIndex, 3)
    ShellExecute hwnd, "Open", sFichier, 0&, 0&, SW_SHOWNORMAL
End Sub

En créant des liens hypertextes dans ta feuille "piecedivers" tu accéderais directement aux fichiers

 

[JNP]

Re : Ouverture PDF par listbox

Bonjour le fil 🙂,
Une solution sans DLL 😛...

Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) Then
With Worksheets(1)
    Set objHyper = _
        .Hyperlinks.Add(Anchor:=.Range("A1"), _
            Address:=ListBox1.List(i, 3))
    objHyper.Follow
    .Range("A1").Clear
End With
End If
Next i
End Sub

Bonne suite 😎

 

[ifi77]

Re : Ouverture PDF par listbox

Bonjour JNP et KIKI,
tout d'abord merci de votre aide, j'ai essayé la solution à JNP mais il me demande de définir les variables i, objhyper est ce normal...
sinon j'ai ensuite pris la méthode à kiki mais il ne m'ouvre pas directement le fichier et je ne sais pas créer des hyperliens car pour mettre le lien dans la base de donnée j'ulilise filepick.

Si vous avez une idée Merci encore.

 

[JNP]

Re : Ouverture PDF par listbox

Re 🙂,

j'ai essayé la solution à JNP mais il me demande de définir les variables i, objhyper est ce normal...

Soit supprimer Option Explicit au dessus du code, soit ajouter en début de code

Dim I as Byte, obtHyper as Object

Bonne suite 😎

 

[kiki29]

Re : Ouverture PDF par listbox

re,ou as-tu placé le code ? car ici cela fonctionne

Pour l'ajout de liens, par exemple en colonne E

Sub AjoutLiens()
Dim i As Long, LastRow As Long
Dim sStr As String

    LastRow = Worksheets("piecedivers").Range("D" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        sStr = Worksheets("piecedivers").Range("D" & i)
        If Len(sStr) > 0 Then
            Worksheets("piecedivers").Hyperlinks.Add Anchor:=Range("E" & i), Address:=sStr, TextToDisplay:="Essai" & i
        End If
    Next i
End Sub

 

[ifi77]

Re : Ouverture PDF par listbox

Merci à vous 2,
j'ai utilisé la solution à JNP car elle me permet d'utiliser directement mes données, tous fonctionne à merveille pour l'instant, donc encore un grand merci.

@ bientot