http://www.doublevez.com => http://perso.wanadoo.fr/jeanmarc.stoeffler/excel/calendrier/
Excel : un calendrier magique ! de 1900 à 2099(Magic french calendar !)

avec le lundi de Pentecôte ou non, au choix !

(maj : version d'octobre 2006 revue en profondeur ) avec 2 jours supplémentaires pour les Alsaciens
et 2 colonnes de plus par mois !
Page exceptionnelle : top 10 calendrier Excel Google sur plus d'1 million de pages !!!



 TELECHARGER LE FICHIER EXCEL (zip)...activez, si possible, les macros , sinon pas de jours fériés.
Version mars 2006, mais utilisable jusqu'en ...2099 (après on verra bien...) (version revue en octobre 2006)
ou directement au format excel (vous l'enregistrerez en appuyant sur la touche F12 = enregistrer sous...)

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

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




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


W.COM - copyright JMS 2003-2006 - utilisation personnelle = incitée - utilisation professionnelle => faire une demande d'autorisation écrire à l'auteur

depuis nov2006->