Userform et calculatrice

[gilles]

- Bonjour à tous.

- Encore une question sur ces interminables fonctions des USERFORM.(et c'est tant mieux)

- Je cherche à faire apparaitre la calculatrice de mon micro à l'aide d'un bouton créé dans mon userform.

- La calculatrice se situe dans le fichier C:\windows\system32\calc.exe.

- Si quelqu'un a la combine, je suis preneur.

Merci à tous et bon week end.

Gilles

 

[michel]

bonjour Gilles

la macro ci dessous permet d'afficher la calculatrice

Sub AfficheCalculatrice()
Dim RetVal
RetVal = Shell("C:\windows\system32\calc.exe", 1)
End Sub


bon apres midi
michel

 

[P@tB]

Bonjour Glles, Mchel et tous du forum.

La question de Gilles m'interresse aussi.
Faire apparaître la calculatrice, c'est bien, mais est-il possible de récupérer le résultat calculé dans une variable pour la réutiliser dans la suite du code ?

Je crois que je pose une question à la c...

Tant pis ! Dans tous les cas, un bon week end à toutes et à tous.

 

[michel]

bonjour P@tB

le lien ci dessous traite du meme sujet

Lien supprimé


bonne soiree
michel

 

[G'Claire]

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

 

[G'Claire]

Re,

Oups, nous sommes sur la même longueur d'onde, sorry, Michel

Bon week-end,G'Claire

 

[P@tB]

Coucou G'Claire, Michel, Gilles...

Joli coup !

Ca marche très bien. Il semble quand même que si l'on veut répéter l'opération (erreur de saisie par exemple), il y ait un problème d'initialisation du presse papier.
La valeur copiée précédement revient (un coup oui, un coup non). Bizarre !

Ou alors c'est un problème d'initialisation de la TextBox. J'y retourne. Je vais bien trouver.

En tout cas, chapeau et merci.

 

[gilles]

- Merci G'Claire. Tu n'as pas volé ton pseudonyme.
- Merci, Michel, Pa@B pour vos solutions.

- Je suis bien loin de votre niveau.

Gilles