Calculatrice indows

Hello !
Tiens, tu peux essayer ça et l'adapter à ta guise...
Tu peux même programmer des combinaisons de touches comme 'Alt+F4'...




' Code à copier dans un module
' Ce code effectue l'opération prévue dans la chaine
' se servir d'une boucle pour faire le boulot sur plusieurs chaines.

Dim ReturnValue, I


Sub calcul()


ReturnValue = Shell("Calc.exe", 1)
AppActivate ReturnValue
chaine = "1+5"
For I = 1 To Len(chaine)

If IsNumeric(Mid(chaine, I, 1)) Then
SendKeys Val(Mid(chaine, I, 1)), True
Else
SendKeys Mid(chaine, I, 1), True

End If
I = I + 1

Next I

SendKeys "=", True




End Sub