Ouvrir un fichier PDF à partir d'une feuille EXCELL

[ergastule]

Bonjour

Je voudrais ouvrir un fichier PDF à parti de son nom stocké dans une cellule d'une feuille EXCELL par une liste déroulante (COMBO BOX)

La cellule ou est stocké le nom du fichier à ouvrir s'appelle "Essai"

J'ai essayé la solution ci après dans une MACRO mais elle ne fonctionne pas

Sub OpenWordV02()
Dim Val As String
Val = Range("Essai").Value
ThisWorkbook.FollowHyperlink "C:\Users\Jean Louis\Documents\Essai ouverture fichier\Val.pdf"
End Sub

Merci d'avance

 

[Efgé]

Re : Ouvrir un fichier PDF à partir d'une feuille EXCELL

Bonjour ergastule et bienvenu sur le forum
Essai ceci:

ThisWorkbook.FollowHyperlink "C:\Users\Jean Louis\Documents\Essai ouverture fichier\" & Val & ".pdf"

Cordialement

 

[ergastule]

Re : Ouvrir un fichier PDF à partir d'une feuille EXCELL

Merci infiniment ca marche

Par contre je voudrais savoir comment écrire tous type de fichier à la place de pdf

je suppose *.*

mai qu'elle est la syntaxe dans cette macro

Merci d'avance

Cordialement

 

[Efgé]

Re : Ouvrir un fichier PDF à partir d'une feuille EXCELL

Bonjour ergastule, le fil, le forum
Je ne pense pas que *.* fonctionne, mais as tu essayé ?
A mon avis il faut que le chemin du lien pointe sur une adresse complète et existante (donc pas approximative).
Il vaudrait mieux mettre l’extension dans la variable (donc dans la cellule "Essai") en mettant Toto.txt par exemple.
Ce qui donnera

ThisWorkbook.FollowHyperlink "C:\Users\Jean Louis\Documents\Essai ouverture fichier\" & Val

Mais je peux me tromper, d'autres pourront nous le dire

Cordialement

 

[ergastule]

Re : Ouvrir un fichier PDF à partir d'une feuille EXCELL

cette solution marche
je rentre le nom du fichier dans une cellule
je rentre l'extension dans une autre
j'applique CONCATENATE des 2 valeurs que je met dans la cellule ESSAI avec la liste déroulante qui me permet de rechercher les fichiers.
et je conserve l'écriture proposée.

Merci infiniment

Cordialement