Discussion :

[guy68]

Bonjour,

Je souhaite que ma macro VBA (excel) génére automatiquement un dossier (folder) sous la racine "Archive folder" (voir pièce jointe).

Merci
Guy68

[Oliv-]

Salut
Et Où bloques tu ?

[guy68]

Je bloque à l'adresse de mon dossier.
Pour le dossier en question j'ai l'adresse : outlook:\\Archive Folders
Donc j'ai fait un truc du genre

Code :

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

mkdir "outlook:\\Archive Folders\" & "nouveau_dossier"

Et ça marche pas.

T'as une idée ?

[Oliv-]

mkdir c'est pour créer dans un dossier WINDOWS SUR UN DISQUE.

essaye pluto avec :

Code :

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

1
2
3
4
5
6
Dim NS As NameSpace
    Set NS = Application.GetNamespace("MAPI")
    Dim dossier As MAPIFolder
    Set dossier = NS.Folders("Archive Folders")
    Dim myNewFolder As MAPIFolder
    'Set myNewFolder = dossier.Folders.add("Test")

[guy68]

Salut,

La macro bloque sur Namespace.
C'est une routine que je veux faire à partir d'excel. Je ne sais pas si cela a de l'importance.

a+
guy68

[Laurent CUENET]

Bonjour,


ajoute la référence à Outlook.

[Oliv-]

Un peu mon neveu

Si tu designes outlook.application par monOutlook
remplace ainsi

Set NS = monOutlook.GetNamespace("MAPI")

Est ce que cela fonctionne ?

[guy68]

Salut,

Voilà mes lignes de code :

Code :

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

1
2
3
4
5
6
Dim ns As Namespace
Set ns = monOutlook.GetNamespace("MAPI")
Dim dossier As MAPIFolder
Set dossier = ns.Folders("Archive Folders")
Dim myNewFolder As MAPIFolder
    'Set myNewFolder = dossier.Folders.add("Test")

Pour l'instant sans succès

Il me renvoie l'erreur : user-defined type not defined

a+
Guy68

[Oliv-]

Guy, comme l'a précisé Laurent il faut ajouter une référence ou pas cela dépend du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
'ajouter une référence dans outils / références / "microsoft outlook xx.0 object library"
Dim monOutlook
Set monOutlook = Outlook.Application
Dim ns As Namespace
Set ns = monOutlook.GetNamespace("MAPI")
Dim dossier As MAPIFolder
Set dossier = ns.Folders("Archives Olivier")
Dim myNewFolder As MAPIFolder
Set myNewFolder = dossier.Folders.Add("Test")
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test_latebinding()
Dim monOutlook As Object
Set monOutlook = CreateObject("Outlook.Application")
Dim ns  As Object
Set ns = monOutlook.GetNamespace("MAPI")
Dim dossier As Object
Set dossier = ns.Folders("Archives Olivier")
Dim myNewFolder  As Object
Set myNewFolder = dossier.Folders.Add("Test")
 
End Sub

[guy68]

Salut,

J'ai utilisé les lignes suivantes :

Code :

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

1
2
3
4
5
6
7
8
Dim monOutlook As Object
Set monOutlook = CreateObject("Outlook.Application")
Dim ns  As Object
Set ns = monOutlook.GetNamespace("MAPI")
Dim dossier As Object
Set dossier = ns.Folders("outlook:\\Archive Folders\")
Dim myNewFolder  As Object
Set myNewFolder = dossier.Folders.Add("Test")

ça passe jusqu'à la ligne de l'adresse du dossier (outlook:\\Archive Folders\) dans lequel je veux créer un nouveau dossier ("Test").
J'ai obtenu cette adresse en rajoutant la bare de menu WEB dans outlook.
J'ai comme l'impression que c'est pas bon.

a+
Guy68

[Oliv-]

Avec la syntaxe de départ cela ne fonctionne pas ?

Code :

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

Set dossier = NS.Folders("Archive Folders")

moi j'avais mis "Archives Olivier" parce que je n'ai pas de dossier portant le même nom que le tien.

[guy68]

Et en plus ça marche. Génial

Merci Oliv- pour ta collaboration.

A une autre fois.

Guy68