contenu de cellule attribué à un répertoire de boite de réception outlook

[g.terro]

Bonjour,

Avez vous une astuce pour cette macro assez pertinente que j'ai découvert sur votre site.

cette macro va créer dans la boite de réception de outlook un répertoire du type:
("nouveau dossier " & Format(Date, "yyyymmdd"))

S'il vous plait comment remplacer "nouveau dossier" par le contenu d'une cellule (voire 2 cellules adjacentes si cela est possible)
par exemple :
si en cellule C1 figure Décembre
en cellule D1 figure Hiver

alors en cliquant sur mon bouton de macro je voudrais obtenir dans la boite de réception outlook le nom du répertoire
Décembre-Hiver & Format(Date, "yyyymmdd)

Voici la fameuse macro qui pilote outlook

Code :

1
2
3
4
5
6
7
8
9
10
Sub creationDossierDansBoiteReception()
    Dim olApp As New Outlook.Application
    Dim olSpace As Outlook.NameSpace
    Dim olFolder As Outlook.MAPIFolder
    Dim olInbox As Outlook.MAPIFolder
 
    Set olSpace = olApp.GetNamespace("MAPI")
    Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)
    Set olFolder = olInbox.Folders.Add("nouveau dossier " & Format(Date, "yyyymmdd"))
End Sub

Merci
Guillaume