générer un calendrier sur l'année

[niki42]

bonsoir à tous

voilà j'aurais voulu savoir s'il était possible de générer automatiquement un calendrier de l'année en cours (avec changement d'année en début d'année) avec une feuille par mois par macro ou autre solution

si c'est possible comment faire?

Merci pour vos réponses

 

[_Thierry]

Bonsoir toute la bande

Bon je vais faire bref sinon je vais me faire engueuler par ce fameux méchant Thierry !

Donc tout est dans la Démo

[ol]@+Thierry[/ol] [file name=XLD_Auto_generation_Planning.zip size=28029]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/XLD_Auto_generation_Planning.zip[/file]

 

[Celeda]

Bonjour,

Pour l'honneur ! la Gloire et la Liberté.............. d'XLD !!!

(Alexandre Le Grand (adapté))

Encore une fois, je vais m'agenouiller Messires,

Et vous remercier très humblement,

en vous offrant un peu de mon coeur
(et oui elle est grande la famille XLD!!


Sincerèment,

Celeda

 

[Hervé]

Bonjour tout le monde

Celeda je me permet de croire que tu m'inclus dans tes remerciements, donc merci à toi

Pascal, j'ai un service à te demander :

Supprime mon post avec ma 'démo', ridicule face au super travail de l'ami thierry

CLAP CLAP :lol:

Salut tout le monde.

 

[PascalXLD]

Re

Pas question Hervé

Tu assumes LOL

Bonne journée

 

[_Thierry]

Bonjour à tous

Ah non, Hervé, j'ai regardé ton Travail avant de me lancer dans ce Fil, et tu as une méthode bien plus rationnelle et propre pour gérer un calendrier que mes Acrobaties Barbatruquestes !

Je ne sais pas si c'est notre ami Didier qui t'a aidé sur cette partie là, mais c'est très très très bien :

For j = CLng(DateSerial(annee, i, 1)) To CLng(DateSerial(annee, i + 1, 1) - 1)

Bonne Journée à Tous
[ol]@+Thierry[/ol]

PS : Attention aux Orages !

 

[Hervé]

re tout le monde

Je me sens d'humeur badine en ce jour.

Pascal, ta réaction me pousserait presque à ouvrir un post avec comme titre : il est dur avec moi le modérateur.

Post ou la dissertation irait bon train

Thierry, je ne sais pas manipuler les dates en vba, et j'ai donc trouvé l'exercice de niki intéressant pour l'apprentissage.

Je te confirme qu'il m'a bien fallut l'aide de Didier pour cette partie (merci à lui), moi j'avais l'idée, et lui la syntaxe .

Salut

 

[niki42]

Salut tout le monde

Eh bien je vois que tout le monde se met en 4 pour m'aider et franchement ça fait vachement plaisir

Je ne me lasse pas de venir sur ce forum (même si j'y passe des fois beaucoup de temps!!!)


Je vais regarder tout ça.

et je reviendrai vous voir

Encore merci à tous pour votre gentillesse


@++

 

[Dan]

Bonjour à tous,

Quoi de plus normal Niki, c'est l'équipe XLD ...

J'ai pas mal cherché dans les anciens fils à ce sujet mais j'ai retrouvé tellement il y a des fils avec différentes choses à ce sujet.

Mais là, Hervé et Thierry, the USF's king ont frappé forts... quoi de plus normal.

A conserver tout cela ...

Bonne journée à tous.

 

[niki42]

re

Bon j'ai pas pu résister à l'envie d' aller voir ce que vous me proposiez

Hervé c'est ce que je voulais sauf que je voulais les dates en abscisse (comme ça je peux afficher le personnel sur le côté), mais je suppose que ça doit pouvoir se modifier

thierry et ses célèbres barbatrucs: c'est bien ce que je cherchais à faire mais je ne savais pas trop comment m'y prendre.

Je vais regarder tout ça plus en détail

Merci encore


@+

 

[Hervé]

re tout le monde

merci dan

Pas de problème niki.

donc fichier modifié suivant tes désirs, et ajout d'un bout de code pour ajouter en meme temps sur chaque feuille les noms des collaborateurs.

Cette liste se trouve en colonne 1 de la feuille base.

salut [file name=niki_20050905105825.zip size=11978]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/niki_20050905105825.zip[/file]

 

[niki42]

Re à tous

Merci Hervé c'est vraiment bien.
Mais comment faire pour que la date n'apparaisse que sous la forme:1 2 3 4 5 6 7....

J'ai essayé de modifier cette ligne mais sans succès

Cells(1, l) = Format(CDate(j), 'mm/dd/yy')
par
Cells(1, l) = Format(CDate(j), 'm')

:huh: :huh:

 

[_Thierry]

Bonsoir Niki, Hervé (et tout ce long Fil) et le Forum

Pour ton format il suffit de mettre 'd' et non 'm' (Day and not Month) VBA est américain

.Cells(1, l) = Format(CDate(j), 'd')

Bonne Soirée
[ol]@+Thierry[/ol]

Message édité par: _Thierry, à: 05/09/2005 22:29

 

[niki42]

Salut à tous

Merci Thierry pour l'astuce, j'aurai du y penser!!!

Mais bon avec le fichier 'xld auto generation planning', j'ai un message d'erreur sur le PC de mon taf (poutant office XP), il y a un objet qu'il ne peut pas charger car non présent sur le PC.

Sais tu ce que ça peut être?

Merci

 

[niki42]

Bonsoir à tous

En fait je reviens suite à ma dernière question.
Visiblement le problème vient du controle calendar qui ne doit pas être chargé

Comment faire pour l'activer?

merci pour vos réponses


@+