<---TELECHARGER LE FICHIER EXCEL (zip)

ou directement au

Il peut s'agrandir mois par mois avec un simple copier-coller...coler...coller..coller...

New : conseil pour ajouter des colonnes et des mois

une variante : le fichier avec les week-end des semaines paires et impaires du mois - un calendrier des gardes pour parents séparés(demandé plusieurs fois)
ici le fichier ZIP - ici le fichier Excel
http://www.doublevez.com => http://perso.wanadoo.fr/jeanmarc.stoeffler/excel/calendrier/

vous noterez le numéro de la semaine (1er jour du mois, à dupliquer éventuellement)

En Excel il existe la fonction NO.SEMAINE() mais elle démarre la semaine 1 au 1er janvier...
je lui préfère celle-ci (valable pour une date en C4, dans cet exemple) :
=ENT((C4-(DATE(ANNEE(C4-JOURSEM(C4-1)+4);1;3)-JOURSEM(DATE(ANNEE(C4 -JOURSEM(C4-1)+4);1;3)))+5)/7)

un autre site : GTTa outil Excel de Gestion du Temps de Travail Annuel (nouvelle version)

La version du calendrier des gardes pour parents séparés (divorcés, divorce, divorces...) voir ci-dessus...

============== calendrier automatique ! (version 1c) ====================
                            2 modes : standard et mode «année de naissance»
1) - en standard,  une seule date est fixe : le 1er jour du 1er mois. Toutes les autres en sont déduites !
       Ce premier mois peut être n'importe quel mois de l'année (septembre, par exemple)
     - en mode "année de naissance", il faut inscrire la date de naissance en E1 et laisser la formule
                                                                                                                               =DATE(ANNEE(DateClef);1;1)
2) les jours fériés sont automatiquement détectés si les macros sont activées
    (calculés de 1900 à 2099 !) (au lundi de pentecôte près...)
3) les samedis et les dimanches sont détectés sans l'activation des macros.
4) pour agrandir le calendrier, il suffit de copier les 3 dernières colonnes et de les coller à la suite, autant de fois qu'on le désire (limite f'Excel : 255 colonnes = 7 ans, environ.
5) les formats sont obtenus grâce au format conditionnel (menu : Format > mise en forme conditionnelle...)
6) deux colonnes sont prévues pour chaque journée mais on peut en supprimer une des deux...

7) à l'impression, s'inscrit automatiquement le nom complet du fichier (lecteur-dossier-fichier) au moment de sa dernière sauvegarde.
====================================================================
                                pour tout autre renseignement : jeanmarc.stoeffler@doublevez.com
                                site pour se perfectionner à Excel htpp://www.doublevez.com ou :
                                http://perso.wanadoo.fr/jeanmarc.stoeffler/excel
 ===================================================================

courrier d'un lecteur : (+ explication)

-----Message d'origine-----Envoyé : mardi 30 mars 2004 10:37
De : André Etchegoyen [mailto:...@etxe.fr]
Objet : concernant ce calendrier magique...

Félicitations pour votre calendrier.
Je suis époustouflé ! Vos fonctions laissent rêveur Dans la feuille mode d’emploi, dans la cellule « Dernier enregistrement » l’annotation mentionne : Macro automatique à chaque enregistrement. Je pensais la trouver dans « Auto Open », mais rien.est-elle cachée ? Comment cela peut-il se faire ? J’ai créé un compteur avec une macro, sinon je ne vois pas. Cordialement

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ma réponse Merci, André pour ce bel éloge !

Je reconnais bien là un connaisseur... Les macros ne sont pas vraiment cachées : elles sont dans la partie "workbook" du classeur qui correspond aux macros "événementielles", c'est-à-dire liées à un événement, tel l'enregistrement de la feuille (beforesave) ou l'ouverture (open) ou l'impression (beforeprint).

Voici celle qui concerne le compteur. 'Une cellule du classeur s'appelle "DateEnreg" :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Range("DateEnreg").Value = Now()
Range("compteur").Value = Range("compteur").Value + 1
Range("NomAbsolu").Value = ActiveWorkbook.FullName End Sub

à venir : explication pour l'Alsace et ses 2 jours fériés supplémentaires