Comment imprimer la liste d’un rendez-vous récurrent dans Outlook ?

Imprimer une liste d’un rendez-vous récurrent Outlook en l’exportant

Imprimer une liste d’un rendez-vous récurrent Outlook avec VBA

En réalité, il n’existe aucun moyen direct d’imprimer la liste complète de toutes les occurrences d’un rendez-vous récurrent dans Outlook. Toutefois, vous pouvez exporter votre calendrier vers Excel, filtrer toutes les instances de ce rendez-vous récurrent, puis les imprimer. Voici la marche à suivre :

1. Dans Outlook, cliquez sur Fichier > Ouvrir et exporter(ou)Ouvrir) > Importation/Exportation(ou)Importer).

2. Dans l’Assistant Importation et exportation, cliquez sur l’option Exporter vers un fichier, puis sur le bouton Suivant.

3. Dans la première boîte de dialogue « Exporter vers un fichier », sélectionnez l’option Valeurs séparées par des virgules, puis cliquez sur le bouton Suivant.

4. Dans la deuxième boîte de dialogue « Exporter vers un fichier », veuillez sélectionner le calendrier contenant le rendez-vous récurrent que vous souhaitez imprimer, puis cliquez sur le bouton Suivant.

5. Dans la troisième boîte de dialogue « Exporter vers un fichier », cliquez sur le bouton Parcourir.

6. La boîte de dialogue Parcourir s’ouvre. (1) Spécifiez le dossier de destination dans lequel vous souhaitez enregistrer le fichier CSV exporté, (2) saisissez un nom pour le fichier CSV dans la zone Nom du fichier, puis (3) cliquez sur le bouton OK.

7. Cliquez sur les boutons Suivant et Terminer dans la troisième et dernière boîte de dialogue « Exporter un fichier ».

8. Dans la boîte de dialogue « Définir plage de dates », indiquez la plage de dates couvrant la période pendant laquelle vous souhaitez exporter le calendrier, puis cliquez sur le bouton OK.

9. Le calendrier Outlook a désormais été exporté sous forme de fichier CSV. Ouvrez le dossier contenant ce fichier, cliquez dessus avec le bouton droit, puis sélectionnez Ouvrir avec > Excel dans le menu contextuel. Voir la capture d’écran :

10. Le fichier CSV exporté s’ouvre dans Excel. Veuillez sélectionner l’en-tête de colonne « Objet », puis cliquez sur Données > Filtrer. Voir la capture d’écran :

10. Cliquez sur l’icône de filtre située dans l’en-tête de la colonne Objet, cochez uniquement l’objet du rendez-vous récurrent que vous souhaitez imprimer dans la liste déroulante, puis cliquez sur le bouton OK.

11. Seules les occurrences du rendez-vous récurrent spécifié sont filtrées. Cliquez sur Fichier > Imprimer pour les imprimer.

Cette méthode utilise une macro VBA pour imprimer facilement et rapidement la liste de toutes les occurrences d’un rendez-vous récurrent dans Outlook. Voici la marche à suivre :

1. En mode Calendrier, sélectionnez une occurrence du rendez-vous récurrent que vous souhaitez imprimer, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans le nouveau module ouvert.

VBA : imprimer la liste de toutes les occurrences d’un rendez-vous récurrent dans Outlook

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

Remarque: modifiez la Plage de dates pendant laquelle vous souhaitez imprimer le rendez-vous récurrent dans le code suivant : sFilter = "[Start] >= '11/1/2016‹ And [End] < ›6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter cette macro VBA.

4. La liste de toutes les occurrences du rendez-vous récurrent sélectionné est désormais copiée et collée dans un nouvel e-mail, comme illustré dans la capture d’écran ci-dessous. Cliquez sur Fichier > Imprimer pour imprimer cette liste.

Imprimer un calendrier vierge (sans rendez-vous) dans Outlook

Imprimer deux semaines/mois de calendrier par page dans Outlook

Imprimer le calendrier quotidien dans Outlook