OVH Cloud OVH Cloud

[vba] Dossier contact en cours

2 réponses
Avatar
-=lolol=-
Bonjour à tous,

Dans une macro je passe par :
Set MonDossier = Session.GetDefaultFolder(olFolderContacts)
Qui affecte à "MonDossier" le dossier de contact par défaut.

Je souhaiterais la modifier de façon à affecter le dossier contact
actuellement à l'affichage.

Savez vous comment faire ?
Par avance merci pour vos participations

@+lolo

2 réponses

Avatar
Geo

Bonjour à tous,

Dans une macro je passe par :
Set MonDossier = Session.GetDefaultFolder(olFolderContacts)
Qui affecte à "MonDossier" le dossier de contact par défaut.

Je souhaiterais la modifier de façon à affecter le dossier contact actuellement à
l'affichage.

Savez vous comment faire ?


Passer par un inspector il me semble.

--
A+

Avatar
-=lolol=-
Bonjour Geo,

Dans une macro je passe par :
Set MonDossier = Session.GetDefaultFolder(olFolderContacts)
Qui affecte à "MonDossier" le dossier de contact par défaut.

Je souhaiterais la modifier de façon à affecter le dossier contact
actuellement à l'affichage.

Savez vous comment faire ?


Passer par un inspector il me semble.


Je m'en suis sorti en testant pour voir si c'est un dossier contact
If ActiveExplorer.CurrentFolder.DefaultItemType = olContactItem Then
puis avec
Set MonDossier = ActiveExplorer.CurrentFolder

Merci
@+lolo