Gilles, Michel et P@tB
Voici un code fait par Schmail.
Private Sub CommandButton2_Click()
Dim calc
calc = "Calculatrice" 'nom de la calculette
AppActivate calc
SendKeys "^C", True 'copie comme Ctrl+C
SendKeys "%{F4}", True 'ferme
UserForm1.TextBox1.SetFocus
SendKeys "^V", True 'colle
TextBox1.Value = Format(TextBox1.Value, "0.00") 'regle le format du nombre (optionnel)
End Sub
Private Sub CommandButton1_Click()
Shell ("C:\WINDOWS\CALC.EXE")
End Sub
Bon week-end,G'Claire