Bonjour,
je créé un nouveau classeur par mois avec un modèle de feuille. Je
souhaiterais insérer une feuille par jour avec en onglet le n° du jour et le
mois, ex: 01_janv. Quelqu'un peut-il m'aider
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonsoir
imaginons que ta feuille modèle s'appelle Modele et que tu places cette proc dans le classeur devant recevoir les feuilles du mois
Application.ScreenUpdating = False
I = 0 mois = 4 annee = 2005
With ThisWorkbook While Month(DateSerial(annee, mois, 1) + I) = mois .Sheets("Modele").Copy After:=.Sheets(Sheets.Count) .ActiveSheet.Name = Format(DateSerial(annee, mois, 1) + I, "d-mmm") I = I + 1 Wend End With
Application.ScreenUpdating = True
A adapter à tes besoins
A+
Bonjour, je créé un nouveau classeur par mois avec un modèle de feuille. Je souhaiterais insérer une feuille par jour avec en onglet le n° du jour et le mois, ex: 01_janv. Quelqu'un peut-il m'aider Merci
bonsoir
imaginons que ta feuille modèle s'appelle Modele et que tu places cette
proc dans le classeur devant recevoir les feuilles du mois
Application.ScreenUpdating = False
I = 0
mois = 4
annee = 2005
With ThisWorkbook
While Month(DateSerial(annee, mois, 1) + I) = mois
.Sheets("Modele").Copy After:=.Sheets(Sheets.Count)
.ActiveSheet.Name = Format(DateSerial(annee, mois, 1) + I, "d-mmm")
I = I + 1
Wend
End With
Application.ScreenUpdating = True
A adapter à tes besoins
A+
Bonjour,
je créé un nouveau classeur par mois avec un modèle de feuille. Je
souhaiterais insérer une feuille par jour avec en onglet le n° du jour et le
mois, ex: 01_janv. Quelqu'un peut-il m'aider
Merci
imaginons que ta feuille modèle s'appelle Modele et que tu places cette proc dans le classeur devant recevoir les feuilles du mois
Application.ScreenUpdating = False
I = 0 mois = 4 annee = 2005
With ThisWorkbook While Month(DateSerial(annee, mois, 1) + I) = mois .Sheets("Modele").Copy After:=.Sheets(Sheets.Count) .ActiveSheet.Name = Format(DateSerial(annee, mois, 1) + I, "d-mmm") I = I + 1 Wend End With
Application.ScreenUpdating = True
A adapter à tes besoins
A+
Bonjour, je créé un nouveau classeur par mois avec un modèle de feuille. Je souhaiterais insérer une feuille par jour avec en onglet le n° du jour et le mois, ex: 01_janv. Quelqu'un peut-il m'aider Merci
anonymousA
il manque un point (.) avant sheets.count
bonsoir
imaginons que ta feuille modèle s'appelle Modele et que tu places cette proc dans le classeur devant recevoir les feuilles du mois
Application.ScreenUpdating = False
I = 0 mois = 4 annee = 2005
With ThisWorkbook While Month(DateSerial(annee, mois, 1) + I) = mois .Sheets("Modele").Copy After:=.Sheets(Sheets.Count) .ActiveSheet.Name = Format(DateSerial(annee, mois, 1) + I, "d-mmm") I = I + 1 Wend End With
Application.ScreenUpdating = True
A adapter à tes besoins
A+
Bonjour, je créé un nouveau classeur par mois avec un modèle de feuille. Je souhaiterais insérer une feuille par jour avec en onglet le n° du jour et le mois, ex: 01_janv. Quelqu'un peut-il m'aider Merci
il manque un point (.) avant sheets.count
bonsoir
imaginons que ta feuille modèle s'appelle Modele et que tu places cette
proc dans le classeur devant recevoir les feuilles du mois
Application.ScreenUpdating = False
I = 0
mois = 4
annee = 2005
With ThisWorkbook
While Month(DateSerial(annee, mois, 1) + I) = mois
.Sheets("Modele").Copy After:=.Sheets(Sheets.Count)
.ActiveSheet.Name = Format(DateSerial(annee, mois, 1) + I, "d-mmm")
I = I + 1
Wend
End With
Application.ScreenUpdating = True
A adapter à tes besoins
A+
Bonjour,
je créé un nouveau classeur par mois avec un modèle de feuille. Je
souhaiterais insérer une feuille par jour avec en onglet le n° du jour
et le
mois, ex: 01_janv. Quelqu'un peut-il m'aider
Merci
imaginons que ta feuille modèle s'appelle Modele et que tu places cette proc dans le classeur devant recevoir les feuilles du mois
Application.ScreenUpdating = False
I = 0 mois = 4 annee = 2005
With ThisWorkbook While Month(DateSerial(annee, mois, 1) + I) = mois .Sheets("Modele").Copy After:=.Sheets(Sheets.Count) .ActiveSheet.Name = Format(DateSerial(annee, mois, 1) + I, "d-mmm") I = I + 1 Wend End With
Application.ScreenUpdating = True
A adapter à tes besoins
A+
Bonjour, je créé un nouveau classeur par mois avec un modèle de feuille. Je souhaiterais insérer une feuille par jour avec en onglet le n° du jour et le mois, ex: 01_janv. Quelqu'un peut-il m'aider Merci
