Faire une suite de lien hypertexe via une suite de nombre

Le
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.
Vos réponses Page 1 / 5
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
CAP2
Le #16619551
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"
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.


Corto
Le #16619541
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.



Nico
Le #16619231
Merci pour ta réponse rapide,

Je le met où ce code ? O_o
CAP2
Le #16619211
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"
Merci pour ta réponse rapide,

Je le met où ce code ? O_o


Nico
Le #16619201
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.
Corto
Le #16619181
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.



CAP2
Le #16619161
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"
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.


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

Merci.
Nico
Le #16619931
"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...
CAP2
Le #16619921
;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"


"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...


Publicité
Poster une réponse
Anonyme