Création d'une page supplémentaire

[Nico]

Salut à vous tous,

la macro suivante ne fonctionne pas je le voudrais, je désirerais ajout autant de feuille supplémentaire que possible, en changer le nom mais cela ne fonctionne pas, car à chaque nouvelle création, la feuille à un numéro que je ne maîtrise pas et son changement de nom m'est encore pas très clair.
Voici ce que j'ai écrit :


Sub Add_Tabelle()
'
' Add_Tabelle Makro
' Makro am 05.05.2003
'
Dim n As Integer, m As Integer
Dim Name1 As Name
Dim Name2 As Name
'
For n = 1 To 3
Sheets.Add
m = 15 + n
Name1 = "Tabelle" + m
Name2 = "Variant " + n
Sheets("Name1").Name = Name2
Next n
End Sub


Merci d'avance pour le coup de pouce
Nico

 

[renato]

salut nico et forum
Essai de remplacer

dim Name1 as name

par

dim name1 as string etc......
bonne chance

 

[Nico]

Merci renato,

je viens d'essayer et cela est sans succès, hmmmmmm ..... grrrrrrr !?!?

 

[renato]

resalut
a désolé j'ai pas fait attention mais tu dois aussi rectifier
name1 = "Tabelle" & m

et non +

 

[renato]

désolé pour la coupure, je suis plutot engourdi ces temps ci.
si cela ne fonctionne toujours pas
tu devrais revoir l'analyse de ton algorythme.
tu fais sheets.add, excel nomme la nouvelle feuille ???
ensuite tu fais m + 15 + n, pourquoi 15 ?
pourquoi "Tabelle"? et non Feuil1 ......
Quoi qu'il en soit à chaque création excel mémorise le nombre de feuille crées et si tu lance la macro une seconde fois, ta boucle conditionelle
1 TO 3 ne sera plus valable.

Il serait plus rentable d'utiliser la fonction suivante :
name1 = activesheet.name
elle t'exonere du nom aléatoire de la feuille crée et place ce nom quel qu'il soit en name1.
Ensuite, name1 etant une variable n'a pas a etre mise entre " name1 ".
Sinon a part cela ta boucle conditionelle me semble valable et elle se traduira de la façon suivante :

Sub Add_Tabelle()
'
' Add_Tabelle Makro
' Makro am 05.05.2003
'
Dim n As Integer, m As Integer
Dim Name1 As String
Dim Name2 As String
'
For n = 1 To 3
Sheets.Add
Name1 = activesheet.name
Name2 = "Variant " + n
Sheets(Name1).Name = Name2
Next n
End Sub

Voilà, cela devrait fonctionner si je n'ai pas encore loupé quelque chose
bonne chance @+ à tout le monde.