Bonjour à tous,
Je souhaiterais utiliser la fonction sendkeys pour automatiser des taches sur un soft dans ma société
Lorsque je teste sur un Notepad, la combinaison de touches fonctionne correctement et le résultat est parfait.
Sub Automatisation()
On Error Resume Next
Shell "notepad", vbMaximizedFocus
Dim Code_Pays As String
Code_Pays = InputBox("fr/de/ie", "Initiale pays 2Char Max ")
Loop Until Len(Code_Pays) < 3
Call Wait
SendKeys (Code_Pays) '(CODE PAYS)
Call Wait
SendKeys "{enter}"
SendKeys (Code_Pays)
Call Wait
SendKeys "{enter}"
SendKeys "1"
Call Wait
SendKeys "{enter}"
'SendKeys "{F8}"
Call Wait
SendKeys "~"
SendKeys "{DOWN}"
SendKeys "{DOWN}"
'
End Sub
Mais lorsque je teste la macro sur le logiciel dédié à rentrer les données ( conception interne de ma société) le logiciel ne comprend que les lettres et omet tous les boutons de commande (enter / tab / f8 etc...)
j'ai essayé de changer "Enter" en "~" mais rien y fait
Quelqu'un connait-il ce problème?