Bonjour,
J'ai un petit projet sur la réalisation de feuille d'heure automatique.
J'aimerais créer depuis un classeur modèle des feuilles d'heures toutes les semaines, chacune nommées respectivement 1,2,3,4,...,52,53.
J'ai un formulaire "Création" de feuille d'heure comportant 3 champs: Nom, prénom et Année.
1) Mon premier besoin serait de calculer le nombre de semaine dans l'année qui lui est définit dans le formulaire de "Création" du classeur de Feuille d'heure.
2) Ensuite, je voudrais créer un classeur nommé: "Feuille d'heure Prénom Nom Année.xls" (en fonction des champs saisies dans le formulaire "Création".
3)J'aimerais ensuite créer les feuilles d'heure nommées respectivement 1,2,3,4,...,52,53 en fonction de la feuille nommé modèle. ( voir "1)" )
4)J'aurais également besoin de recopier les champs noms et les mises en forme conditionnels du modèle.
5) Coloration des onglets de la même couleurs
6) Création de la feuille d'heure de la dernière semaine de décembre de l'année précédente nommé ex: 52-2010.
Je vous présente le début de ma réalisation un peu chaotique, d'ailleurs...
J'ai un petit projet sur la réalisation de feuille d'heure automatique.
J'aimerais créer depuis un classeur modèle des feuilles d'heures toutes les semaines, chacune nommées respectivement 1,2,3,4,...,52,53.
J'ai un formulaire "Création" de feuille d'heure comportant 3 champs: Nom, prénom et Année.
1) Mon premier besoin serait de calculer le nombre de semaine dans l'année qui lui est définit dans le formulaire de "Création" du classeur de Feuille d'heure.
2) Ensuite, je voudrais créer un classeur nommé: "Feuille d'heure Prénom Nom Année.xls" (en fonction des champs saisies dans le formulaire "Création".
3)J'aimerais ensuite créer les feuilles d'heure nommées respectivement 1,2,3,4,...,52,53 en fonction de la feuille nommé modèle. ( voir "1)" )
4)J'aurais également besoin de recopier les champs noms et les mises en forme conditionnels du modèle.
5) Coloration des onglets de la même couleurs
6) Création de la feuille d'heure de la dernière semaine de décembre de l'année précédente nommé ex: 52-2010.
Je vous présente le début de ma réalisation un peu chaotique, d'ailleurs...
1) Mon premier besoin serait de calculer le nombre de semaine dans l'année qui lui est définit dans le formulaire de "Création" du classeur de Feuille d'heure.
Code:
Sub CreationFeuilleHeureAutomatique_Clic()
'
' CreationFeuilleHeureAutomatique_Clic Macro
'
'Création de la feuille d'heure de la dernière semaine de décembre de l'année précédente
'Création de la feuille d'heure "le trop plein"
'Création de la feuille "Récapitulatif Annuel"
'Création de la feuille "Identité"
'Création de la feuille "Calendrier" (caché)
'Colorer les feuilles par groupe
'Copie des mises en forme conditionnelle
'Copie des noms des champs (Gestion des noms)
'var
Dim nbSemaine
Dim nom
Dim prenom
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''' Création des feuilles d'heures en fonction du nombre de semaine dans l'année ''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Recherche du nombre de semaine dans l'année demandée
'nbSemaine = NO.SEMAINE(2011)
nbSemaine = NO.SEMAINE("31/12/" & Sheets("Identité").Range(D8).Value)
'nbSemaine = 10
'Boucle pour créer des feuilles en fonction du nombre de semaine
For i = 1 To nbSemaine
Valeur = ""
For j = 1 To i
Valeur = CStr(j)
Next j
nomFeuille = Valeur
Next i
'Création nouveau classeur et on l'ouvre
Workbooks.Add
Sheets("Feuil1").Select
'On renomme le classeur "Feuille d'heure Prénom-Nom-Année.xls"
ActiveWorkbook.Name = "Feuille d'heure " & "prenom" & "nom"
'ActiveWorkbook.Name = StringConcat("-", "Feuille d'heure", "prenom", "nom")
'On enregistre le classeur après sa création
ThisWorkbook.Saved = True
'On sélectionne la bonne feuille
Sheets("Feuil1").Select
'On renomme la feuille
Sheets("Feuil1").Name = "nomFeuille"
'On nomme la nouvelle feuille
End Sub
Pièces jointes
Dernière édition: