Bonjour,

J'ai un petti souci de syntaxe pour faire apparaitre la fentre "Option des messages" (derniere ligne du enu contextuel) par VBA.
Je me suis servi du code dans le forum pour faire apparaitre le carnet d'adresse et j'ai recuperer l'ID de la fenetre Option des message (5598).
Dans tous les cas pour faire apparaitre une fenetre j'ai du remplacer :

"ActiveInspector" par "Active Explorer" car sinon erreur meme avec carnet d'adresse.

Mon code est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
 
Sub OpenFenContacts()
    Dim CBp As Variant
    Set CBp = ActiveExplorer.CommandBars.FindControl(, 5598)
    CBp.Execute
End Sub
La rien ne se passe et rien ne s'affiche.
j'ai essayé le code suivant en ajoutant le complement "visible = True "

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 
     Set CBp = ActiveExplorer.CommandBars.FindControl(, 5598, , True)

mais la un message erreur apparait : Erreur d'execution 91
variable objet ou variable de bloc with non definit.

Je ne serait pas contre un petit coup de main pour ce petit probleme d'ecriture.
Merci d'avance de votre aide.
Cordialement