Clic droit de la souris dans excel
Résolu
Utilisateur anonyme
-
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!
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!
A voir également:
- Clic droit de la souris dans excel
- Liste déroulante excel - Guide
- Windows 11 clic droit afficher plus d'options par défaut - Guide
- Quelle touche pour débloquer la souris ? - Guide
- Word et excel gratuit - Guide
- Comment calculer la moyenne sur excel - Guide
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?
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?
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