Calendrier annuel pour Excel

**forum** · 18/02/2015, 22h36

Bonjour,

Je vous propose un nouvel élément à utiliser : Calendrier annuel pour Excel

Un calendrier annuel 2015 (mais pas seulement) personnalisable pour Excel. Choisissez simplement l’année et les couleurs de votre calendrier. Impression et export en PDF en un clic…

Caractéristiques principales:

valable pour l’année de votre choix – 2015, 2016, 2017,… (plus besoin de chercher un nouveau calendrier chaque année)
en deux formats: vertical (portrait) & horizontal (paysage)
couleurs personnalisables (choisissez vos couleurs pour les différentes composantes de ce calendrier)
impression papier avec un seul clic (tout est déjà prêt pour l’impression)
export en PDF avec un seul clic

Utilisation:

Choisissez le format du calendrier annuel que vous souhaitez (feuilles “Calendrier_paysage” ou “Calendrier_portrait“)
Choisissez les couleurs de votre calendrier (simplement changez la couleur de fond des cellules AD10:AD20). Le calendrier sera crée avec vos couleurs choisis.
Choisissez l’année pour laquelle vous voulez créer le calendrier (inscrivez l’année dans la cellule “B2″). Par défaut, le calendrier à télécharger est un calendrier annuel 2015. Si vous voulez recréer le calendrier (avec d’autres couleurs) pour la même année, vous devez réintroduire l’année dans la cellule “B2″.
Pour imprimer votre calendrier annuel, cliquez sur le bouton “Imprimer calendrier”
Pour exporter votre calendrier en PDF, cliquez sur le bouton “Exporter en PDF”. Le fichier PDF sera exporté dans le même dossier où vous aurez placé le fichier Excel avec le calendrier.

Qu'en pensez-vous ?

**pc75** · 19/02/2015, 08h23

Bonjour,

Bien.
Afficher les jours fériés dans une couleur particulière serait un petit plus.

**Excel-Malin.com** · 19/02/2015, 09h51

J'y avais pensé mais le souci avec des jours fériés, c'est qu'ils varient d'un pays à l'autre. Et cela rend tout de suite tout plus compliqué - ici le but c'était de permettre à l'utilisateur d'avoir un calendrier "en un clic".

Pour les introduire, je devrais demander à l'utilisateur 1) de choisir son pays ou 2) de faire lui-même la liste des jours fériés.
Pour le 1) je devrais trouver moi-même les jours fériés des pays francophones et pour le 2) c'est nettement moins "en un clic" pour l'utilisateur...

Mais si j'ai un moment, je vais y réfléchir pour une nouvelle version.

**pc75** · 19/02/2015, 10h39

C'était juste une idée "comme ça !"

Envoyé par Excel-Malin.com

Pour le 1) je devrais trouver moi-même les jours fériés des pays francophones

Eventuellement, j'ai une fonction vba qui calcule les jours fériés.

**Excel-Malin.com** · 19/02/2015, 11h17

Maintenant, la question est: quelle est la définition d'un jour "férié"?
Car il y a des jours communs dans la plupart des pays (comme le 1/1, 1/5,...), les jours fériés "mobiles" (notamment les fêtes religieuses - Pâques etc.) mais aussi les fêtes nationales etc....

C'est un sujet assez complexe. Mais, cela dit au passant, je jetterai volontiers l'oeil à votre code.

Bien à vous

**pc75** · 19/02/2015, 11h34

