Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer des feuilles en copiant le modèle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cibleo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cibleo

XLDnaute Impliqué
Bonsoir le forum,

Dans le module 1 du fichier joint, j'ai ce code qui me permet d'insérer des feuilles nommées aux 365 jours de l'année.

En B1 de chaque feuille, figure également la mention "Planning du" & jour de la feuille active.

Ce que j'aimerais faire, c'est copier la plage (A1:L15) de ma feuille "Planning" qui me sert de modèle.

Code: 
Sub Calendjourfeuille()
Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
y = DateValue("31 décembre " & année)
For i = 0 To y - x
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(x + i, "dddd dd mmmm yyyy")
[B1] = "Planning du " & ActiveSheet.Name
Next
End Sub

En résumé, il s'agit de recopier 365 fois ma feuille "Planning" avec la mention "Planning du ...Nom de la feuille"

De plus serait-il possible de mettre en majuscule la 1ère lettre du Jour figurant en B1.

Pouvez-vous m'aider ?

Amicalement Cibleo

Bonne soirée à tous.
 

Pièces jointes

Trier par date Trier par votes
Re : Insérer des feuilles en copiant le modèle

Bonsoir,

peut-être ainsi?

Code: 
Sub Calendjourfeuille()
Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
y = DateValue("31 décembre " & année)
For i = 0 To y - x
    Sheets("Planning").Copy After:=Worksheets(Worksheets.Count)
    With ActiveSheet
        .Name = Format(x + i, "dddd dd mmmm yyyy")
        .[B1] = "Planning du " & Application.Proper(ActiveSheet.Name)
    End With
Next
End Sub

pour peu que tu laisses l'onglet "Planning" vierge....

Bonne soirée
 
Vote positif 0 Vote négatif
Re : Insérer des feuilles en copiant le modèle

Bonsoir le forum,
Bonsoir bhbh 🙂

Merci pour la réponse.

Sur le fichier mis en ligne plus haut, cela fonctionne parfaitement, les 365 feuilles sont créées.

Par contre sur mon fichier original placé sur mon Pc, cela s'arrète au 23 avril ----> problème de mémoire comme déjà évoqué dans le fil ci-dessous il y a quelques mois.

J'ai alors enregistré mon fichier, fermé puis réouvert et relancé la macro, mais les dernières feuilles ne sont toujours pas crées 🙁.

J'ai le message suivant :

"Erreur d'exécution 1004 :"
Impossible de renommer une feuille comme une autre feuille, une bibliothèque d'objets référencée ou un classeur référencé par Visual Basic.

https://www.excel-downloads.com/threads/vba-dupliquer-1-modele.96765/

Comment remédier à ce problème, avez-vous une solution ?

Pour info, ma feuille "Planning" était vierge de toute annotation, j'avais même enlevé la couleur de la colonne A et viré les boutons placés initialement sur la feuille.
En B1, le titre recopié est de taille 28.
Ne devrais-je pas changer le format date de mes onglets pour réduire le poids ? ------> dddd dd mmmm yyyy

Avez-vous une idée ?

Bref, j'avais épuré au maximum ma feuille me servant de modèle parce que je sentais le coup arriver 😎

Cibleo
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Insérer des feuilles en copiant le modèle

Bonsoir le forum,

Un petit retour sur le fil pour signaler que j'ai résolu mon petit problème de création de feuilles.

En fait, dans mon fichier initial étaient placés un module standard et 3 Userforms que j'ai d'abord supprimés (Exportés avant la suppression).

Ensuite, j'ai exécuté ma macro et les 365 feuilles ont été créées.

Puis, j'ai importé mes 3 Userforms et le module standard, le tour était joué.

Problème résolu 🙄

Encore merci bhbh

Bonne soirée à tous Cibleo
 
Vote positif 0 Vote négatif
Re : Insérer des feuilles en copiant le modèle

Bonsoir à tous,

Un petit retour pour une petite modif du code de bhbh.

Pour faire plus court dans mes onglets, j'ai remplacé l'instruction initiale par celle-ci
Code: 
.Name = Format(x + i, "dd mm yy")

Mais comment dois-je modifier l'instruction suivante pour obtenir à nouveau la date en toute lettre en B1

Code: 
.[B1] = "Planning du " & Application.Proper(ActiveSheet.Name)

Parce que j'obtiens ceci "Planning du 20 06 09", et non plus "Planning du Samedi 20 Juin 2009" comme initialement.

Merci de votre aide
Cibleo
 
Vote positif 0 Vote négatif
Re : Insérer des feuilles en copiant le modèle

Bonsoir bhbh,

Impeccable, ça colle comme ceci :

Au vol, tu avais tapé trop vite et oublié un guillemet et une parenthèse.

Code: 
.[B1] = "Planning du " & Application.Proper(Format(x + i, "dddd dd mmmm yyyy"))

Merci bhbh

Bonne soirée à tous

Cibleo
 
Vote positif 0 Vote négatif
Re : Insérer des feuilles en copiant le modèle

Bonjour à tous,

En rouge, j'ai rajouté une condition, ce qui me permet de dupliquer la feuille "Planning" sans les samedis ni les dimanches.
Code: 
Sub Calendjourfeuille()
Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
y = DateValue("31 décembre " & année)
For i = 0 To y - x
  [COLOR=red]If Weekday(x + i, vbMonday) < 6 Then[/COLOR]
    Sheets("Planning").Copy After:=Worksheets(Worksheets.Count)
    With ActiveSheet
        .Name = Format(x + i, "dd mm yy")
        .[B1] = "Planning du " & Application.Proper(Format(x + i, "dddd dd mmmm yyyy"))
    End With
  [COLOR=red]End If[/COLOR]
Next
End Sub

C'était pour compléter le fil 😉

Cibleo
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
256
ManuEven
M
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
209
fanch55
P
  • Résolu(e)
Microsoft 365 Utiliser la même macro dans des feuilles différentes
2 3
Réponses
35
Affichages
802
cathodique
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
213
micheldu52
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
331
Phil69970
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
858
TooFatBoy
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Résolu(e)
XL 2013 (RESOLU) Protection automatique des nouvelles feuilles
Réponses
6
Affichages
587
Phil69970
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
606
chaelie2015
  • Question Question
XL 2016 Protéger Plage avec condition
2
Réponses
16
Affichages
1 K
Amigo
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
335
Phil69970
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
373
patricktoulon
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
558
jeff1494
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
488
Phil69970
D
  • Question Question
XL 2013 recopier dans d'autres feuilles des lignes en fonction d'un critère
Réponses
9
Affichages
467
sylvanu
T
  • Question Question
Microsoft 365 Vérifications et simplifications de Macro
Réponses
2
Affichages
557
TAL
T
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
477
Chaton77
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
842
Nico2978
M
  • Question Question
XL 2016 MAJ nuage de points dans un graphe en fonction d'un filtre
Réponses
0
Affichages
644
Mooga
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…