Comment imprimer une liste d'un rendez-vous récurrent dans Outlook ?

Imprimer une liste d'un rendez-vous récurrent dans Outlook via l'exportation

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

En réalité, il n'y a pas de moyen direct d'imprimer la liste de toutes les occurrences d'un rendez-vous récurrent dans Outlook. Cependant, vous pouvez exporter les données du calendrier vers Excel, filtrer toutes les occurrences du rendez-vous récurrent, puis imprimer. Veuillez procéder comme suit :

1. Dans Outlook, veuillez cliquer sur Fichier > Ouvrir et Exporter (ou Ouvrir) > Importer/Exporter (ou Importer).

2. Dans l'Assistant Importation et Exportation, veuillez cliquer sur l'option Exporter vers un fichier, puis cliquez sur le bouton Suivant .

3. Dans la première boîte de dialogue Exporter vers un fichier, veuillez cliquer sur 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, veuillez cliquer sur le bouton Parcourir.

6. Maintenant, la boîte de dialogue Parcourir apparaît. Veuillez (1) spécifier un dossier de destination où vous enregistrerez le fichier CSV exporté, (2) nommer le fichier CSV dans la zone Nom du fichier, et (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. Veuillez spécifier la plage de dates pour laquelle vous exporterez le calendrier dans la boîte de dialogue Définir la Plage de Dates, puis cliquez sur le bouton OK.

9. Jusqu'à présent, le calendrier Outlook a été exporté sous forme de fichier CSV. Veuillez ouvrir le dossier contenant le fichier CSV, faites un clic droit sur le fichier CSV et sélectionnez Ouvrir avec > Excel dans le menu contextuel. Voir capture d'écran :

10. Le fichier CSV exporté s'ouvre dans Excel. Veuillez sélectionner l'en-tête de colonne Sujet, puis cliquez sur Données > Filtre. Voir capture d'écran :

10. Cliquez sur l'icône de filtre dans l'en-tête de colonne Sujet, cochez uniquement le sujet 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. Veuillez cliquer sur Fichier > Imprimer pour les imprimer.

Cette méthode présente un VBA permettant d'imprimer rapidement une liste d'un rendez-vous récurrent dans Outlook facilement. Veuillez procéder comme suit :

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

2. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans le nouveau script Module qui s'ouvre.

VBA : Imprimer une 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 : Veuillez modifier la plage de dates pour laquelle vous imprimerez le rendez-vous récurrent dans le code : sFilter = "[Début] >= '01/11/2016' And [Fin] < '30/06/2017' And [isrecurring] = True And [Sujet] = " & strSubject

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

4. Maintenant, la liste de toutes les occurrences du rendez-vous récurrent sélectionné est copiée et collée dans un nouvel e-mail comme le montre la capture d'écran ci-dessous. Veuillez cliquer sur Fichier > Imprimer pour imprimer la liste.

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

Imprimer deux semaines/mois de calendrier par page dans Outlook

Imprimer un calendrier quotidien dans Outlook