Voila :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Function IsFerie(LeJour)
 Annee = Year(LeJour)
 Paques = fPaques(Annee) 'Cherche le jour de Pâques
 
 LunPaq = cStr(DateAdd("d", 1, Paques)) 'En déduit les jours fériés mobiles
 
 Ascension = cStr(DateAdd("d", 39, Paques))
 
 LunPent = cStr(DateAdd("d", 50, Paques))
 
 PremierJanvier = "01/01/" & Annee
 PremierMai = "01/05/" & Annee
 HuitMai = "08/05/" & Annee
 QuatorzeJuillet = "14/07/" & Annee
 QuinzeAout = "15/08/" & Annee
 PremierNovembre = "01/11/" & Annee
 OnzeNovembre = "11/11/" & Annee
 Noel = "25/12/" & Annee
 
 StrJour = cStr(LeJour)
 if StrJour = LunPaq or StrJour = Ascension or (StrJour = LunPent and Year(LunPent) < 2005) or (StrJour = LunPent and Year(LunPent) > 2007) _
 or StrJour = PremierJanvier or StrJour = PremierMai or StrJour = HuitMai _
 or StrJour = QuatorzeJuillet or StrJour = QuinzeAout or StrJour = OnzeNovembre _
 or StrJour = PremierNovembre or StrJour = Noel then
  IsFerie = true
 else
  IsFerie = false
 end if
End Function
 
 
 
Function fPaques(An)
	'Calcule le jour de Pâques en fonction de l'année
 
	a  = An  Mod 19
	b  = An  \ 100
	c  = An  Mod 100
	d  = b  \ 4
	e  = b  Mod 4
	f  = (b  + 8) \ 25
	g  = (b  - f  + 1) \ 3
	h  = (19 * a  + b  - d  - g  + 15) Mod 30
	i  = c  \ 4
	k  = c  Mod 4
	l  = (32 + 2 * e  + 2 * i  - h  - k ) Mod 7
	m  = (a  + 11 * h  + 22 * l ) \ 451
	n  = (h  + l  - 7 * m  + 114) \ 31
	p  = (h  + l  - 7 * m  + 114) Mod 31
	fPaques = DateSerial(An , n , p  + 1)
End Function

**Excel-Malin.com** · 19/02/2015, 11h48

Merci pc75!

**Daniel.C** · 04/04/2015, 14h20

Bonjour,

Pas possible d'ouvrir le fichier ni dans Excel, ni dans OpenOffice. Micro-climat ?

**clementmarcotte** · 04/04/2015, 21h40

Bonjour,

Chez-moi, le fichier est arrivé sans extension. Et puis même avec l'extension, Excel fait une crise.

**Daniel.C** · 04/04/2015, 22h07

Bonsoir,

Oui parce que j'ai l'extension (.xlsm) mais pas moyen de l'ouvrir.

**kiki29** · 04/04/2015, 23h41

Salut, c'est malheureusement devenu un classique : ici pour ce fichier taille ( 0 octets )
Mais il faut reconnaitre que les téléchargements des contributions ont qqs problèmes : il ne faut pas d'espace dans leur nom, et la 1ere fois que l'on upload un fichier compressé avec 7zip, ce fichier si on le download après, pour tester, sera vide ( le bug a été signalé l'année passée mais c'est comme pisser dans un violon ). J'ai également constaté la perte de fichiers ( tjs pareil pas de réaction )

**Excel-Malin.com** · 10/04/2015, 23h49

Je suis navré de lire qu'il y ait des problèmes.

Pour le fichier d'origine, tout va bien jusqu'à présent. Il a été téléchargé déjà plus de 1200 fois.

Voici donc le lien vers le fichier original (et pas la copie ici sur développez.net)

http://excel-malin.com/outils/calend...el-2015-excel/

J'espère que maintenant vous pourrez tous l'utiliser.

**kiki29** · 11/04/2015, 00h12

Salut, le problème sur DVP n'est tjs pas résolu : taille du fichier téléchargé 0 octets. il te suffit de te loger et de refaire la manip d'upload pour régénérer ce fichier. comme dit plus haut j'ai déjà eu ce genre de problèmes et même si signalé à qui de droit c'est comme de pisser dans un violon.

**patricktoulon** · 11/04/2015, 16h24

Bonjour
chez moi ouverture impossible Excel fait un anévrisme

ps :je parle du fichier d'origine ;celui sur dvp n'en parlons pas

**Excel-Malin.com** · 13/04/2015, 22h07

Envoyé par patricktoulon

Bonjour
chez moi ouverture impossible Excel fait un anévrisme

ps :je parle du fichier d'origine ;celui sur dvp n'en parlons pas

Vous pouvez préciser le terme "anévrisme"?

