bonjour,
tout d'abord, mes excuses pour demander de l'aide sur un pb vb et pas vba.
je vous expose le pb et remercie ceux qui voudront participer.
Private Sub Command1_Click()
a = Shell("C:\Windows\system32\mstsc.exe", vbNormalFocus)
DoEvents
Sleep (1000)
SendKeys "192.168.1.3"
DoEvents
Sleep (1000)
SendKeys ("{ENTER}")
'DoEvents
'Sleep (3000)
'SendKeys "user"
'SendKeys "mot de passe"
'DoEvents
'Sleep (1000)
'SendKeys ("{ENTER}")
'DoEvents
End Sub
voyez vous je veux automatiser le lancement du bureau a distance.
au lieu de tout noter a repetition je veux l'automatiser. jarrive a lancer le tse sans pb et a remplir l'adresse ip et a lancer la page. c'est la que ca bloque. jarrive pas a remplir le user et mot de passe . au lieu ca me ramene au bureau principal. sans doute que pour le vba, il croit que ca doit s'appliquer que sur mon bureau. y atil moyen de resoudre le pb
merci
tout d'abord, mes excuses pour demander de l'aide sur un pb vb et pas vba.
je vous expose le pb et remercie ceux qui voudront participer.
Private Sub Command1_Click()
a = Shell("C:\Windows\system32\mstsc.exe", vbNormalFocus)
DoEvents
Sleep (1000)
SendKeys "192.168.1.3"
DoEvents
Sleep (1000)
SendKeys ("{ENTER}")
'DoEvents
'Sleep (3000)
'SendKeys "user"
'SendKeys "mot de passe"
'DoEvents
'Sleep (1000)
'SendKeys ("{ENTER}")
'DoEvents
End Sub
voyez vous je veux automatiser le lancement du bureau a distance.
au lieu de tout noter a repetition je veux l'automatiser. jarrive a lancer le tse sans pb et a remplir l'adresse ip et a lancer la page. c'est la que ca bloque. jarrive pas a remplir le user et mot de passe . au lieu ca me ramene au bureau principal. sans doute que pour le vba, il croit que ca doit s'appliquer que sur mon bureau. y atil moyen de resoudre le pb
merci