Insérer valeur Cellule Hypertext
Résolu/Fermé
JBtheDarkman
Messages postés
17
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
8 septembre 2011
-
Modifié par JBtheDarkman le 2/12/2010 à 07:26
JBtheDarkman Messages postés 17 Date d'inscription vendredi 26 novembre 2010 Statut Membre Dernière intervention 8 septembre 2011 - 3 déc. 2010 à 00:19
JBtheDarkman Messages postés 17 Date d'inscription vendredi 26 novembre 2010 Statut Membre Dernière intervention 8 septembre 2011 - 3 déc. 2010 à 00:19
A voir également:
- Insérer valeur Cellule Hypertext
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
2 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 685
1 déc. 2010 à 09:29
1 déc. 2010 à 09:29
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"
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 685
2 déc. 2010 à 08:26
2 déc. 2010 à 08:26
bonjour
Si tu as trouvé la valeur avec ton find tu peux mettre ceci (sans activer la feuille d'ailleurs) :
Toujours zen
Si tu as trouvé la valeur avec ton find tu peux mettre ceci (sans activer la feuille d'ailleurs) :
ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\operateur\Bureau\" & t.Value & ".pdf"--
Toujours zen
JBtheDarkman
Messages postés
17
Date d'inscription
vendredi 26 novembre 2010
Statut
Membre
Dernière intervention
8 septembre 2011
3 déc. 2010 à 00:19
3 déc. 2010 à 00:19
Merci
2 déc. 2010 à 07:07
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.