[OL-2010] Selection d'un dossier sur le disque

[Jurassix]

Bonjour a tous,

Je suis en train de créer une macro dont le but est de
1 : pouvoir enregistrer les pièces jointes dans un dossier sur le disque choisi par l'utilisateur,
2 : les supprimer de l'email
3 : de laisser dans l'email le lien vers le dossier ou se trouvent les fichiers.

Les points 2 et 3 sont OK, mais pour le premier point, je n'arrive pas a trouver comment afficher une boite de dialogue pour selectionner le dossier qui va recevoir les pièces jointes.

Pour info, Outlook 2010 sur XP pro 64 bits.

J'aimerai éviter que l'utilisateur ait à taper à la main le chemin vers le dossier. Une simple boite de dialogue serait en ce sens trop limitée.

Merci pour votre aide.

PS : si ca interessent certains, je posterai le code de la macro ici.

[basto]

Bonjour

As tu essayé : FileDialog.

L'aide en ligne dit :
"Cet objet fournit une fonctionnalité de boîte de dialogue de fichier similaire à la fonctionnalité des boîtes de dialogue standard Ouvrir et Enregistrer qui existent dans les applications Microsoft Office. "

Je pense que tu dois pouvoir trouvé ton bonheur

[Jurassix]

Bonjour, merci pour ton aide!

Ton idée est bonne, j'ai essayé, mais malheureusement, voila le message d'erreur que j'obtient :

Code :

1
2
3
Run-time error 438
 
Object doesn't support this property or method

Une bibliothèque manquante? Une déclaration supplémentaire à effectuer?

Voici le code que j'ai ajouté :

Code :

1
2
3
4
5
6
7
8
9
10
 
'Déclaration
 
Dim fd As FileDialog
 
' Récupérer le chemin vers le dossier désiré
 
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
 
// c'est cette dernière ligne qui est en surbrillance lors du debuggage

Merci pour ton aide.

[basto]

Bonjour

Le mieux est de faire comme dans l'aide d'excel

Code :

1
2
3
4
5
6
7
8
9
10
 
With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
 
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount
End With

Et ca marche super bien.

Bon courage et bonnes fêtes !