Comment rechercher et remplacer l’objet d’un rendez-vous dans le calendrier Outlook ?

Modifier l’objet des rendez-vous dans le calendrier Outlook s’avère particulièrement utile lorsque vous devez remplacer en masse certains intitulés par un même texte, ou supprimer le mot « Copie » apparu dans le champ Objet suite à une importation de données. Cet article vous propose un code VBA permettant de rechercher et remplacer les objets de plusieurs rendez-vous d’un seul coup. Découvrez comment procéder dans la suite.

Rechercher et remplacer l’objet d’un rendez-vous à l’aide d’un code VBA

---

Rechercher et remplacer l’objet d’un rendez-vous à l’aide d’un code VBA

Dans cette section, vous pouvez rechercher et remplacer l’objet d’un rendez-vous à l’aide du code VBA ci-dessous.

Rechercher et remplacer. Commencez par définir le niveau de sécurité des macros sur « Faible » dans Outlook.

1) Dans Outlook 2010 et 2013, cliquez sur « Fichier » > « Options ». Dans la boîte de dialogue « Options Outlook », sélectionnez « Centre de gestion de la confidentialité » dans le volet gauche, puis cliquez sur le bouton « Paramètres du Centre de gestion de la confidentialité ».

Dans la boîte de dialogue « Centre de gestion de la confidentialité », cliquez sur « Paramètres des macros » dans le volet gauche, puis sélectionnez l’option « Activer toutes les macros » dans la section correspondante. Cliquez enfin sur le bouton « OK ». Voir la capture d’écran :

2) Dans Outlook 2007, cliquez sur « Outils » > « Centre de gestion de la confidentialité ». Dans la boîte de dialogue qui s’ouvre, sélectionnez « Paramètres des macros » dans le volet gauche, choisissez l’option « Aucune vérification de sécurité pour les macros », puis cliquez sur « OK ».

2. Appuyez sur les touches « Alt » + « F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Dans la fenêtre « Microsoft Visual Basic pour Applications », double-cliquez successivement sur « Projet1 », puis sur « Objets Microsoft Outlook », et enfin sur « ThisOutlookSession » pour ouvrir l’éditeur VBA. Voir la capture d’écran :

4. Copiez-collez le code VBA ci-dessous dans l’éditeur VBA, puis appuyez sur la touche « F5 » pour l’exécuter.

VBA : Rechercher et remplacer objet du rendez-vous

Sub FindReplaceAppointment()
    Dim oApp As Outlook.Application
    Dim oCalFolder As Outlook.MAPIFolder
    Dim oAppt As Outlook.AppointmentItem
    Dim sOldText As String
    Dim sNewText As String
    Dim iCalChangedCount As Integer
    Set oApp = Outlook.Application
    MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
    sOldText = InputBox("What is the text string that you would like to replace?")
    sNewText = InputBox("With what would you like to replace it?")
    ' Check to be sure a Calendar folder was selected
    Do
    If Not (oCalFolder Is Nothing) Then
        If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
    End If
    MsgBox ("Please select a calendar folder from the following list.")
    Set oCalFolder = Application.Session.PickFolder
    On Error GoTo ErrHandler:
    Loop Until oCalFolder.DefaultItemType = olAppointmentItem
    ' Loop through appointments in calendar, change text where necessary, keep count
    iCalChangedCount = 0
    For Each oAppt In oCalFolder.Items
        If InStr(oAppt.Subject, sOldText) <> 0 Then
            Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
            oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
            oAppt.Save
            iCalChangedCount = iCalChangedCount + 1
        End If
    Next
    ' Display results and clear table
    MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
    Set oAppt = Nothing
    Set oCalFolder = Nothing
Exit Sub
ErrHandler:
    MsgBox ("Macro terminated.")
End Sub

5. Après l’exécution du code, une boîte de dialogue « Microsoft Outlook » s’affiche. Cliquez sur « OK ».

6. Dans la deuxième boîte de dialogue « Microsoft Outlook », saisissez le texte que vous souhaitez remplacer, puis cliquez sur « OK ».

7. Dans la troisième boîte de dialogue « Microsoft Outlook », saisissez le texte de remplacement de votre choix, puis cliquez sur « OK ».

Remarque : Si vous souhaitez simplement supprimer tous les mots « Copie » de l’objet dans le calendrier spécifié, laissez ce champ vide.

8. Cliquez sur le bouton « OK » dans la boîte de dialogue ci-dessous.

9. Dans la boîte de dialogue « Sélectionner un dossier », sélectionnez votre calendrier sous le compte de messagerie indiqué, puis cliquez sur « OK ». Voir la capture d’écran :

10. Une boîte de dialogue s’affiche alors pour vous confirmer que le remplacement a réussi. Cliquez sur le bouton « OK ».

11. Tous les textes figurant dans les objets des rendez-vous du calendrier sélectionné ont désormais été remplacés par le nouveau contenu.