Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Faire une suite de lien hypertexe via une suite de nombre

Faire une suite de lien hypertexe via une suite de nombre

50 réponses
Avatar
Nico
Bonjour,

J'ai une suite de nombre qui va jusqu'a 1000,
je dois creer un lien hypertexte sur chaque nombre.

Je m'explique : le nombre 90 ouvrira la page 90.xls
Le nombre 999 ouvrira la page 999.xls.
Ect....

Je sais faire pour un lien à la fois, mais vous avez pas une
petite formule pour me faciliter le travail ?

Merci d'avance.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
Nico
Toujours ce problème de 98.xls a partir de 99 à 1000... rien à faire...

Je copie le code :

Sub liens()
Dim cell As Range

For Each cell In Range(Range("H66"), Range("H1020"))

ActiveSheet.Hyperlinks.Add Anchor:Îll, Address:="K:ClientsCahier des
réclamationsFiches de garantie" & cell.Value & ".xls"

Next

End Sub
Avatar
Nico
Et je viens de remarquer que de 971 à 1000 j'ai le lien : 1000.xls
Avatar
CAP2
Je suis désolé Nico, je ne reproduis pas l'erreur sur mon poste. Ca
fonctionne jusqu'au bout...

Je continue de chercher ;o))

CAP2

"Nico" a écrit dans le message de news:

Toujours ce problème de 98.xls a partir de 99 à 1000... rien à faire...

Je copie le code :

Sub liens()
Dim cell As Range

For Each cell In Range(Range("H66"), Range("H1020"))

ActiveSheet.Hyperlinks.Add Anchor:Îll, Address:="K:ClientsCahier des
réclamationsFiches de garantie" & cell.Value & ".xls"

Next

End Sub





Avatar
Nico
"CAP2" a écrit :

Je suis désolé Nico, je ne reproduis pas l'erreur sur mon poste. Ca
fonctionne jusqu'au bout...



Merci, désolé de te faire chercher, on se recontacte demain...
J'espere qu'on trouvera ce bug...
Avatar
Nico
"CAP2" a écrit :

Bonjour,

As tu trouvé quelque chose qui me sauverai la vie ? :D

Merci,
Avatar
CAP2
Salut,

Première chose : As-tu vérifié si tes 1000 fichiers .xls sont bien créés ?
Ensuite, peux-tu copier/coller le code que tu as mis en place sur ton poste
pour qu'on y jette un coup d'oeil, on ne sait jamais ;o))

CAP2

"Nico" a écrit dans le message de news:

"CAP2" a écrit :

Bonjour,

As tu trouvé quelque chose qui me sauverai la vie ? :D

Merci,


Avatar
CAP2
Salut,

on change de tactique. Essaie ça (toujours en mettant ton chemin à toi ) :

Sub liens()

Dim i As Integer

For i = 66 To 1020

ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i),
Address:="C:Documents and SettingsNeuroMes documentstests" & i - 20 &
".xls"

Next

End Sub

Ca marche ?

CAP2

"Nico" a écrit dans le message de news:

"CAP2" a écrit :

Bonjour,

As tu trouvé quelque chose qui me sauverai la vie ? :D

Merci,


Avatar
Nico
Salut,

Oui mes fichiers ont bien été créés...

Les nouveau code est rouge :

Sub liens()

Dim i As Integer

For i = 66 To 1020

ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i)
Address:="K:ClientsCahier des réclamationsFiches de garantie" & i - 20 &
".xls"

Next

End Sub
Avatar
CAP2
Salut,

attention à l'affichage de mon post !!

Il faut écrire la ligne Activesheet.......... TOUT SUR UNE SEULE LIGNE !!

Ca marche ?

CAP2

"Nico" a écrit dans le message de news:

Salut,

Oui mes fichiers ont bien été créés...

Les nouveau code est rouge :

Sub liens()

Dim i As Integer

For i = 66 To 1020

ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i)
Address:="K:ClientsCahier des réclamationsFiches de garantie" & i - 20
&
".xls"

Next

End Sub




Avatar
Nico
J'ai réussi a faire marcher le code :

Sub liens()

Dim i As Integer

For i = 66 To 1020

ActiveSheet.Hyperlinks.Add Anchor:=Range("H" & i),
Address:="K:ClientsCahier des réclamationsFiches de garantie" & i - 20 &
".xls"

Next

End Sub

Mais malgrès ça de 99 à 1000 il me dit : l'adresse de ce site n'est pas
valide...
1 2 3 4 5