Discussion :

[forum]

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]

Bonjour,

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

[Excel-Malin.com]

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]

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

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]

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]

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

[Daniel.C]

Bonjour,

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

[clementmarcotte]

Bonjour,

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

[Daniel.C]

Bonsoir,

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

[kiki29]

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]

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.

[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

[Excel-Malin.com]

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

[Khoztoojoor]

Bonjour à tous!

Le lien semble mort.
Fichier téléchargé = 0 octets

@+

[Excel-Malin.com]

Oui, je sais... Le lien ici n'a jamais fonctionné. J'ai essayé de le re-uploader mais cela n'a pas résolu le problème.

Voici le lien direct: http://excel-malin.com/?telechargement=437