dupliquer 2 feuille avec vba

[cybertom]

Bonjour a tous j'essai de dupliquer deux feuilles avec un code vba mais je n’y parviens pas en fait se que je souhaiterai faire c'est de dupliquer et renommer les 2 feuilles et en garder l'ordre initial ex: 1° feuille- semaine 1 et 2°feuille- Horaire Sem.1 et ainsi de suite j'ai essayer avec se code mais sa ne marche que pour une feuille esque quelqu'un peut m'aider
code utiliser dans mon teste:
Sub CopieFeuilles()


For Compteur = 52 To 2 Step (-1)

Sheets("Semaine 1").Select
Sheets("Semaine 1").Copy After:=Sheets(1)
NomFeuille = "Semaine " & Compteur
ActiveSheet.Name = NomFeuille

Next
End Sub
merci de votre réponse

 

[Papou-net]

Re : dupliquer 2 feuille avec vba

Bonjour cybertom, et bienvenue sur le site,

Essaie simplement comme ceci :

For Compteur = 1 To 52
Sheets("Semaine " & Compteur).Copy After:=Sheets("Semaine " & Compteur)
ActiveSheet.Name = "Horaire Sem. " & Compteur
Next

Bonne soirée.

Cordialement.

 

[cybertom]

Re : dupliquer 2 feuille avec vba

Merci pou ta réponse j'ai réussie avec ceci et sa marche:
Sub CopieFeuilles()


For Compteur = 52 To 2 Step (-1)

Sheets("Horaires Sem. 1").Select
Sheets("Horaires Sem. 1").Copy After:=Sheets(1)
NomFeuille = "Horaires Sem. " & Compteur
ActiveSheet.Name = NomFeuille

Sheets("Semaine 1").Select
Sheets("Semaine 1").Copy After:=Sheets(1)
NomFeuille = "Semaine " & Compteur
ActiveSheet.Name = NomFeuille



Next
End Sub

mon souci c'est que je veut que la date se mette a jour sur les feuilles copier mais la j'ai bon chercher et je ne trouve rien sur le forum je joins un classeur qui t'aidera a mieux comprendre

 

[Papou-net]

Re : dupliquer 2 feuille avec vba

Bonjour cybertom,

Voici ton fichier modifié.

Ne sois pas effrayé de voir le code plus fourni que dans ton fichier d'origine. Il n'est pas plus compliqué mais davantage structuré avec, comme il se doit, déclaration et utilisation de variables nouvelles. Je t'ai d'ailleurs ajouté quelques commentaires pour aider à la compréhension.

Espérant avoir répondu.

Cordialement.

 

[cybertom]

Re : dupliquer 2 feuille avec vba

Salut et un grand merci pour ton aide précieuse c'est du bon boulot je l'ai mis dans mon fichier et il marche bien;
Merci encore d'avoir pris du temps pour m'aider a une autre fois

 

[cybertom]

Re : dupliquer 2 feuille avec vba

salut désolé de t’embêter encore mais dans avec le vba que tu m'a fait cela marche tres bien si je reste sur l'année 2012 mais quand je change et passe en 2013 tous les onglet qui on été copier reste figé sur les dates de 2012 peut tu m'aider ?

 

[Papou-net]

Re : dupliquer 2 feuille avec vba

RE cybertom,

OK, je n'avais pas compris que tu voulais pouvoir changer l'année sur le même fichier. Voici donc ton fichier adapté.

J'ai déplacé la macro CopieFeuilles dans Module1, elle y est beaucoup plus à sa place.

Mais j'en arrive à me demander quel est l'intérêt de cette manoeuvre, un classeur comprenant tous les onglets avec les formules installées serait bien plus simple, non ? Plus besoin de macro.

Quoiqu'il en soit, je pense avoir répondu dans le sens de ta demande.

Cordialement.