Discussion :

[fllyann]

Bonjour à tous,

Me voici devant un petit soucie et j'ai besoin de vos connaissances svp

mon problème est que quand je crée un lien hypertexte sur ma feuille erreur ( qui doit pointer sur ma feuille LectureDbUser) mon lien se crée bien mais pointe sur la cellule de la feuille erreur... :'(
voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim AdresseErreur1 As String
 
AdresseErreur1 = Range("A" & numeroDeLigne).Address
 
Range("C" & erreurNum).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="tests.xls", SubAddress:= _
AdresseErreur1, TextToDisplay:="Lien"

Voilà j'ai tenté d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim AdresseErreur1 As String
Dim LectureDBUser As Worksheet
 
AdresseErreur1 = Range("A" & numeroDeLigne).Address
 
Range("C" & erreurNum).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="tests.xls", SubAddress:= _
LectureDBUser!AdresseErreur1, TextToDisplay:="Lien"

j'ai aussi remplacé le LectureDBUser par :
Worksheets("LectureDBUser") dans un petit moment de folie....


Voilà merci de bien m'aider ^^
Cordialement
Yann

[pgz]

Bonjour.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AdresseErreur1 = "LectureDbUser!" & Range("A" & numeroDeLigne).Address

Cordialement,

PGZ

[fllyann]

Merci pgz ça fonctionne... j'ai presque honte de ma nullité sur le coup....