Calendrier automatisé sur Word
Comment créer un calendrier automatisé sur Word
en excluant les week-ends et jours fériés ?
Dans ce tutoriel, je vous explique comment créer un calendrier de tâches automatisé sur Word, en excluant les week-ends et jours fériés.
Grâce à sa facilité d'utilisation pour planifier votre travail et à ses cases à cocher, ce calendrier automatisé va vous permettre de contrôler visuellement les tâches effectuées 👍.
Après avoir créé le calendrier de tâches pour le mois de mai, en excluant les week-ends et les jours fériés,
-> vous allez également découvrir comment créer rapidement et facilement le calendrier de tâches pour le mois d'août.
Ainsi, à la fin de cette vidéo, vous saurez :
- créer un calendrier de tâches avec des cases à cocher,
- dupliquer ce calendrier en une seule fois sur plusieurs pages,
- et selon le mois, insérer un jour ouvré par page.
Voir la vidéo pour suivre les différentes étapes :
📌↪️→ 1er Code VBA à utiliser pour dupliquer en une seule fois votre première page :
Sub DupliquerPage()
Dim NombreDePages As Integer
Dim i As Integer
Dim oRng As Range
NombreDePages = InputBox("Entrez le nombre de pages à dupliquer", "Dupliquer la page")
Selection.GoTo What:=wdGoToBookmark, Name:="\Page"
Set oRng = Selection.Range
For i = 1 To NombreDePages
oRng.Copy
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertBreak Type:=wdPageBreak
Selection.Paste
Next i
End Sub
📌↪️→ 2ème Code VBA à utiliser pour insérer automatiquement les jours ouvrés :
Sub ImprimerDate()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim DateDebut As Date
Dim DateFin As Date
Dim DateCourante As Date
Dim NbJoursOuvres As Integer
'Définir les dates de début et de fin'
DateDebut = DateSerial(2023, 5, 2)
DateFin = DateSerial(2023, 5, 31)
'Définir les jours fériés'
Dim JoursFeries(1 To 11) As Date
JoursFeries(1) = DateSerial(2023, 5, 1)
JoursFeries(2) = DateSerial(2023, 5, 8)
JoursFeries(3) = DateSerial(2023, 5, 18)
JoursFeries(4) = DateSerial(2023, 5, 29)
NbJoursOuvres = 0
For i = 0 To DateDiff("d", DateDebut, DateFin)
DateCourante = DateAdd("d", i, DateDebut)
If Weekday(DateCourante, vbMonday) < 6 Then
For j = 1 To 11
If DateCourante = JoursFeries(j) Then
k = 1
Exit For
End If
Next j
If k <> 1 Then
NbJoursOuvres = NbJoursOuvres + 1
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=NbJoursOuvres
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Name = "Calibri"
Selection.Font.Size = 16
Selection.TypeText Text:=Format(DateCourante, "dd/MM/yyyy")
Selection.TypeParagraph
End If
k = 0
End If
Next i
End Sub
Un autre tutoriel qui pourrait vous intéresser :
Ce qui est très utile, lorsque vous avez besoin de diviser un document volumineux en plusieurs documents et les enregistrer ensuite individuellement.
