Si tu t y connais en vb ben rien de plus simple avec une boucle et un sendkeys... mais je te préviens que ca peut etre tres tres long...
le prog peut etre quelque chose dans ce gout la :
Dim Txt()
Txt = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
tmp = 0
SendKeys ("%{TAB}")
DoEvents
'54 = s
VarA = 54
While VarA < 62
VarB = 30
While VarB < 62
VarC = 24
While VarC < 62
'VarD = 0
'While VarD < 62
'e = Now
'Do Until Now > e + TimeValue("0:00:01")
On Error Resume Next
DoEvents
'Loop
temps = Now
Do Until Now > temps + TimeValue("0:00:01")
Loop
Form1.Caption = (Txt(VarA) & Txt(VarB) & Txt(VarC) & Txt(VarD))
SendKeys (Form1.Caption)
DoEvents
'temps = Now
'Do Until Now > temps + TimeValue("0:00:01")
'Loop
SendKeys ("{TAB}")
SendKeys ("{ENTER}")
temps = Now
Do Until Now > temps + TimeValue("0:00:01")
Loop
SendKeys ("{ENTER}")
temps = Now
Do Until Now > temps + TimeValue("0:00:01")
Loop
SendKeys ("+{HOME}")
'SendKeys ("{TAB}")
'SendKeys ("{TAB}")
'SendKeys ("{TAB}")
DoEvents
'VarD = VarD + 1
'Wend
VarC = VarC + 1
Wend
VarB = VarB + 1
Wend
VarA = VarA + 1
Wend