Ouvrir fichier pdf sur clic Bouton

[donpopo]

Bonjour le forum,

Dans les données d'une feuille Excel, j'ai une colonne avec des hyperliens vers un fichier PDF.

Celui-ci s'ouvre bien lorsque je clic dessus.

Cependant, je souhaiterais pouvoir faire de même avec un bouton sur un formulaire.

J'essaie de comprendre la fonction 'shell' mais sans grand succès. J'aurais transféré mon lien dans une variable dans le formulaire et j'aurais ouvert en mettant une ligne de code telle

Private sub bouton_click
Shell programme d'ouverture PDF puis mavariable
end sub

Quelqu'un connaitrait-il la syntaxe de la fonction shell?

Merci d'avance

donpopo

 

[Guest]

Re : Ouvrir fichier pdf sur clic Bouton

Bonsoir,

Plus facile que shell:

ActiveWorkbook.FollowHyperlink "D:\Excel\test.pdf"

A+

 

[donpopo]

Re : Ouvrir fichier pdf sur clic Bouton

Bonsoir Hasco

Merci pour ta réponse, mais je ne comprends pas très bien ce que dois entreprendre pour que, à chaque sélection d'un enregistrement dans mon userform, l'adresse du lien se mette à jour.

Dans le cas ci-dessus, le bouton n'ouvrirait jamais que le document "test.pdf" renseigné?

A+

 

[kiki29]

Re : Ouvrir fichier pdf sur clic Bouton

Salut, à adapter à ton contexte

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

.....
Dim sFichier as string
ShellExecute hwnd, "Open", sFichier, 0&, 0&, SW_SHOWNORMAL
.....

 

[donpopo]

Re : Ouvrir fichier pdf sur clic Bouton

Merci kiki29,

je vais essayer d'adapter cela et de le comprendre.

C'est à cela que l'on voit la différence entre un XLDnaute Accro et un Occasionnel

A+

 

[Guest]

Re : Ouvrir fichier pdf sur clic Bouton

Re,

Je réponds à ta question du post 3

En admettant que la cellule active contiennent le chemin vers un fichier pdf.

Dim MaVariable as String
MaVariable = ActiveCell.text
ActiveWorkbook.FollowHyperlink MaVariable

A+

 

[donpopo]

Re : Ouvrir fichier pdf sur clic Bouton

Merci Hasco,

Je teste et j'adapte.

A+

 

[donpopo]

Re : Ouvrir fichier pdf sur clic Bouton ou autre

Bonsoir le forum,

Je reviens sur ce post, car, malgré les différents conseils, je n'arrive toujours pas à créer de procédure qui me convient pour afficher un PDF lorsque je se clique sur un bouton.

Entretemps, j'ai pensé supprimer le bouton et, à l'aide de l'affichage des données sur une textbox, double cliquer sur une ligne de cette textbox afin d'ouvrir le fichier pdf associé.

J'ai joint un petit fichier exemple afin d'être le plus clair possible.

Quelqu'un aurait-il la solution?

Merci d'avance,

donpopo

 

[Guest]

Re : Ouvrir fichier pdf sur clic Bouton

Bonsoir,

une solution parmi d'autres dans le fichier joint.

Rajout d'une colonne(cachée) dans la listbox2 contenant le lien
sur doubleclick utilisation de Application.Goto.

A+

 

[donpopo]

Re : Ouvrir fichier pdf sur clic Bouton

Merci Hasca,

Effectivement, cela fonctionne très bien dans mon fichier exemple, lorsque mon hyperlien tend vers une feuille du fichier. Pour les besoins d'envoi du fichier, j'avais utilisé ce système d'hyperliens vers des feuilles.

Cependant, mon but dans le fichier final est d'avoir des liens hypertexte me dirigeant vers des fichier .PDF situé dans un répertoire de mon disque dur. Là, ta proposition ne fonctionne plus.

Merci,

A+

 

[Guest]

Re : Ouvrir fichier pdf sur clic Bouton

Re,

Je pensais que tu saurais adapter, avec ce qu'on t'a déjà donné.

Listbox2

tablodoc(compteur, 3) = .Cells(ligne, 3).Hyperlinks(1).Address

Pour le double click:

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With ListBox2
    If .ListIndex = -1 Then Exit Sub
    If .Value <> "" Then ActiveWorkbook.FollowHyperlink ListBox2.Value
    End With
End Sub

A+

 

[donpopo]

Re : Ouvrir fichier pdf sur clic Bouton

Encore merci Hasco,

Il est vrai que j'ai un peu de mal avec les tableaux et les listbox. Je patauge lorsqu'il s'agit de sélectionner un élément de liste.

Mais là, tu m'as vraiment bien renseigné.

Je vais étudier un peu plus l'emploi des tableaux.

A+