Excel VBA: Cliquer sur un hyperlien

Jakematteau Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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