Excel VBA: Cliquer sur un hyperlien [Fermé]

Signaler
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012
-
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
-
Bonjour, J'ai un petit souci en VBA, je ne suis pas vraiment habitué.

J'ai créé une macro qui est sensé faire ceci:

1-créé un hyperlien en indiquant l'emplacement de ce fichier excel (fonctionne parfaitement)
2-cliquer sur cet hyperlien pour ouvrir le dossier contenant ce fichier excel (problème)

Voici la macro:

Sub Macro5()
'
' Macro5 Macro
'

'
Range("A9").Select
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1),(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1)))"
Range("A9").Select


End Sub

VBA semble incapable de cliquer sur un lien hypertexte s'il n'est pas fixe (écrit à la main et non à partir d'une formule)

Et comme vous devez vous en douter, je ne peux avoir une adresse fixe. en fait ce fichier excel sera copié dans 23000 dossier différent pour une compatibilité avec un système MRP.


Merci d'avance pour votre aide!!

5 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 166
Bonjour,
?? je ne comprend pas ce que tu veux faire, explique (sans formule) ce que tu veux faire exactement
A+
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012

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!
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012

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?
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 322
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 :
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.
Messages postés
4
Date d'inscription
mercredi 21 mars 2012
Statut
Membre
Dernière intervention
21 mars 2012

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!
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 166
Créer un nouveau lien
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+