import resultat calculatrice

[herve]

bonjour

une petite question en passant... et qui n'exhappera pas à votre savoir j'en suis sur...

Dans un useform, j'ai besoin de me serir de la calculatrice.
je la lance donc.

comment puis je récuperer le resultat de celle ci dans un textbox de ma userform pour m'en servir.
Et comme c'est pour simplifier, je ne veux pas utiliser le menu copier de la calculatrice de facon manuelle...


merci !

Hervé

 

[schmail]

Bonsoir hervé

Ton USF devra avoir un bouton pour lancer la calculette et un bouton pour copier le résultat.

Démarrage de la calculette
Private Sub CommandButton1_Click()
Shell ("C:\WINDOWS\CALC.EXE")
End Sub

Copie le résultat en "imitant" les raccourcis clavier
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.taTextBox.SetFocus
SendKeys "^V", True 'colle
taTextBox.Value = Format(taTextBox.Value, "0.00") 'regle le format du nombre (optionnel)
End Sub

@+ et bonne soirée

 

[herve]

bonsoir!

merci Schmail pour ton code.

hélas, cela ne fonctionne pas tout a fait... cela ne colle rien dans le textbox!

j'ai du louper quelque chose non??

@+ et bonne nuit

 

[Roland]

Bonsoir ou bonjour à tous les deux

Mais si cela marche Mais passe en commentaire la dernière pour tes essais.

Roland

 

[herve]

re bonsoir​

pour que cela marche, j'ai du rajouter


SendKeys "=", True
SendKeys "^C", True 'copie comme Ctrl+C

dans la premiere partie...

je ne comprends pas pourquoi, mais c'est ok maintenant...


merci et bonne nuit !

herve

 

[schmail]

Bonjour Hervé, Roland et le forum

hops ! L'instruction SendKeys permet de "bricoler" mais avec tes rajouts, hervé, je ne comprend plus trop la logique du bricolage (peut être des propriétés d'usf ou de controles différentes....)
Je te joins un fichier exemple qui fonctionne très bien sur mon ordi (W98, XL2000). Pour voir

@+ et bonne journée

 

[herve]

bonjour a tous !

merci Schmail pour ta patience...
en effet, je ne sais pas pourquoi, mais ca marche même bien ton truc...

Et est il possible de faire dans le genre :

1 bouton pour lancer la calc, et automatiquement à la fermeture de celle-ci la valeur resultat est copiée et mise dans un textbox précis, ce qui permettrai de supprimer ton bouton résultat...

encore merci.

Herve

 

[schmail]

bonsoir hervé

Je bricole un peu en VBA mais là.... capter l'évenement fermeture de la calculatrice... je cale

bonne soirée qd même et peut être qu'un spécialiste passera par là ou que nos recherches sur le sujet porteront leur fruit...@ suivre

 

[herve]

bonsoir

merci Schmail pour t'on aide... j'arrive a faire ce que je voulais... enfin presque...

a defaut de fonction calculette (telle calendar), je ferai avec cette soluce,

a moins (on peut rever), qu'un gourou d'XL ai fait un unserform calculette...


@suivre en effet !

Hervé

 

[Roland]

Bonsoir à tous

En attendant les spécialistes

Voici un début de calculette à terminer je n'ai plus le temps ce soir.

Si quelqu'un s'y met qu'il le dis sinon je terminerai ce WeekEnd

A+ Roland

 

[Roland]

Un oubli Sorry

 

[EMG]

Bonsoir à tous

Ben yaka demandé tout t'est la

@+ Gérard

 

[EMG]

Bonjour le forum

Hier soir j'ai omis de mettre une petite note d'utilisation pour la calculette

l'insertion du résultat se fait sur n'importe quelle cellule ou groupe de cellule, cette calculette est crée directement à partir du code VBA qui fait référence a un module de classe

lors de la fermeture de celle-ci en cliquant sur la petite croix de fermeture blanche elle disparaît, pour l'afficher de nouveau a l'écran il suffit de faire dans la barre des menus la manip suivante :

Affichage....Barres d'outils....Calculette V1.00

@+ Gérard