Copier -Coller d'un programme a excel ?

Version imprimable

13/07/2008, 16h41
dreloman

Copier -Coller d'un programme a excel ?

Salut le forum, juste une petite question vite fais :D

Peut-on faire un copier d'une valeur d'un autre programme (exp:prog de telephone) et le collé dans exel avec soit un programme vba ou avec une macro spécial qui peut sortir de exel par aller copier puis revenir coller voila j'espere etre assez clair dans m'as question ;)

Bonjour,

Cela dépends de l'application concerné, tiens la maniére la plus simple , une adaptation de l'exemple dans l'aide en ligne Excel sur l'utilisation de SendKeys.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CopieCollerCalc()
 
 
Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1)    ' Exécute l'application Calculatrice.
AppActivate ReturnValue            ' Active l'application Calculatrice.
For I = 1 To 100    ' Configure la boucle de comptage.
    SendKeys I & "{+}", True    ' Envoie des frappes de touches
Next I                ' à l'application Calculatrice pour
                            ' ajouter chaque valeur de I.
SendKeys "=", True    ' Fait le total général.
SendKeys "^C", True 'COPIE LE résultat dans presse papier
SendKeys "%{F4}", True    ' Envoie la combinaison ALT+F4 pour fermer
                                ' l'application Calculatrice.
 
Range("A1").PasteSpecial 'COLLE LE PRESSE PAPIER DANS A1
 
End Sub

13/07/2008, 18h03
dreloman

:king: Je te remerci JackOuYA car ça va m'aider énormement :D:king::yaisse2:

Une dernière question cet exemple allume et eteint la calculatrice mais si le programme est deja allumé il va relancer une 2ième calculatrice comment lui dire alors de considerer rien qu'une seule ?
14/07/2008, 10h42
JackOuYA

Citation:

Envoyé par dreloman

Pas de réponce ? :cry:

J'attends moi aussi une réponse, où plus de détail sur l'application à piloter, le SendKeys, c'est juste quand l'on ne peu pas faire autre-chose...

qui "allume" ton programme ta macro .. ou il peu être "allumé" (le feu...) d'une autre maniére ..
14/07/2008, 11h09
dreloman

Bonjour JackOuYA et merci pour t'as pacience et bien voila c'est une application qui tourne sur windows 2000 en réseaux dans toute l'usine je ferais un print screen tantôt et viendrais te la montre , il s'agirais alors que quand je tape (exemp:2110) qui est un N° de préparation automatiquement il retienne ce chiffre puis quand dans le programme je fais F7 pour initialiser la prepa il me copie le N° dan exel mais celement quand j'appuie sur F7 et pas avant .
14/07/2008, 22h48
dreloman

J'ai trouver comment utiliser ce fameux SendKeys lol il etais temp :D juste une derniere question ,je bascule bien dans l'autre application , j'ecrit le chiffre que je veus avec le SendKeys genre (sendkey "1", true) mais a la place de sa je voudrais que SendKeys ecris le chiffre alors que je ne le connais pas encore ? je sais pas si je me fais bien comprendre
:?8O
15/07/2008, 00h50
dreloman

Voila la valeur qui dois retaper sur l'autre programme

http://apu.mabul.org/up/apu/2008/07/...05045kdg9p.jpg
le N° est 2055 ou 2056 ect......mais je dis bien il ne m'est donner que quand je rentre le client donc voila ma question , peut on recouper se chiffre en 4 et le mettre dans le sendkeys?
15/07/2008, 07h07
JackOuYA
bonjour,

j'avais pas fais le lien avec ce fameux tableau 8-)
Code:

1 2 SendKeys(ThisWorbooks.Sheets("LaFeuille").Range("LaCell")
....

Bonjour JackOuYA je ne comprend pas ou mettre se que tu as marquer je te met un exemple de se que je voudrais faire mais si t'as formule veut dire le meme dis le moi merci d'avance ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Touche_enfoncee() Dim X As Integer ' Range("F3").Value = "1234" X = Range("E2").Select Range("E5").Select SendKeys Left(Range("F3").Value, 1) SendKeys "{enter}" Range("E6").Select SendKeys Left(Right(Range("F3").Value, 3), 1) SendKeys "{enter}" Range("E7").Select SendKeys Left(Right(Range("F3").Value, 2), 1) SendKeys "{enter}" Range("E8").Select SendKeys Right(Range("F3").Value, 1) SendKeys "{enter}" End Sub
Donc il prend le resultat de la celule F3 puis je prend chaque chiffre et le tape en E5,E6,E7,E8 Voila :? est ce bon ? ou y a t'il plus cour ?

15/07/2008, 21h07
JackOuYA

Bonsoir,

Ils sont censés, écrire où tes sendkeys ??? 8O

Bonjour JackOuYA , heu c'est juste un exemple pour voir si a la place de sa y as moyen de faire plus cour mais a l'usine le programme qu'on utilise a l'air d'etre fait en vba mais datent de 1995 je pences j'ai pus créer un bouton et faire un script , marqué mes sendkeys il copie le bloc que je veux maintenent , le malheure c'est que je peus traailler seulement avec des copier coller car comme c'est un programme en éseaux je n'ai pas accès au fichier de base:roll: enfin j'essais mais pas evident :oops:le seul problemme qui me rete c'est que quand je lui fait un copier puis un sendkeys tab il colle a la 1ère celule qui trouve puis revient dans le programme la je dois lui dire de copier un autre bloc puis de refaire un tab mais pas moyen ?

exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 'je copie bloc 1er programme Sub Essai sendkeys "^{c}", true 'je TAB sendkeys "%{tab}", true 'je vais a la cellule suivante sendkeys "enter", true 'je colle dans l'autre programme sendkeys "^{v}", true 'il revient dans le 1er programme 'je lui demande de copier un 2ieme bloc sendkeys "^{c}", true ' retourne dans l'autre programme et colle le bloc sendkeys "^{v}", true end sub
Voila il fais le 1er collage il revient dans le programme mais ne fais pas le 2 ieme copier et tab .
Voila c'est tous:(

16/07/2008, 23h34
dreloman

Je viens de trouver une des solution :oops: avec les sendkeys avec se basic il ne faut pas mettre de true et la sa fonctionne , juste une petite question quel basic utilise comme commende (Text 7,1,7,6) ?