الكود التالي يعمل بشكل ممتاز ظاهريا ينتقل بين الحانات لكنه لا تظهر الكتابة . فهل من حل لهذه المشكلة
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sub filldata()
Sleep (20)
AppActivate "[Planning des services]", True
Do Until ActiveCell.Text = "m1"
SendKeys ActiveCell.Text, True
Sleep 200
'application.Wait now + timevalue("00:00:01")
SendKeys ActiveCell.Offset(0, 1).Text, True
SendKeys "{tab}", True
Sleep 200
'application.Wait now + timevalue("00:00:01")
SendKeys ActiveCell.Offset(0, 2).Text, True
SendKeys "{enter}", True
Sleep 200
'application.Wait now + timevalue("00:00:01")
SendKeys "{right}", True
Sleep 200
ActiveCell.Offset(0, 3) = "DONE"
ActiveCell.Offset(1, 0).Select
Loop
End Su