Hi,
I need to automate some Work. currently I'm typing a command in an Application "Amadeus Altea". Than I copy/paste the result in an Excel Sheet, where I do some other analysis there.
For the Analysis I have my macros and everything is working fine once the text got copied from Amadeus to excel.
The thing is Including the command I'm typing in Amadeus is a Date , and I need to repeat each time the same command for every day for the next 3 months. and all this weekly.

So far I managed to copy the command from excel to Amadeus (once it works fine I'll modify it so it generate the date automatic).
My Problem is I got it to work from Excel to Amadeus but not vice versa.

Here the code that work from Excel to Amadeus:
Sub Amadeus()
ActiveWorkbook.Activate
Sheets(1).Activate
Application.Wait Now + TimeValue("00:00:02")
Range("A1").Activate
Range("A1").Copy
AppActivate "Altea Reservation Desktop"
Application.Wait Now + TimeValue("00:00:02")
SendKeys ("^v")
SendKeys "{ENTER}"
End Sub
But I can't manage to get it work from Amadeus to Excel

Sub Amadeus()
AppActivate "Altea Reservation Desktop"
Application.Wait Now + TimeValue("00:00:02")
SendKeys ("^a")
SendKeys ("^c")
Application.Wait Now + TimeValue("00:00:01")
AppActivate "Microsoft Excel"
ActiveWorkbook.Activate
Application.Wait Now + TimeValue("00:00:02")
Set S2 = Worksheets("Result")
S2.Activate
Range("A1").Activate
S2.Paste
End Sub
Except the SendKeys ("^v") and SendKeys "{ENTER}" nothing works, I tried by the way SendKeys ("Test") and it did work, but I can't manage SendKeys ("^a") or SendKeys ("^c") to work.

In Amadeus you can hit Shift+Break and you would clear the entire Screen, even SendKeys ("+{BREAK}") didn't work.
I have been told to use Sleep, which I tried, even by adding 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
but again nothing worked.