Discussion :

[ThierryP73]

Bonjour le forum,

Certains utilisateurs d'Outlook ont une arborescence de leurs dossiers assez complexe ... et donc se perdent parfois ! Donc, pour leur faciliter la vie, j'ai créé un bout de macro qui exporte cette arborescence dans un fichier texte.
Petit souci, cette exportation ne respecte pas l'arborescence réelle

Arbo réelle _____________________ Arbo extraite
0 - Interne _____________________ 0 - Interne
--Envoi _____________________ --Reçu
----Direction _____________________ ----Direction
--Reçu _____________________ ----Congés
----Direction _____________________ --Envoi
----Congés _____________________ ----Direction

Je trouve bien mes dossiers et sous-dossiers....mais pas dans l'ordre ! Voici la procédure qui fait le job :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub Boucle_Dossiers(Dossiers As Outlook.Folders)
Dim MF As Outlook.MAPIFolder
For Each MF In Dossiers
    If InStr(MF.Name, "Contacts") <> 0 Then GoTo fin
    Ecrit_Fichier (Nom_Dossier(MF.FolderPath, MF.Name))
    Boucle_Dossiers MF.Folders
Next
fin:
End Sub
'
Private Sub Ecrit_Fichier(OLNom_Dossier As String)
fnum = FreeFile()
Open Fichier For Append As #fnum
Print #fnum, OLNom_Dossier
Close #fnum
End Sub
'
Private Function Nom_Dossier(OLChemin_Dossier As String, OLNom_Dossier As String) As String
If Structure = False Then
    Nom_Dossier = Mid(OLChemin_Dossier, 3)
Else
    Dim i As Integer
    i = Len(OLChemin_Dossier) - Len(Replace(OLChemin_Dossier, "\", ""))
    Dim x As Integer
    Dim OLPrefixe As String
    For x = Base To i
        OLPrefixe = OLPrefixe & "-- "
    Next
    Nom_Dossier = OLPrefixe & OLNom_Dossier
End If
End Function

Si quelqu'un a une petite idée de comment dire à VBA de respecter l'ordre dans lequel sont les dossiers et sous-dossiers, je suis preneur !

Merci d'avance,

ThierryP

[Oliv-]

Regarde mon blog
https://www.developpez.net/forums/bl...sous-dossiers/

Il y a une propriété des dossiers folderpath qui te donnera l emplacement complet de ton dossier

[ThierryP73]

Bonjour Oliv',

Merci pour le retour ! Je vais regarder çà de plus près

Thierryp

Regarde mon blog
https://www.developpez.net/forums/bl...sous-dossiers/

Il y a une propriété des dossiers folderpath qui te donnera l emplacement complet de ton dossier

[ThierryP73]

J'ai jeté un coup d'oeil mais ça ne colle pas :-(

J'utilise déjà la propriété folderpath, mais les dossiers ne sont pas affichés dans le bon ordre (voir pj pour l'arbo réelle) et je ne sais pas comment dire à Outlook de respectif le classement alpha-numérique des noms de dossiers.
S'il n'y a pas de possibilité directe, je mets tout dans un tableau que je trie avant d'écrire dans le fichier texte, mais bon ça va alourdir un peu la macro....

ThierryP

[Oliv-]

Je pense que c est classe dans l ordre de création

[ThierryP73]

Eh ben puisque c'est comme çà, je vais faire mon propre classement !!

Merci pour ton retour,

ThierryP

Je pense que c est classe dans l ordre de création