ouvrir pdf depuis ordi ou clef usb

[misteryann]

Bonjour le forum.

J'ai un fichier Excel que je souhaite migré de mon ordi vers une clef usb et inversement.
Dans ma USF j'ai un bouton permettant d'ouvrir le pdf dont le chemin et contenu dans la textbox.
Comment faire pour que VBA "comprenne" que je suis sur mon ordi ou sur ma clef usb.

Je précise que lors de la migration le fichier excel ET le répertoire contenant les pdf sont copiés/collés.

Merci à toutes et tous.
Cordialement

 

[Hieu]

Re : ouvrir pdf depuis ordi ou clef usb

Salut,

Utilise la commande thisWorkbook.path

 

[misteryann]

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.

 

[Hieu]

Re : ouvrir pdf depuis ordi ou clef usb

Re,

Si j'ai bien compris :

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

++

 

[misteryann]

Re : ouvrir pdf depuis ordi ou clef usb

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

 

[misteryann]

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.

 

[Hieu]

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