Cela ne s'ouvre pas du tout? Excel se plante à l'ouverture?

Le fichier est crée dans Excel 2013 (mais devrait être compatible pour Excel 2007 et plus récents).
A l'ouverture, il active les Events et c'est tout (Application.EnableEvents = True)...

Franchement, je ne vois pas pourquoi cela ne marche pas chez vous. Merci pour vos éventuelles précisions qui m'aideraient à corriger le problème...

**Excel-Malin.com** · 13/04/2015, 22h10

Envoyé par kiki29

Salut, le problème sur DVP n'est tjs pas résolu : taille du fichier téléchargé 0 octets. il te suffit de te loger et de refaire la manip d'upload pour régénérer ce fichier. comme dit plus haut j'ai déjà eu ce genre de problèmes et même si signalé à qui de droit c'est comme de pisser dans un violon.

Je viens de le re-uploader et le problème reste le même

Le fichier a bien l'extention ".xlsm" mais sa taille est 0 octets...

Pfffffffffff.............

**grisan29** · 16/04/2015, 23h54

bonsoir a vous

chez moi j'ai pu ouvrir sans problème le calendrier "original" la seule chose est que l'écriture sur le calendrier est protégée, et il fait 68 ko

pascal

**patricktoulon** · 17/04/2015, 00h00

salut grizan
l'ouvrir finalement n'est pas trop le soucis ,on y arrive toujours en désactivant toute macro
is il ne fonctionne pas c'est plus gênant c'est un peu le soucis avec les XLM des fois sa marche des fois ca ne marche pas

j'ai tout un dossier de fichier xlm qui fonctionne sur ma machine du bureau mais pas sur la bécane du salon pourtant même version office et Windows
c'est comme ca ....... je cherche plus a comprendre je zape le fichier

c'est pour cela que je travaille toujours en xls même avec 2007 et 2010

**grisan29** · 17/04/2015, 16h23

bonjour Patrick

je l'ouvre sans aucune activation où désactivation de macros, je peux l'exporter en .PDF où l'imprimer la seule chose est la protection des cellules pour pour écrire dedans pour l'essayer plus qui est bloquante
il est en .xlsm chez moi

Pascal

**patricktoulon** · 17/04/2015, 22h41

re
salut Pascal
de toute facon tout le monde ne peut pas avoir tord
si il y a autant de reclamation c'est bien pour une raison

enfin moi j'ai le mien je te le donne

met ca dans un classeur vierge
et lance la sub testcreation
je t'ai laissé que l'essentiel
a bon entendeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function NB_JOURS(mois, année)
    NB_JOURS = Day(DateSerial(année, mois + 1, 1) - 1)
End Function
Sub testcreation()
    creation_calandrier 2015, 45
End Sub
Function creation_calandrier(année, couldim)
    pageblanche
   For mois = 1 To 12
        Cells(1, mois) = UCase(MonthName(mois))
 
        For i = 1 To NB_JOURS(mois, année)
            jour = Format(DateSerial(année, mois, i), "dddd")
            colonne = Cells.Find(UCase(MonthName(mois))).Column
            With Cells(i + 1, colonne)
            .Value = Format(DateSerial(année, mois, i), "ddd:") & i
            If jour = LCase("dimanche") Then .Interior.ColorIndex = couldim
        End With
        Next
    Next
finition
End Function
Sub pageblanche()
    Cells.Clear
    With ActiveSheet
        Columns("A:L").ColumnWidth = 16
        Rows("1:1").RowHeight = 23
        Rows("2:32").RowHeight = 19
    End With
End Sub
Function finition()
For Each cel In ActiveSheet.UsedRange
cel.BorderAround 2
cel.Font.Size=9
Next
With Range(Cells(1, 1), Cells(1, 12))
            .HorizontalAlignment = xlCenter
        .Font.Bold = True
.verticalAlignment = xlCenter
        .Interior.Color = 15773696
    End With
End Function

moins d'une seconde tu a ton calendrier avec les dimanche en couleur

Calendrier annuel pour Excel

Contribuez

Discussions similaires

Partager

Partager