Automatiser calendrier mensuel selon un planning annuel

Bonjour

Voici mon projet : je voudrais automatiser le remplissage de mon calendrier mensuel selon un planning annuel avec des couleurs et des données.

Voici mon projet mais en version "manuelle".

Je n'ai aucune idée par où commencer et comment procéder. Je suis perdu

Merci beaucoup pour votre aide

Bonsoir,

La solution qui me parait le plus simple mais nécessitant l'emploi de VBA ,est d'utiliser Office Outlook qui vous fournira nativement les vues calendaires nécessaires correspondant à vos onglets 2,3,4.

1- créer dans Outlook un nouveau calendrier "Paie" spécifique à partir de votre calendrier par défaut

2- reporter dans ce calendrier Paie via VBA , tous les travaux figurant dans votre planning annuel .

Merci pour ta réponse

effectivement je n'avais pas du tout pensé à cette option.

Bonsoir,

ci_joint un exemple de report de votre planning dans un calendrier Outlook "Paie" créé à partir du calendrier par défaut.

J'ai aménagé votre planning en tableau structuré pour simplification du code.

Bonjour

Whoua c'est vraiment top ! Merci

par contre j'ai un souci dans la macro.

Tu as une idée sur ce qui ne va pas?

par contre j'ai un souci dans la macro.Tu as une idée sur ce qui ne va pas?

Vous n'avez pas créé le calendrier "Paie" à partir de votre calendrier par défaut. Insérer cette modification du code pour qu'il soit créé automatiquement, s'il n'existe pas :

    
    '// affectation et initialisation du calendrier Paie
    Set calendrier_défaut = OLApp.Session.GetDefaultFolder(olFolderCalendar)
    On Error Resume Next
    Set calendrier_paie = calendrier_défaut.Folders("Paie")
    On Error GoTo 0
    If calendrier_paie Is Nothing Then Set calendrier_paie = calendrier_défaut.Folders.Add(Name:="Paie", Type:=olFolderCalendar)
    With calendrier_paie
        For i = .Items.Count To 1 Step -1
            .Items.Remove (i)
        Next i
    End With

ci-jointe nouvelle version