Clic droit de la souris dans excel

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
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

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, as-tu envisagé de nous montrer ce que tu as mis dans workbook open?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
à quel moment la fenêtre de l'éditeur VBA s'ouvre-t-elle?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
merci d'utiliser les balises de code, comme expliqué ici: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
0
Utilisateur anonyme
 
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!
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
quand je fais cela, le clic droit se fait bien dans Excel, pas dans l'éditeur VBA.
0
Utilisateur anonyme
 
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 :-)
0