Clic droit de la souris dans excel [Résolu]

Signaler
Messages postés
46
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
30 septembre 2020
-
Messages postés
46
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
30 septembre 2020
-
Bonjour, je sollicite de nouveau votre aide pour essayer de résoudre un problème... Dans le workbook open d'excel, je part un programme et à la fin du programme, il faut que je fasse un clic droit de la souris qui va exécuter un autre programme. Mon problème, c'est que le clic droit de la souris se faite au niveau du VBA et non d'excel. Je veux dire par là que la fenêtre s'ouvre dans le VBA mais moi j'ai besoin que la fenêtre s'ouvre dans excel.

Voici le code que j'utilise: (que j'ai trouvé sur le net)

'Declare mouse events
Public Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare PtrSafe Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Sub RightClick()
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Est-ce que quelqu'un sait si c'est possible d'exécuter ce code à partir du VBA (dans le workbook open, donc sans intervention humaine) pour qu'il s'exécute dans le fichier excel et non qu'il ouvre la fenêtre dans le vba?

Merci de votre aide!

4 réponses

Messages postés
13893
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 janvier 2021
782
bonjour, as-tu envisagé de nous montrer ce que tu as mis dans workbook open?
Messages postés
13893
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 janvier 2021
782
à quel moment la fenêtre de l'éditeur VBA s'ouvre-t-elle?
Messages postés
13893
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 janvier 2021
782
merci d'utiliser les balises de code, comme expliqué ici: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Messages postés
46
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
30 septembre 2020

Supposer que dans l'événement 'Open', vous avez que la ligne de code qui part le programme : 'rightclick'.

Private Sub Workbook_Open()

    RightClick

End Sub


dans certain programme, je n'ai que cela. J'espère que c'est plus claire.
Merci!
Messages postés
13893
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 janvier 2021
782
quand je fais cela, le clic droit se fait bien dans Excel, pas dans l'éditeur VBA.
Messages postés
46
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
30 septembre 2020

Oui effectivement, ça fonctionne quand on ouvre le fichier à partir d'excel mais pas si je l'ouvre de l'explorateur windows. C'était mon erreur.

merci pour l'aide :-)