creation automatique de feuille/date

[tony]

Bonjour a tous
Je voudrai pouvoir crééer pour chaque debut de mois un classeur qui contient pour feuille la date de chaque jour(sans les samedi et dimanche).
Les différentes date doivent etre le nom des feuilles.
J'ai pensé faire une inputbox pour entrer le premier jour ouvrable d'un mois.
J'ai reussi a faire de petite manip grace au fonction month() day() et weekday() mais rien de très concluant.
Merci de votre aide

 

[AV]

Ave,

Ajouter une feuille pour chaque jour du mois courant :

Sub zz()
x = Date
déb = DateSerial(Year(x), Month(x), 1)
fin = DateSerial(Year(x), Month(x) + 1, 0)
For i = déb To fin
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(i, 'dd-mm-yyyy')
Next
End Sub

PS : Réfléchis quand même à l'intérêt (surtout aux problèmes ultérieurs d'analyse) qu'il y a à stocker des données dans une multitude de feuilles ...
Une seule feuille devrait suffire !

AV [aaa]

 

[tony]

Merci ave je sais que pour la gestion ce n'est pas génial mais moi je fais que repondre au aux demandes
Pour la creation des pages jaimerai qu'elle soit possible pour n'importe quel mois saisi dans une cellule ou dans une inputbox.
Il y a aussi le probleme des samedi dimanche...
:S

 

[AV]

Re,

''..Pour la creation des pages jaimerai qu'elle soit possible pour n'importe quel mois saisi dans une cellule ou dans une inputbox.
Il y a aussi le probleme des samedi dimanche...''

Ok, j'avais lu un peu rapide la question initiale
Une version jointe plus évoluée

AV [aaa] [file name=Feuilles_Jours.zip size=15697]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Feuilles_Jours.zip[/file]