Insérer valeur Cellule Hypertext
Résolu
JBtheDarkman
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
JBtheDarkman Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
JBtheDarkman Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Merci d'avance a ceux qui prendront le temps de lire mon problème.
J'essaie de faire un lien hypertext.
Dans le chemain de mon lien hypertext j'aimerais introduire le résultat d'une cellule qui ouvrirais le fichier adéquat.
Exemple: ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\operateur\Bureau\1.pdf"
J'aimerais que la variable 1 puisse être 2 3 4 5 ce qui ouvrirais le Document adéquat a ma production.
Merci d'Avance a ceux qui pourrons m'aidé.
Merci d'avance a ceux qui prendront le temps de lire mon problème.
J'essaie de faire un lien hypertext.
Dans le chemain de mon lien hypertext j'aimerais introduire le résultat d'une cellule qui ouvrirais le fichier adéquat.
Exemple: ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\operateur\Bureau\1.pdf"
J'aimerais que la variable 1 puisse être 2 3 4 5 ce qui ouvrirais le Document adéquat a ma production.
Merci d'Avance a ceux qui pourrons m'aidé.
A voir également:
- Insérer valeur Cellule Hypertext
- Insérer video powerpoint - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer sommaire word - Guide
- Insérer espace insécable word - Guide
2 réponses
bonjour
tu peux essayer ceci :
ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\operateur\Bureau\" & [A1].value & ".pdf"
tu peux essayer ceci :
ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\operateur\Bureau\" & [A1].value & ".pdf"
Ce que tu ma donné fonctionne très bien si la cellule est dans la même page.
Je t'en remercie grandement, sauf qu'il a fallu que je modifie un peu mon projet.
Je vais cherché la cellule dans une autre feuille. Quand je la sélectionne, Au lieu de B47 j'arrive a la case C49. Peux-tu m'aidé s.v.p.
Voici ma ligne de code:
' Parcourt les Feuilles de la 2ème à la dernière
For sh = 1 To Sheets.Count
With Sheets(sh).Range("d1")
' recherche la valeur située en 'A1' sur la première feuille
Set t = .Find(Sheets("Choix").Range("D8").Value, LookIn:=xlValues)
If Not t Is Nothing Then
' Si la valeur est trouvée, alors
' Active la feuille contenant cette valeur
Sheets(sh).Activate
ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\operateur\Bureau\" & [B47].Value & ".pdf"
Exit Sub
End If
End With
Next
End Sub
Encore une fois merci Bcp pour la réponse précédente.