[VBA] Erreur de code

Bonjour Patrick,

Ce code génère un nouveau classeur ayant toutes les feuilles du mois
basé sur une feuille "Modèle" existant dans le classeur où tu mettras
cette macro.

'----------------------------------------
Sub AjouterFeuille()

'Définition des variables
Dim Wk As Workbook, NewWk As Workbook
Dim MaDate As Variant
Dim LastDay As Integer, Annee As Integer
Dim LeMois As Integer, A As Integer
Dim AcName As String

Application.ScreenUpdating = False

'Demande à l'usager le mois.
Do
MaDate = InputBox("Entrez une date du mois pour " & _
"lequel il faut créer une feuille pour " & _
"chacun des jours." & vbLf & vbLf & _
"Exemple : 1/2/2001", "Une feuille par jour")
'Si l'usager annule l'opération
If MaDate = "" Then Exit Sub
If Not IsDate(MaDate) Then
MsgBox "La donnée saisie ne représente " & _
"pas un format date reconnu par excel."
End If
Loop Until IsDate(MaDate) Or MaDate = "" = True

MaDate = Format(MaDate, "dd-mm-yy")
Annee = Year(MaDate)
LeMois = Month(MaDate)
'Détermine la dernière journée du mois choisi.
LastDay = Day(DateSerial(Annee, LeMois + 1, 0))

AcName = ThisWorkbook.Name

Set Wk = ThisWorkbook
Set NewWk = Workbooks.Add(-4167)
'Ajoute les feuilles.
For A = 1 To LastDay
With NewWk
Wk.Worksheets("Modèle").Copy _
after:=NewWk.Worksheets(NewWk.Worksheets.Count)
.ActiveSheet.Name = Format(DateSerial(Annee, _
LeMois, A), "dd-mm-yyyy")
End With
Next
Application.DisplayAlerts = False
With NewWk
.Worksheets("Feuil1").Delete
.Worksheets(1).Activate
End With

Workbooks(AcName).Activate
Application.DisplayAlerts = False

End Sub
'----------------------------------------


Salutations!




"Patrick Bastard" <bastardp"chez"free.fr> a écrit dans le message de
news: %23lCQrTBxEHA.3844@TK2MSFTNGP09.phx.gbl... Bonjour à tous

Je m'en sors petit à petit, tant bien que mal :

Créer un classeur mensuel avec une feuille par jour à partir d'un
modèle en
reprenant mise en forme, validation, objets etc...

Mon classeur de départ : 3 onglets : "Premier", "Modèle" et "Total"
"Premier "est la solution que j'ai trouvée pour consolider dans "Total
"toutes les feuilles qui seront créées : =(SOMME(Premier:Modèle!A3) ou
=(NBVAL(Premier:Modèle!A3)

Le bout de code ci-dessous fonctionne :-) quand les feuilles Premier
et
Modèle sont affichées, mais *ne fonctionne pas* :-( lorsqu'elles sont
masquées :

'Boucle pour copier"Modèle" autant de fois qu'il y a de jours.
'Et renomme chaque feuille avec la date.
For A = 1 To LastDay Step 1
Sheets("Modèle").Select
Sheets("Modèle").Copy Before:=Sheets("Modèle")
Set Sh = Worksheets(Worksheets.Count - 2)
With Sh
.Visible = True
.Name = Format(DateSerial(Annee, LeMois, A), "ddd
dd-mm-yy") If Err <> 0 Then
Err = 0
End If
End With
Next

Un grand merci donc à qui voudra bien m'expliquer comment paramétrer
Copy
Before et Worksheets.Count
pour que mes feuilles créées soient correctement nommées, soient
placées
entre"Premier" et "Modèle", et restent visibles !!!

Question subsidiaire pour les gagnants : quelle différence entre
Sheets.Count et Worksheets.Count.

Désolé si ces questions sont basiques, mais je persiste à débuter en
VBA.

PS : je pense que le classeur terminé pourrait être utile à d'autres,
et je
le soumettrai à Misange.

Cordialement,

Patrick

Merci à tous,

j'essayais de créer le fil à couper le beurre.
Pour le problème des feuilles cachées, il suffit de les cacher *après* avoir
généré les autres.
Et ça, je sais faire.

Mais j'aimerais bien comprendre quand même, alors vos explications sont les
bienvenues.

Bonne nuit à tou(te)s,


--
Bien cordialement,
==================================== > P. Bastard.
Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

Un classeur doit toujours avoir une feuille visible au moins.

Pour la question subsidiaire :
Insére une feuille graphique dans ton classeur puis lance cette macro.

Sub SheetsCount_OU_WorksheetsCount()
MsgBox "Worksheets.Count = " & Worksheets.Count & vbNewLine & _
vbNewLine & "Sheets.Count = " & Sheets.Count
End Sub

Alain CROS