Excel : un calendrier Excel (magique ! ...et gratuit) de 1900(*) à 2099
www.doublevez.com
Exercices EXCEL, corrections & bonus (calendrier perpétuel)... 
maj : octobre 2023 -  Jean-Marc Stoeffler  © 1999-2099 ;)



Voici un calendrier Excel gratuit avec les jours fériés et les vacances scolaires des 3 zones A,B et C. Il peut s'adapter à plusieurs pays, démarrer à n'importe quel mois et il peut s'étendre automatiquement sur plusieurs années. C'est pour cette raison que je le trouve magique ! L'utilisation des macros n'est pas indispensable, mais apporte un plus à son utilisation.

Jours fériés Alsace-Lorraine, Luxembourg, Belgique et Suisse, en cochant la case correspondante. Zone A, B ou C par sélection dans une zone déroulante.
De plus, je mets à jour régulièrement les dates des vacances scolaires (sur une année glissante) et chaque tableau peut donc se mettre à jour a posteriori grâce à un bouton.


télécharger ici

télécharger ici
télécharger ici
  • version expérimentale avec 88 pays jusqu'en 2020
télécharger ici
  • Une copie écran au format PDF année 2017-2018
[zone A] [zone B] [zone C] [Zones ABC] [sans zone]
  • Regroupement de tous les fichiers au format ZIP
télécharger ici
  • Une autre application de calendrier pour la gestion de temps d'un petit groupe de personnes (en entreprise, par exemple)
voir le détail ici

voir le fichier exemple pour 6 cadres et 6 non-cadres :
planning_GTTA_6_6.xlsb
  • une curiosité mondiale : le plus grand calendrier du monde !
     (de 2000 jusqu'à 2100 : on y rêvait, JMS l'a fait )  ->
télécharger ici
  • Son mode d'emploi (déjà vu plus de 24 700 fois !!) sur Dailymotion















Suite de la page d'origine :




  • nouveau (27/01/2013) : la vidéo qui vous explique toutes les possibilités d'utilisation videos aux formats : WMV MP4 ou sur DailyMotion (ci-dessus)

  • activer les macros pour avoir des fonctionnalités spécifiques voir le mode d'emploi ici  pour Excel 2007, 2010
  • le fichier au format Excel 2007-2010 -> agrandissable sur plus de 100 ans -> cliquer ici

  • version au format ZIP

Le calendrier peut s'agrandir mois par mois avec un simple copier-coller...coler...coller..coller... Une macro a été créée si le bouton agrandir
(voir l'exemple ultime avec 1200 mois soit environ 36.525 jours = une vie)
->  cliquer ici (Excel 2007 et plus uniquement !)

Remarque : ce calendrier va se voir ajouter un certain nombre de fonctionnalités, par exemple le remplissage automatique en fonction de données présentées sous forme de tableaux
(jours fériés spéciaux, vacances, planning individuel d'activité, Corse, Martinique, Guadeloupe, Réunion, etc...)
Pour la gestion de temps de travail, un autre outil, dédié au planning d'équipe, est à votre disposition ici. Un 3 ème outils, plus simple est en cours d'élaboration.

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  (à adapter en mettant la bonne date en C4
http://www.doublevez.com => http://perso.wanadoo.fr/jeanmarc.stoeffler/excel/calendrier/

(*)Je ne garantis pas les jours de la semaine de janvier et février 1900 car Excel fait une petite erreur que je viens de découvrir : en 1900, il n'y avait pas d'année bissextile or Excel montre un 29 février 1900 qui n'existe pas. Par conséquent les jours de la semaine entre le 1er janvier et le 28 février 1900 sont faux : Excel place le 1 janvier 1900 sur un dimanche, or c'est un lundi... (qui l'eut cru ?). La version d'Excel 2013 corrige cette grave erreur ;).
Et je me suis empressé de modifier ce soir ma formule du 29 février qui devient :
=SI(OU(MOIS(I$31)<>MOIS(I$31+1);I$31=59);REPT("/";100);I31+1)
Explication : Excel teste si le 28 est le 59ème jour du calendrier d'Excel. Si c'est le cas (28/02/1900 = 59)  ou si le mois du 28 + 1 est différent du mois du 28, alors il répéte 100 fois le caractère "/", sinon il affiche le 29 du mois concerné. Bon, on passe donc d'un mardi à un jeudi, c'est pour rattraper le temps perdu...


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...

====================================================================
                                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


liens commerciaux :

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

depuis nov2006->