Sujet Précédent Sujet Suivant

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 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 22 mars 2012 à 08:28
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!!

A voir également:

5 réponses

Réponse 1 / 5
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
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+
0
Réponse 2 / 5
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
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!
0
Réponse 3 / 5
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
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?
0
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
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 : 
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.
0
Réponse 4 / 5
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
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!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
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 
    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+
0

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses