Ajout d'hyperlink sous VBA, les spécialistes sont attendus

[thibaut_chaps]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
nom = TextBox2.Value
a = Sheets.Count
Sheets("consulcompte").Copy After:=ThisWorkbook.Sheets(a)
Sheets(a + 1).Select
Sheets(a + 1).Name = nom
 
Sheets(a + 1).Range("B4") = TextBox2.Value
Sheets(a + 1).Range("B6") = TextBox7.Value
 
UserForm1.Hide
Sheets("Mescomptes").Select
 
WorkSheets("Mescomptes").Hyperlinks.Add anchor:=Range("C17"), Address:="Projet excell234.xls", SubAddress:="(Textbox2.value)!A1", TextToDisplay:="NomOnglet.xls"

Explications
WorkSheets("Mescomptes") correspond à ma feuille sur laquelle je veux que le lien s'ajoute
Range("C17") correspond à ma cellule dans mn tableau ou se trouve le numero de compte bancaire
Projet excell234.xls correspond au classeur
Textbox2.value correspond au numéro de compte nouvellment créer.
Je ne vois pas ou sont les erreurs et pourquoi ca ne veut pas marcher!!

En fait, j'aicréer une macro qui en se servant d'une feuille source me la recopie à chaque fois qu'un compte est créer. cette nouvelle feuille porte donc le nom du numero de compte que l'on trouve dans la textbox2 de mon userform.
Mais le problème est que j'ai besoin de créer un lien hypertexte pour pouvoir revenir ensuite sur cette feuille de compte.
Alors j'ai rajouter à la ligne de code précédente une formule ci dessus pour qu'un lien hypertexte se créer automatiquement mais je n'arriove pas à l'adapter et cane marche pas.
De plus, j'aurais plusieurs numero de compte avec plusieurs liens donc il me faut une ligne de code qui me crere automatiquement un lien vers les feuilles a chaque cretaion de compte
C'est très urgent. J'ai voulu tout gérer seul mais l'homme a ses limites alors svp repondez a mon message.
Merci à tous

[cafeine]

Bonjour aussi,

tu devrais peut être ôter ton numéro de mobile ... c'est rarement une bonne idée de laisser trainer ça sur l'internet.

t'as cherché dans la FAQ ?
http://vb.developpez.com/faqvba/?rechercher=hyperlink

[thibaut_chaps]

Oui j'ai regarder mais ca ne répond pas à mon problème.
Moi j'ai besoin de connaitre ce qu'on doit mettre dans la formule ou du moins ce qu'il y a de juste dans ma formule hyperlink ou ce qu'il y a de faux et dans ce cas, qu'on m'aide à terlminer cette lkligne de code. Je ne sais pas ce que je dois mettre quand le nom de la feuille n'est pas connu d'avance puisuq'il depend de numero de comlpte qui seront crer dans le futur.

[cafeine]

Si ta seule difficulté c'est de que tu ne connais pas à l'avance ton nom d'onglet ...

pourquoi tu n'utilises pas ?

Code :

Sheets(UnNumeroQuelconque).Name

Envoyé par thibaut_chaps

Oui j'ai regarder mais ca ne répond pas à mon problème.
Moi j'ai besoin de connaitre ce qu'on doit mettre dans la formule ou du moins ce qu'il y a de juste dans ma formule hyperlink ou ce qu'il y a de faux et dans ce cas, qu'on m'aide à terlminer cette lkligne de code. Je ne sais pas ce que je dois mettre quand le nom de la feuille n'est pas connu d'avance puisuq'il depend de numero de comlpte qui seront crer dans le futur.

[alsimbad]

restons calme. le nom de la feuille n'est pas créé dans le futur mais au moment ou tu valide ton usf, donc à ce moment la tu le connais

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
nom = TextBox2.Value
a = Sheets.Count
Sheets("consulcompte").Copy After:=ThisWorkbook.Sheets(a)
Sheets(a + 1).Select
Sheets(a + 1).Name = nom
Sheets(a + 1).Range("B4") = "TextBox2.Value"
Sheets(a + 1).Range("B6") = "TextBox7.Value"
UserForm1.Hide
Sheets("Mescomptes").Select
nom = "'" & nom & "'"
 
Worksheets("Mescomptes").Hyperlinks.Add Anchor:=Range("C17"), Address:="", _
SubAddress:=nom & "!A1", TextToDisplay:=nom

il te reste le probleme du c17. si tu n'y fais rien, la macro te positionnera toujour le nouveau lien a cette place en effaçant le précédent. j'attend de voir ton fichier pour voir comment determiner la position ou il doit etre placé