Faire une suite de lien hypertexe via une suite de nombre

Salut,

tu fais ce code (en supposant que tes valeurs aillent de A1 à A1000, et en
remplaçant le chemin par le tien) :

Sub Liens()
Dim i As Integer

For i = 1 To 1000

ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:= _
"C:Documents and SettingsNeuroMes documents" & i & ".xls"

Next

End Sub

Ca marche ?

CAP2

"Nico" <Nico@discussions.microsoft.com> a écrit dans le message de news:
792E5A53-E106-4516-BD32-E97CF45720B2@microsoft.com...

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.

Bonjour Nico,
1. Tu recopie cette macro dans un module VBA.
Sub CréerLesLiens()
For Each XXX In Selection.Cells
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=XXX & ".xls"
Next XXX
End Sub

2. Tu sélectionnes les chiffres que tu veux transformer en lien et t u
exécutes la macro.

Corto

Nico a écrit :

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.

Merci pour ta réponse rapide,

Je le met où ce code ? O_o

Salut,

tu fais Alt+F11, puis sur la gauche de ton écran, tu dois voir ton fichier.
Tu cliques-droit dessus, puis Insertion, puis Module. Tu colles mon code
ajusté à ta sauce, puis tu fais F5 dessus, et c'est parti !!

Ca marche ?

CAP2

"Nico" <Nico@discussions.microsoft.com> a écrit dans le message de news:
C0ACA77E-1230-47EF-B178-8258A71CE8CD@microsoft.com...

Merci pour ta réponse rapide,

Je le met où ce code ? O_o

Merci a vous,

Ca marche nickel, mais il y a encore un petit soucis,
je voudrai que les 1000XLS soit crées d'avance (feuille vierge)

Du coups, quand je clique un lien, il me dit : impossible d'ouvrir la page

Merci encore.

Bonjour Nico,
Pour créer les fichiers en même temps, tu modifies la macro com me
ci-dessous :
Sub CréerLesLiens()
For Each XXX In Selection.Cells
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=XXX & " .xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= XXX & ".xls"
Next XXX
End Sub

Corto

Nico a écrit :

Merci a vous,

Ca marche nickel, mais il y a encore un petit soucis,
je voudrai que les 1000XLS soit crées d'avance (feuille vierge)

Du coups, quand je clique un lien, il me dit : impossible d'ouvrir la p age

Merci encore.

Salut,

pour créer les fichiers vierges avant de lancer l'autre macro, tu fais :

Sub Creer()
Dim i as integer

For i =1 to 1000

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsNeuroMes documents" & i & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse

Next

End Sub

Ca marche ?

CAP2

"Nico" <Nico@discussions.microsoft.com> a écrit dans le message de news:
6328C920-6091-43E8-8325-A94B19C0DAC0@microsoft.com...

Merci a vous,

Ca marche nickel, mais il y a encore un petit soucis,
je voudrai que les 1000XLS soit crées d'avance (feuille vierge)

Du coups, quand je clique un lien, il me dit : impossible d'ouvrir la page

Merci encore.

Qu'est ce que je met après : For Each XXX In Selection.Cells
Et là : Next XXX

Merci.

"CAP2" a écrit :

Salut,

pour créer les fichiers vierges avant de lancer l'autre macro, tu fais :

Sub Creer()
Dim i as integer

For i =1 to 1000

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsNeuroMes documents" & i & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse

Next

End Sub

Ca marche ?

Ca marche pas il est rouge le code...

;o))

C'est juste dans les retours à la ligne de mon code. Il faut que tu
supprimes le signe _ (par exemple au niveau de la ligne
"ActiveWorkbook.SaveAs Filename:= _", et que tu fasses remonter le texte du
dessous sur la mâme ligne, et ça va le faire !!


Ca marche ?

CAP2

"Nico" <Nico@discussions.microsoft.com> a écrit dans le message de news:
4AB169C3-F1A3-4F35-949A-CED349D413F2@microsoft.com...

"CAP2" a écrit :

Salut,

pour créer les fichiers vierges avant de lancer l'autre macro, tu fais :

Sub Creer()
Dim i as integer

For i =1 to 1000

Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsNeuroMes documents" & i & ".xls",
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, _
CreateBackup:úlse

Next

End Sub

Ca marche ?

Ca marche pas il est rouge le code...