Macro pour copier une feuille et renommer

Fermé

Feuille

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 12 août 2009 à 23:52
nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 - 15 oct. 2009 à 17:23

Bonjour à tous,

J'ai à nouveau besoin de votre aide.
Voilà j'ai un fichier excel où j'ai créé 3 feuilles nommées "S 1", "N 1" et "C 1".

Je souhaiterai réaliser une macro qui me copie 51 fois la feuille "S 1" tout en me renommant au fur et à mesure les copies en "S 2", "S 3"...jusqu'à "S 52" donc.

Si vous pouviez me donner la solution ce serait super car je galère vraiment avec VBA...

nb : ensuite je compte réexécuter cette même macro (en changeant les termes des pages bien sûr) pour copier 51 fois la feuille "N 1" et 51 fois la feuille "C 1".

merci d'avance.

A voir également:

Excel - vba copier feuille et renommer
Liste déroulante excel - Guide
Si et excel - Guide
Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
Feuille de pointage excel - Télécharger - Tableur
Renommer plusieurs fichiers - Guide

8 réponses

Réponse 1 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
13 août 2009 à 11:41

Salut,
Comme ceci :

Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String
ongl = InputBox("Saisir ici la lettre figurant dans le nom de la feuille à dupliquer. Exemple S ou N ...", "Nom de l'onglet à dupliquer")
For i = 1 To 51
Sheets(ongl & " " & i).Select
Sheets(ongl & " " & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & " " & i + 1
Next i
End Sub

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
13 août 2009 à 14:58

Merci pijaku pour ta réponse,

Cependant j'ai quelques soucis avec ta procédure.

Voici donc la procédure que j'ai écrit dans VBA en remplaçant avec mes termes pour copier ma feuille "S1" en 51 exemplaires :

Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String
ongl = InputBox("S", "S1")
For i = 1 To 51
Sheets(ongl & " " & i).Select
Sheets(ongl & " " & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & " " & i + 1
Next i
End Sub

Quand j'éxécute la macro, j'ai une première fenêtre qui s'ouvre sur ma page. Cette fenêtre s'appelle "S1" et dedans il y a écrit "S", il y a un espace vide où je peux écrire quelqueschose et il y a deux boutons "OK" et "annuler".

Si je fais "Ok" j'ai alors une autre fenêtre qui s'ouvre avec le message d'erreur
"Erreur déxécution'9':
L'indice n'appartient pas à la sélection"

Et si je fais "débogage", j'ai la ligne "Sheets(ongl & " " & i).Select" qui est souligné en jaune dans VBA.

Voilà, est-je donc fait une erreur dans les termes que j'avais à remplacer dans la procédure que tu m'a donné où est-ce un souci dans la procédure en elle-même.

nb : j'espère avoir été le plus clair possible pour expliquer le souci, désolé sinon je débute vraiment.

Réponse 2 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
13 août 2009 à 15:07

Non. En fait la boîte de dialogue te permet de rentrer le nom de l'onglet que tu souhaites dupliquer. Tu dois donc saisir par exemple S (ou N ou C) et cliquer sur OK pour dupliquer 52 fois la page correspondante...
Tu peux même ajouter à cette macro une autre boîte de dialogue qui te permettrais de choisir le nombre de duplication que tu veux... Comme ceci :

Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String, nomb as string
nomb = InputBox("Nombre de fois que vous souhaitez dupliquer la feuille", "Nombre")
nomb = nomb - 1
ongl = InputBox("S", "S1")
For i = 1 To nomb
Sheets(ongl & " " & i).Select
Sheets(ongl & " " & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & " " & i + 1
Next i
End Sub

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
13 août 2009 à 15:16

Oui mais si j'écrit "S1" dans la boite de dialogue cela ne fonctionne toujours pas et ça me renvoit le même message d'erreur.

Que dois noter exactement dans la boite de dialogue :
S ?
"S" ?
S1 ?
"S1" ?

Merci de ton aide et de ta patience en tout cas.

Réponse 3 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
13 août 2009 à 15:25

Quel est le nom de tes feuilles?
S espace 1?
S1 collés?

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
13 août 2009 à 15:41

Le nom de ma feuille à copier est "S1" sans espace

Réponse 4 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
13 août 2009 à 15:44

Alors il y a une petite erreur sur la macro... code corrigé:

Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String
ongl = InputBox("S, N ou C", "Qu'elle feuille dupliquer?")
For i = 1 To 51
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
End Sub

Il faut donc saisir S, N ou C selon ton choix

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
13 août 2009 à 16:11

Ok merci beaucoup pour cette première solution.
Maintenant en fait apèrs réflexion j'ai une autre petite variante pour un autre claseur.

Dans mon autre classeur ma première feuille s'appelle "S36" ('comme semaine 36), ma seconde feuille s'appelle "Nat S36" ('comme natation semaine 36) et ma troisième feuille s'appelle "CàP S36" ('comme course à pied semaine 36).

