C
christian.bedere
Guest
Salut chers rescapés de la starAc !! lol
Je suis sur un classeur avec des liens hypertextes.
Je saisis au fur et à mesure des nouvelles feuilles ds mon classeur, et grâce à Michel (que je remercie grâce à wiki), j'ai pu créer un répertoire avec les liens qui vont chercher automatiquement les feuilles voulues, avec cette formule :
Sub creerLiensFeuilles()
Dim I As Byte, J As Byte
Dim Valeur As String
For I = 1 To Sheets.Count
If Not Sheets(I).Name = 'Bilan' Then
Valeur = ''' & Sheets(I).Name & ''!A1'
J = J + 1
Worksheets(I).Hyperlinks.Add Anchor:=Sheets('Bilan').Cells(J, 1), Address:='', subAddress:=Valeur
End If
Next I
End Sub
Une question se pose à moi :
Comment faire pour que lorsque je clique sur la macro qui crée les liens hyp, les liens inscrits précédement ne soient pas effacés, car pour l'instant à chaque fois que j'actualise, je dois réécrire les liens et c'est donc une perte de temps.
Merci pour votre aide
Christian
Je suis sur un classeur avec des liens hypertextes.
Je saisis au fur et à mesure des nouvelles feuilles ds mon classeur, et grâce à Michel (que je remercie grâce à wiki), j'ai pu créer un répertoire avec les liens qui vont chercher automatiquement les feuilles voulues, avec cette formule :
Sub creerLiensFeuilles()
Dim I As Byte, J As Byte
Dim Valeur As String
For I = 1 To Sheets.Count
If Not Sheets(I).Name = 'Bilan' Then
Valeur = ''' & Sheets(I).Name & ''!A1'
J = J + 1
Worksheets(I).Hyperlinks.Add Anchor:=Sheets('Bilan').Cells(J, 1), Address:='', subAddress:=Valeur
End If
Next I
End Sub
Une question se pose à moi :
Comment faire pour que lorsque je clique sur la macro qui crée les liens hyp, les liens inscrits précédement ne soient pas effacés, car pour l'instant à chaque fois que j'actualise, je dois réécrire les liens et c'est donc une perte de temps.
Merci pour votre aide
Christian