Problème avec macro hyperlink.add

[Arnaud61]

Bonjour

J'ai un soucis lorsque je veux créer un lien hypertexte dans une macro.

Voici un bout de ma macro:

o = Sheets.Count
formule = CStr(Worksheets("Travaux Arnaud - Récap").Range("A6").FormulaLocal)
Worksheets("Travaux Arnaud - Récap").Range("A" & o + 2).FormulaLocal = Replace(formule, "1", CStr(o - 3))
With Worksheets("Travaux Arnaud - Récap")
.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
        "Tâche N°" & o - 3
End With

Lorsque je crée une nouvelle feuille (Tâche N°2) , je récupère le numéro de la feuille (2) que je mets dans une feuille récapitulative (Travaux Arnaud - Récap) .

J'aimerais que ce numéro (2) contienne le lien hypertexte qui puisse me renvoyer sur la feuille (Tâche N°2)

Pour cela, après avoir explorer le forum j'utilise la fonction hyperlink.add

.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
        "Tâche N°" & o - 3

Je pense qu'il me manque le fait de dire de m'afficher la bonne tâche sur la cellule "A1"

J'ai essayé :

.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
        [COLOR="red"]([/COLOR]"Tâche N°" & o - 3[COLOR="Red"]!A1)[/COLOR]

mais ça ne marche pas...

Avez-vous la solution à mon problème?

Merci

 

[Pierrot93]

Re : Problème avec macro hyperlink.add

Bonjour Arnaud

essaye peut être comme ceci :

.Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:= _
"Tâche N°" & o - 3 & "!A1"

non testé...

bonne journée
@+

 

[Arnaud61]

Re : Problème avec macro hyperlink.add

Bonjour Pierrot93

J'ai déjà tenter cette syntaxe mais ça ne fonctionne pas...

Merci quand même

 

[Pierrot93]

Re : Problème avec macro hyperlink.add

Re

tu devrais peut être mettre mettre ton fichier en pièce jointe avec l'intégralité du code, car là comme ca difficile à dire, je viens de tester le code ci dessous qui fonctionne chez moi :

ActiveSheet.Hyperlinks.Add Anchor:=Range("A2"), Address:="", SubAddress:= "Feuil1" & "!A1"

il faut vérifier que tes differentes variables soient bien valorisées..

@+

 

[Arnaud61]

Re : Problème avec macro hyperlink.add

J'ai trouvé mon erreur.

o = Sheets.Count
formule = CStr(Worksheets("Travaux Arnaud - Récap").Range("A6").FormulaLocal)
Worksheets("Travaux Arnaud - Récap").Range("A" & o + 2).FormulaLocal = Replace(formule, "1", CStr(o - 3))
With ActiveSheet = ("Travaux Arnaud - Récap")
Hyperlinks.Add Anchor:=Range("A" & o + 2), Address:="", SubAddress:=" 'Tâche N°" & o - 3 & "'!A1"
End With

Ce code se trouve sur une feuille nommée 'Nouvelle Tâche'.
Le lien hypertexte se crée sur cette feuille.

Je souhaite que le lien se crée sur la feuille 'Travaux Arnaud - Récap'

Comment faire?

 

[Arnaud61]

Re : Problème avec macro hyperlink.add

J'ai trouvé la solution:

Je devais rajouter la sheet dans le Anchor!

Problème résolu