Je voudrai faire des copies de ces pages dans un premier temps pour aller jusqu'à la semaine 53 (donc "S52", "Nat S53" et "CàP S53") puis je ferai une copie de chaque feuille manuellement pour créer "S1", "Nat S1" et "CàP S1" que je souhaiterai ensuite copier jusqu'à "S35", "Nat S35" et "CàP S35".

'En fait je suis entraineur sportif et il s'agit d'une planification d'entraînement allant de la semaine 36 de l'année 2009 jusqu'à la semaine 35 de l'année 2010.

J'ai donc essyer ce code selon ton modèle pour dupliquer la feuille "S36" jusqu'à la feuille "S52":
Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String
ongl = InputBox("S", "S36")
For i = 36 To 52
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
End Sub

Mais ça ne fonctionne pas. Au moment du débogage le problème semble provenir de cette ligne :
Sheets(ongl & i).Copy After:=Sheets(i + 2)

Quel est le souci cette fois-ci ?

Réponse 5 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
13 août 2009 à 16:43

Voilà qui tient compte de ton souci :

Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String
ongl = InputBox("Saisir : S ou CàP S ou Nat S", "NOM de la feuille")
Sheets(ongl & "36").Name = ongl & "1"
For i = 1 To 52
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
Sheets(ongl & "36").Select
End Sub

Ne change rien. Il faut saisir dans la boite de dialogue soit
1- S
2- Nat S
CàP S

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
13 août 2009 à 18:33

Ok Pijaku,

J'ai toujours un petit souci :
Voilà j'ai un fichier où j'ai une feuille "S1", une feuille "Nat S1" et une feuille "CàP S1".
Sur ce classeur c'est comme dans mon tout premier cas : de la semaine 1 à la semaine 52 (et non comme dans le cas précédent de la semain 36 2009 à la semaine 35 2010).

