# C-UM-IGE_Macro classercourriel procedure

[![Bandeau GCM](https://docs.gcmconsultants.com/uploads/images/gallery/2026-02/scaled-1680-/VOpt1qTFCk2yatPj-bandeau-documentation-ti-gcm-corpo-v3.png)](https://docs.gcmconsultants.com/uploads/images/gallery/2026-02/scaled-1680-/VOpt1qTFCk2yatPj-bandeau-documentation-ti-gcm-corpo-v3.png)

##### **Objet:** Configurer et utiliser la macro "Classercourriel" dans Outlook
##### **Description**
Cette procédure explique comment activer, configurer et utiliser la macro "Classercourriel" pour archiver vos courriels dans un dossier spécifique.

##### **Etapes**
**Partie 1 : Activer l'onglet Développeur**

1.  Faites un clic droit sur la barre d'outils en haut d'Outlook et sélectionnez **Personnaliser le ruban...**.
    
![image001.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/diDWrrg0feWmrQLj-embedded-image-mlomfupg.png)
 
![image002.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/41o4QwEkldevRP99-embedded-image-6k5onz2t.png)

2.  Dans la colonne de droite, sous **Personnaliser le ruban**, sélectionnez **Onglets principaux** dans le menu déroulant.
3.  Cochez la case **Développeur**.
4.  Cliquez sur **OK** pour fermer la fenêtre.
    
![image003.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/iDI8YYukHLy5t2fe-embedded-image-mnjdskjq.png)
 
![image004.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/v0Og6DaUk0aw11QR-embedded-image-zjihgjug.png)
 
![image005.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/HBl6MCwQ1uyTZ6p4-embedded-image-spg3mipc.png)
 
![image006.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/YH6pZNy69eEDmzEc-embedded-image-r8z6pa5k.png)
 
![image007.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/XBa9CTwbRMdt5Ozn-embedded-image-1dlpctyd.png)
 
![image008.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/w8B34SO0h1E4fi1X-embedded-image-wietzkuk.png)
 
![image009.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/F38PpYmtkKhmuQMb-embedded-image-z2kbgne3.png)
 
![image008.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/w8B34SO0h1E4fi1X-embedded-image-wietzkuk.png)
 
![image010.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/4yjKB416wlbQs783-embedded-image-ru2ehbs2.png)


**Partie 2 : Créer la macro**

5.  Allez dans le nouvel onglet **Développeur** et cliquez sur **Macros**.
    
![image001.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/diDWrrg0feWmrQLj-embedded-image-mlomfupg.png)
 
![image011.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/1usmpYOa7qvUAcmu-embedded-image-iqus3qwl.png)

6.  Dans le champ **Nom de la macro**, tapez `Classercourriel`.
7.  Cliquez sur **Créer**.
    
![image012.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/vGbvil1j0gH7x7yT-embedded-image-typrdx0p.png)
 
![image001.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/diDWrrg0feWmrQLj-embedded-image-mlomfupg.png)
 
![image013.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/YJNcLnxcsz6D4UzM-embedded-image-9o3rcbxn.png)

8.  Effacez tout le texte présent dans la fenêtre de l'éditeur qui s'ouvre.
9.  Copiez et collez le code suivant dans son intégralité :
    ```vb
    Sub Classercourriel()
    '
    '
    '
        Dim objItem As MailItem
        Dim objSelection As Selection
        Dim savePath As String
        Dim fileName As String
        Dim finalPath As String
        
        Dim strNamefrom As String
        Dim arrPartsfrom As Variant
        Dim strInitialsfrom As String
        Dim strNameto As String
        Dim arrPartsto As Variant
        Dim strInitialsto As String
        
    Dim i As Integer
        
    'Protection contre les erreurs
    On Error GoTo erreur
    'Appel d'une fonction pour déterminer le dossier où enregistrer
        savePath = PickFolderShell()
        If savePath = "" Then Exit Sub
        Set objSelection = Application.ActiveExplorer.Selection
        For Each objItem In objSelection
            If TypeName(objItem) = "MailItem" Then
                
                'création des initiales de
                ' Récupérer le nom complet du sender
                strNamefrom = objItem.senderName
                ' Découper le nom en mots (séparés par espace)
                arrPartsfrom = Split(strNamefrom, " ")
                ' Construire les initiales
                strInitialsfrom = ""
                For i = LBound(arrPartsfrom) To UBound(arrPartsfrom)
                    strInitialsfrom = strInitialsfrom & UCase(Left(arrPartsfrom(i), 1))
                Next i
                'création des initiales à
                ' Récupérer le nom complet du receiver
                strNameto = objItem.To
                ' Découper le nom en mots (séparés par espace)
                arrPartsto = Split(strNameto, " ")
                ' Construire les initiales
                strInitialsto = ""
                For i = LBound(arrPartsto) To UBound(arrPartsto)
                    strInitialsto = strInitialsto & UCase(Left(arrPartsto(i), 1))
                Next i
                
                'Création du nom du fichier à enregistrer
                'appel d'une fonction de nettoyage de nom pour enlever les caractères spéciaux
                fileName = Format(objItem.ReceivedTime, "yy-mm-dd") & " de " & _
                    CleanFileName(strInitialsfrom) & " a " & _
                    CleanFileName(strInitialsto) & " " & _
                    CleanFileName(objItem.Subject) & ".msg"
                
                finalPath = savePath & "\" & fileName
                
                objItem.SaveAs finalPath, olMSGUnicode
            End If
        Next
        MsgBox "Courriel enregitré avec succès!"
    Exit Sub
    erreur:
    MsgBox ("PROBLÈME !!!!! Le nom de votre fichier est probablement trop long ou existe déjà, veuillez sauvegarder manuellement le courriel")
    End Sub
    ' Function pour enlever les caractères invalides pour le nom
    Function CleanFileName(str As String) As String
        Dim invalidChars As Variant
        invalidChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
        Dim i As Integer
        For i = LBound(invalidChars) To UBound(invalidChars)
            str = Replace(str, invalidChars(i), "_")
        Next i
        CleanFileName = Trim(str)
    End Function
    'Fonction pour sélectionner un répertoire d'enregistrement
    'répertoire de base dans le Z:
    Function PickFolderShell() As String
        Dim objShell As Object
        Dim objFolder As Object
        Dim objstartFolder As Object
        Set objShell = CreateObject("Shell.Application")
        Set objstartFolder = objShell.NameSpace("Z:\")
        Set objFolder = objShell.BrowseForFolder(0, "Choose save folder", 0, objstartFolder.Self.Path)
        If Not objFolder Is Nothing Then
            PickFolderShell = objFolder.Items().Item().Path
        Else
            PickFolderShell = ""
        End If
    End Function
    ```
10. Fermez la fenêtre de l'éditeur de code pour revenir à Outlook.

**Partie 3 : Ajouter un bouton d'accès rapide**

11. Faites à nouveau un clic droit sur le ruban et sélectionnez **Personnaliser le ruban...**.
    
![image001.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/diDWrrg0feWmrQLj-embedded-image-mlomfupg.png)
 
![image014.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/sqVvhewrRJLlb33P-embedded-image-dfrshpv6.png)

12. Dans la colonne de gauche, sous **Choisir les commandes dans les catégories suivantes**, sélectionnez **Macros**.
13. Sélectionnez la macro **Classercourriel** dans la liste.
14. Dans la colonne de droite, sélectionnez l'onglet où vous souhaitez ajouter le bouton (par exemple, **Accueil (Courrier)**), puis cliquez sur **Nouveau groupe**.
15. Assurez-vous que votre nouveau groupe est sélectionné, puis cliquez sur le bouton **Ajouter >>** au centre pour y placer la macro.
16. Cliquez sur le bouton **Renommer...** pour choisir une icône et donner un nom au bouton.
17. Cliquez sur **OK** pour fermer la fenêtre.
    
![image015.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/nRs5aww2VJffFctj-embedded-image-schkbrev.png)
 
![image003.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/iDI8YYukHLy5t2fe-embedded-image-mnjdskjq.png)
 
![image016.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/PKdUhwJpT8wOHCdA-embedded-image-zz5dajut.png)
 
![image017.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/pt34O6rh7KHdwCTc-embedded-image-jhkl4lq8.png)
 
![image018.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/XR3zChFo53KeKrnc-embedded-image-43ybsmgx.png)
 
![image019.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/gq7N3FAF5o4e2Rt1-embedded-image-7hxagjmv.png)
 
![image020.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/pRufFpBetQ1fzRkR-embedded-image-tc1j9p0x.png)
 
![image003.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/iDI8YYukHLy5t2fe-embedded-image-mnjdskjq.png)
 
![image021.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/ZvUjEWHGzsofuoHf-embedded-image-npyryjau.png)
 
![image022.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/FOBhpbXcnh4SSXzi-embedded-image-lzabo9rc.png)
 
![image023.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/hpvlxVwDexJrpZrV-embedded-image-gnn2args.png)
 
![image024.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/2fahfEcK7cLejm8m-embedded-image-cg2hlwa4.png)
 
![image007.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/XBa9CTwbRMdt5Ozn-embedded-image-1dlpctyd.png)
 
![image009.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/F38PpYmtkKhmuQMb-embedded-image-z2kbgne3.png)
 
![image025.png](https://docs.gcmconsultants.com/uploads/images/gallery/2026-06/J0hYpGu8JHDu2eFR-embedded-image-ulneczyu.png)


**Partie 4 : Utiliser la macro**

18. Sélectionnez le ou les courriels que vous souhaitez classer.
19. Cliquez sur le nouveau bouton que vous venez de créer dans le ruban pour exécuter la macro.

##### **Remarques**
- Si le changement d'icône n'a pas fonctionné, répétez les étapes 16 et 17.
- Si la macro affiche un message d'erreur, cela signifie que le courriel n'a pas pu être enregistré. Vous devez alors l'enregistrer manuellement.