Microsoft 365 Copier et renommer onglets par VBA

[grisouille]

Bonjour,

J'ai un fichier avec un onglet que je voudrai dupliquer un certain nombre de fois et renommer en même temps les onglets crées qui peuvent avoir des noms quelconques chacun. Puis à partir des onglets nouvellement crées j'aimerai les récapituler les uns à la suite des autres sur un autre onglet.
Merci pour votre aide.

 

[gbinforme]

j'aimerai les récapituler les uns à la suite des autres sur un autre onglet.

bonjour,
Avec des données aussi disparates j'aimerai bien voir comment sera réalisée la récapitulation.
Il me semble qu'une réflexion sur la structuration des données serait primordiale.

 

[vgendron]

bonjour

pour copier l'onglet "Prog" x fois

sub test()
x=5 'nombre de copies
for i= 1 to x
sheets("Prog").copy after:=sheets(Sheets.count) 'on copie l'onglet Prog et on le place en dernier
activesheet.name="Nom" &i 'on renomme l'onglet qui vient d'etre créé
next i
end sub

 

[grisouille]

Merci à vous deux pour vos réponses.
Pour la solution de vgendron, il faut aller modifier le nb (qui est aléatoire suivant les besoins) à chaque fois dans la macro.
J'ai fait une macro (module 3) qui me permet de déterminer le nb mais je voudrais renommer les onglets en même temps (les noms peuvent être quelconques).
Pour la récapitulation je ne vois pas en quoi la structuration gêne. Je voudrai recopier les onglets (le nb de lignes peut être différent) créés les uns à la suite des autres avec un saut d'une ligne entre chaque.
J'ai oublié de préciser dans mon premier fichier que j'ai un onglet (dans l'exemple Feuil1) que je ne veux pas voir apparaître dans la récap.