Discussion :

[DarkGriffin]

Bonjour,

Je cherche un moyen d'ouvrir automatiquement les listes déroulantes d'un document word en les parcourant avec la touche TAB.

Actuellement, je sais le faire quand on clique dans un ControlContent, en utilisant simplement l'event associé :

Code :

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

1
2
3
4
5
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    If ContentControl.Type = wdContentControlDropdownList Or ContentControl.Type = wdContentControlComboBox Then
        SendKeys "%{down}"
    End If
End Sub

Mais ça ne fonctionne pas si on parcourt le document de TAB en TAB. Comment je pourrais faire ?

Merci

[DarkGriffin]

Alors, j'avance, mais ça ne fonctionne toujours pas.

Comme l'événement voulu n'existait pas, j'ai créé un module de classe :

Code :

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

1
2
3
4
5
6
7
Public WithEvents App As Word.Application
 
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    If Sel.Information(wdInContentControl) Then
        SendKeys "%{down}"
    End If
End Sub

Que j'initialise correctement :

Code :

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

1
2
3
4
5
Dim X As New EventClassModule
 
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub

Chaque fois que je fais un TAB, ça active bien l'événement voulu, mais le SendKeys semble ne pas fonctionner (il ne se passe rien). De plus, je voudrais non pas activer le SendKeys sur tous les ContentControl, mais uniquement quand il s'agit de liste déroulante. Comment récupérer le ControlContent à partir de la Selection ?

Merci

[DarkGriffin]

Pas d'idée ?

[Invité]

Pas d'idée ?

Bonjour,

Pour ce qui me concerne : non. Si tu souhaites que je regarde (sans garantie), mets un fichier en ligne.

[DarkGriffin]

Bonjour Eric,

Je te remercie d'essayer de m'aider Fais ce que tu peux, évidemment.

Je suis un peu comme un couillon devant ce truc, je ne pige pas du tout.

J'ai simplifié le document au minimum (et expurgé des informations confidentielles). Tu verras, quand on clique sur une liste déroulante, ça s'ouvre bien automatiquement, mais si on y passe via un [TAB], ça déroule bien la procédure mais n'ouvre pas la liste, c'est à n'y rien comprendre.

Merciiiii

PS : apparemment, on ne peut pas joindre un fichier .docm... un comble pour un forum VBA Word non ? :p

Ouverture_automatique.zip

[Invité]

Pour contourner ton problème, j'aurais rempli ce formulaire via une boite de dialogue et chargé les listes dans des listbox. Un bouton de validation aurait mis à jour les valeurs correspondantes.
Nb : Je n'ai jamais essayé sur des combobox.

[DarkGriffin]

Ouais, ce serait bien plus simple en effet. Mais là, on change complètement d'optique pour ce fichier, je ne suis pas sûr que l'utilisateur soit ravi.

Tu ne vois pas pourquoi cette méthode ne fonctionne pas, sinon ? Rah c'est tellement frustrant...

Merci de ton temps en tout cas.

[Invité]

je ne suis pas sûr que l'utilisateur soit ravi.

Il n'y a que l'efficacité qui compte.

Je suis entrain de regarder les propriétés et méthodes des ContentControl. Pourquoi as-tu donné un nom réservé à ta variable ContentControl ?

Code :

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

1
2
3
4
5
6
 
Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
    If ContentControl.Type = wdContentControlDropdownList Or ContentControl.Type = wdContentControlComboBox Then
        SendKeys "%{down}"
    End If
End Sub

[DarkGriffin]

Ah oui, ce n'est pas terrible.

Mais ça ne change rien a priori.

[Invité]

Désolé, je n'ai pas trouvé de solution.

Bon courage.