J'ai donc utiliser ta première formule pour dupliquer chaque feuille jusqu'à la semaine 52 à savoir :
Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String
ongl = InputBox("Saisir : "S ou CàP S ou Nat S", "NOM de la feuille")
For i = 1 To 51
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
End Sub

Cela a très bien fonctionné pour les feuilles "S" et Nat S". J'ai donc 52 maintenant feuilles "S" suivies de 52 "Nat S" suivies d'une feuille "CàP S1".

Mon souci est que lorsque je relance la macro pour dupliquer la feuille "CàP S1", cela ne fonctionne pas et le message d'erreur suivant s'affiche :
Erreur d'exédution '1004':
"la methode Copy de la classe WoorkSheet a échoué."

Et quand je fais "débogage" la ligne : "Sheets(ongl & i).Copy After:=Sheets(i + 2)" est en jaune.

Pourqui cela ne fonctionne plus alors que ça a fonctionné pour les feuilles "S" et "Nat S" ??

Réponse 6 / 8

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
14 août 2009 à 09:02

Salut,
Je reprends aujourd'hui... Bien dormi?
Ici cela fonctionne... Je ne comprends donc pas ce qui t'arrive. As tu bien écris CàP S (C majuscule à accent P majuscule espace S majuscule)?

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
14 août 2009 à 13:09

Bonjour pijaku,

Alors en fait j'ai résolu le problème sans l'avoir trop compris.

Voilà en fait comme je te l'expliquais j'avais donc réussi à faire les copies des pages S et Nat S mais quand je lançais la macro pour les pages CàP S alors j'avais 17 ou 18 copies qui s'effectuaient puis un message d'erreur apparaissait. J'aidonc essayer de faire des copies manuellement de mes pages CàP S mais en vain. Par contre bizarrement je pouvais insérer de nouvelles pages vierges dans mon classeur.
Bref j'ai tenté d'enregistré mon fichier, j'ai fermé puis réouvert mon fichier et la j'ai relancé la macro en modifiant bien sûr le nombre de pages souhaitées. Ca m'a recopier 17 ou 18 pages sans souci avant de me remettre le message d'erreur. J'ai donc recommencé l'opération (enregistrer/fermer/ouvrir) jusqu'à ce que le compte soit bon.

As-tu une idée du problème qui a pu se passer histoire que je me couche moins bête ce soir ?

En tout cas merci de ton aide.
En ce qui concerne sinon la petite variente pour mon fichier qui va cette fois-ci de la semaine 36 2009 à la semaine 35 2010, j'avoue ne pas avoir encore eu le temps d'essayer ta solution. Je vais essayer ça cet après midi (enfin si je trouve un petit moment) et je te tiens au courant.

Merci.

Réponse 8 / 8

nemotri Messages postés 175 Date d'inscription dimanche 9 août 2009 Statut Membre Dernière intervention 8 décembre 2017 35
15 oct. 2009 à 17:23

Bonjour,

Bon et bien désolé je suis obligé de déterrer mon post.
Je suis en train de refaire un classeur excel du même type que ce que j'avais fait pour mon premier post, à savoir :
J'ai un classeur avec 3 feuilles nommées S43, Nat S43 et CàP S43.
Je souhaiterai réaliser une macro pour dupliquer dans un premier temps la feuille S43 en 10 exemplaires tout en renommant à chaque fois en S44, S45...jusqu'à S53 (pour semaine 53). Ensuite je veux créer Une feuille S1 manuellement puis relancer la macro pour copier la feuille S1 en 41 exemplaires et les renommer de la même façon S2, S3...jusqu'à S42.
Je veux aussi faire la même chose pour mes feuilles Nat S43 et CàP S43

j'ai repris ce qu'on m'avait dit plus haut à savoit cette macro :

Sub dupliquer_feuilles()
Dim i As Integer
Dim ongl As String
ongl = InputBox("Saisir : S ou CàP S ou Nat S", "NOM de la feuille")
Sheets(ongl & "43").Name = ongl & "1"
For i = 1 To 53
Sheets(ongl & i).Select
Sheets(ongl & i).Copy After:=Sheets(i + 2)
ActiveSheet.Name = ongl & i + 1
Next i
Sheets(ongl & "43").Select
End Sub

'j'ai remplacé les numéros de pages par les correctes par rapport à mon cas précédent.

Problème : quand je lance la macro, la boite de dialogue s'ouvre bien et me demande le nom de page. Je rentre alors S et j'éxécute. Seulement ça me lance des copies qui se nomment S1, S2, S3...jusqu'à S9 puis un message d'erreur apparaît :

"Erreur d'éxécution '1004':
La méthode Copy de la classe Worsheet a échoué"

et quand je fais débogage, c'est cette ligne qui apparaît en jaune dans la procédure :

Sheets(ongl & i).Copy After:=Sheets(i + 2)

Quel est le problème ?

Merci.

ps : en lançant les copies, ça me supprime même ma feuille S43 qui n'apparaît plus dans mon classeur.

Discussions similaires

Copier et renommer une feuille selon des Box

Copier un onglet, le recopier et le renommer

VBA - Ajouter / Copier une feuille dans un classeur

Découper un pdf en plusieurs petits pdf

Renommer un grand nombre de pdf différemment?

Scinder/renommer un PDF grâce aux numéros de pages et en-tête

Discussions similaires

Newsletters