Sendkeys récupération données

Bonjour,

Je cherche à récupérer les données affichés dans un logiciel genre dos et les coller sur une feuille excel. Mon code est dessous.

J'avais un problème de numlock qui est désactivé que j'ai réglé en simulant la ré-activation.

SendKeys "^(v)" fonctionne de manière aléatoire... Avez-vous une idée ?

Merci d'avance,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub RecupSendKeys()   SetForegroundWindow (FindWindow("vt320", vbNullString)) Sleep (10) SendKeys "%(e)", True SendKeys "a", True Sleep (500) SendKeys "%(e)", True SendKeys "c", True AppActivate Application.Caption Sleep (1000) Range("A1").Select Sleep (100) SendKeys "^(v)" Sleep (1000) SetForegroundWindow (FindWindow("vt320", vbNullString)) SendKeys "{NUMLOCK}" End Sub

---

Salut,

s'il s'agit de récupérer le contenu de ton presse-papier (comme le classique copier/coller du coup), tu peux utiliser la méthode proposée dans la :faq:
http://excel.developpez.com/faq/?pag...upPressePapier

Hélas, je n'ai pas la référence ci-dessous dans mes références et le service informatique de ma boîte n'interviendra que si je leur explique comment faire... J'ai trouvé une référence avec intervention dans la base de registre sur un site mais étant donné que ce n'était pas un site 'sûr' ils refusent de faire quoi que ce soit...

'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."

Donc je suis obligé de faire des tours de passe-passe.

hologram

Bonjour,

T'est-il possible d'ajouter dans ton classeur un formulaire (une Form) ? Si c'est le cas, la référence "Microsoft Forms 2.0 Object Library." s'ajoute automatiquement avec l'ajout de la Form et tu peux alors utiliser l'objet "DataObject".

Hervé.

Bonjour

pour activer cette librairie tu ajoute un userform et tu le supprime immédiatement la référence reste en place
si tu es arrivé a écrire cette macro tu peut alors ajouter un userform
après pour la retranscription suit l'exemple du lien que l'on t'a donné a moins qu'une mise ne forme soit nécessaire dans ce cas la tu travaillera sur la variable résultat

Helloooo,

:ptdr::ptdr::ptdr::mouarf::P

Merci Patricktoulon. L'astuce a fonctionnné ! Je vais maintenant voir pour le traitement du presse-papier....

hologram

PS : Je ne peux pas mettre résolu, puisque les sendkeys ne fonctionnent pas bien. Bad, very bad...:?