ouvrir pdf depuis ordi ou clef usb

H

Hieu

XLDnaute Impliqué

• 27 Juin 2016

• #2

Re : ouvrir pdf depuis ordi ou clef usb

Salut,

Utilise la commande thisWorkbook.path

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 27 Juin 2016

• #3

Re : (Résolu) ouvrir pdf depuis ordi ou clef usb

Merci Hieu.
J'avais un code pour cela que j'ai "perdu"...
Et comme je suis nul en VBA, un petit code dans la USF sera cool...
Merci.

 

Dernière édition: 30 Juin 2016

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 27 Juin 2016

• #4

Re : ouvrir pdf depuis ordi ou clef usb

Re,

Si j'ai bien compris :

Code:

Private Sub UserForm_Initialize()
Me.TextBox1 = ThisWorkbook.Path
End Sub

++

 

Pièces jointes

• ouvrir fichier pdf_v0.xlsm

  19.6 KB · Affichages: 23

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 27 Juin 2016

• #5

Re : ouvrir pdf depuis ordi ou clef usb

Merci pour ta réponse Hieu
Mais cela ne marche pas...

 

Vote positif 0 Vote négatif

misteryann

XLDnaute Occasionnel

• 27 Juin 2016

• #6

Re : ouvrir pdf depuis ordi ou clef usb

Dans les faits, le chemin doit s'afficher dans la textbox et lorsque je clique sur le bouton, le pdf s'affiche.

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 27 Juin 2016

• #7

Re : ouvrir pdf depuis ordi ou clef usb

Ah,

J'comprenais, que tu voulais le chemin du fichier dans la textbox ;

Essaie ceci :

Code vba:
Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & "leFichier.pdf"
End Sub

 

Pièces jointes

• ouvrir fichier pdf_v1.xlsm

  19.6 KB · Affichages: 19

Vote positif 0 Vote négatif