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 :
La rien ne se passe et rien ne s'affiche.
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
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
Partager