Discussion :

[g.terro]

Bonjour,

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

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

comment S'il vous plait porter un non de répertoire contenu dans une cellule voire 2 cellules adjacentes
par exemple Décembre est dans la cellule C1
Hiver est dans la cellule D1

au final en cliquant sur mon bouton de macro je dois avoir le nom du répertoire dans outlook
Décembre-Hiver

Voici la fameuse macro qui pilote outllook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 encore

[helas]

Bonjour,
Passer en paramètre le nom du dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
call creationDossierDansBoiteReception(Range("C1") & "-" & Range("D1"))
 
Sub creationDossierDansBoiteReception(dossier As String)
    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(dossier & Format(Date, " yyyymmdd"))
End Sub