Excel VBA: Cliquer sur un hyperlien
Fermé
Jakematteau
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012
-
21 mars 2012 à 16:00
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 22 mars 2012 à 08:28
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 22 mars 2012 à 08:28
A voir également:
- Excel VBA: Cliquer sur un hyperlien
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
5 réponses
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
21 mars 2012 à 16:38
21 mars 2012 à 16:38
Bonjour,
?? je ne comprend pas ce que tu veux faire, explique (sans formule) ce que tu veux faire exactement
A+
?? je ne comprend pas ce que tu veux faire, explique (sans formule) ce que tu veux faire exactement
A+
Jakematteau
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012
21 mars 2012 à 16:47
21 mars 2012 à 16:47
Salut! je veux créer une VBA qui
1- créé un hyperlien indiquant l'emplacement de ce même fichier excel (exemple: C:\Documents and Settings\Proprietaire\Bureau\classeur.xlsm)
2- clique sur l'hyperlien pour ouvrir l'emplacement indiqué (C'est cette partie qui ne fonctionne pas)
J'espère que c'est un peu plus clair!
Merci!
1- créé un hyperlien indiquant l'emplacement de ce même fichier excel (exemple: C:\Documents and Settings\Proprietaire\Bureau\classeur.xlsm)
2- clique sur l'hyperlien pour ouvrir l'emplacement indiqué (C'est cette partie qui ne fonctionne pas)
J'espère que c'est un peu plus clair!
Merci!
Jakematteau
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012
21 mars 2012 à 17:00
21 mars 2012 à 17:00
Mais je crois avoir compris que mon seul problème, c'est que ma dernière commander va cliquer seulement sur la cellule, et non sur le lien hypertexte qu'il y à l'intérieur! comment faire?
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 309
21 mars 2012 à 17:23
21 mars 2012 à 17:23
Bonjour,
j'ai essayer de faire une macro pourrie avec l'enregistreur de macro. J'ai créer un lien hypertexte. Puis lancé l'enregistreur, cliqué sur le lien, et arrêté l'enregistrement.
Je me suis retrouvé avec ceci :
A voir comment il faut l'adapter pour que ça marche pour vous.
Cordialement.
j'ai essayer de faire une macro pourrie avec l'enregistreur de macro. J'ai créer un lien hypertexte. Puis lancé l'enregistreur, cliqué sur le lien, et arrêté l'enregistrement.
Je me suis retrouvé avec ceci :
Range("C9").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
A voir comment il faut l'adapter pour que ça marche pour vous.
Cordialement.
Jakematteau
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012
21 mars 2012 à 18:06
21 mars 2012 à 18:06
Merci pour ta réponse. Ton raisonnement est très logique. Sauf qu'il ne fonctionne pas dans ma situation. Peut-être qu'il y a seulement seulement une petite adaptation que je ne connais pas. Voici la macro modifié:
Sub Macro11()
'
' Macro11 Macro
'
'
Range("A18").Select
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1),(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1)))"
Range("A18").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Merci!
Sub Macro11()
'
' Macro11 Macro
'
'
Range("A18").Select
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1),(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1)))"
Range("A18").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Merci!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
22 mars 2012 à 08:28
22 mars 2012 à 08:28
Créer un nouveau lien
Address -> le chemin complet et nom complet du fichier à atteindre
TextToDisplay -> Ce qui sera écrit dans la cellule
Sais pas si c'est vraiment ça que tu veux.
A+
Address -> le chemin complet et nom complet du fichier à atteindre
TextToDisplay -> Ce qui sera écrit dans la cellule
ActiveSheet.Hyperlinks.Add Anchor:=Range("A3"), Address:= _ "C:\Test\Test.txt", TextToDisplay:="Test.txt"
Sais pas si c'est vraiment ça que tu veux.
A+