sendkeys pour les onglets

sendkeys pour les onglets - VB/VBA/VBS - Programmation

Marsh Posté le 21-12-2006 à 22:31:08    

bonsoir tout le monde,
je suis en train de faire une macro d'automatisation d'utilisation de google earth.  
Je cherche à simuler la totalité des manipulations via des sendkeys. Et j'aurais voulu savoir quel est le sendkeys à utiliser pour changer les onglets dans les applications svp  :jap:

Reply

Marsh Posté le 21-12-2006 à 22:31:08   

Reply

Marsh Posté le 22-12-2006 à 21:09:43    

et si tu simulais les clics de souris ?

Reply

Marsh Posté le 23-12-2006 à 10:55:14    

c'est effectivement une autre possibilité. Mon problème pour cette simulation est que je veux simuler mais sur google earth. hors, je n'ai aucune idée pour la simulation des clics, dans la mesure où je ne connais pas la structure du logiciel :s. Une idée pour ton approche stp ?  :hello:

Reply

Marsh Posté le 26-12-2006 à 20:05:08    

up  :whistle:

Reply

Marsh Posté le 26-12-2006 à 21:25:16    

Bonsoir,
as-tu essayé:
ctrl+maj tab
ctrl tab
 
Cordialement

Reply

Marsh Posté le 28-12-2006 à 10:53:44    

joyeux noel !
autre soucis maintenant, concernant le stockage des valeurs des cellules dans le presse papiers. Auriez vous une idée de la facon de copier des valeurs dans le presse papier sous Excel pour les coller dans GGEarth ?
merci. :jap:

Reply

Marsh Posté le 28-12-2006 à 15:46:17    

bon alors, j'ai compris la facon de récupérer le contenu des cellules. Mais maintenant quand j'envoie le Ctrl V dans gg Earth il bug.  
Comme c'est plus parlant avec le code, merci de me faire poursuivre  :)

Code :
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  2. Private Sub CommandButton1_Click()
  3. Dim i As Integer
  4. 'lancement GGEarth
  5. AppActivate Shell("C:\Program Files\Google\Google Earth\googleearth", vbNormalFocus)
  6. 'délai de mise en route
  7. Sleep 30000
  8. 'boucle de traitement, ici non completee
  9. For i = 2 To 2
  10. 'je copie la valeur de la cellule
  11. Cells(i, 1).Copy
  12. 'sécurité délai
  13. Sleep 1000
  14. 'je copie dans GGEarth ma valeur
  15. Application.SendKeys "^(v)"   <== deja la ca plante
  16. 'simuler enter
  17. 'simuler délai
  18. 'simuler Ctrl Maj P
  19. 'suite...
  20. Next i
  21. End Sub


 
Une fois cette embuche passée, je pense pouvoir tout faire pepere, mais ce passage de Excel à GGE me gène on dirait, des idées ?  :hello:

Reply

Marsh Posté le 28-12-2006 à 16:32:36    

Re,
 
j'ai mis:
Application.SendKeys ("+{INSERT}" )
et cela fonctionne.
Par contre, je n'ai pas  de "sleep" (sans mauvais jeu de mot) dans mon VB,dans quelle référence se trouve-t-il?
@+

Reply

Marsh Posté le 28-12-2006 à 16:39:22    

Fausse alerte, j'ai retrouvé mon sleep:
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Reply

Marsh Posté le 28-12-2006 à 16:53:58    

ca ne fonctionne pas chez moi :(
tu arrives a récuperer le contenu de ta cellule dans GGE ?

Reply

Marsh Posté le 28-12-2006 à 16:53:58   

Reply

Marsh Posté le 28-12-2006 à 17:04:48    

J'ai recopié ta séquence, que j'avais aménagée à cause du sleep , j'ai mis bbbb dans A2 de la feuille active
et je l'ai retrouvé dans la zone ou se trouve le curseur à l'ouverture de ggle
Je vais la refaire avec le sleep identique

Reply

Marsh Posté le 28-12-2006 à 17:29:39    

seniorpapou a écrit :

J'ai recopié ta séquence, que j'avais aménagée à cause du sleep , j'ai mis bbbb dans A2 de la feuille active
et je l'ai retrouvé dans la zone ou se trouve le curseur à l'ouverture de ggle
Je vais la refaire avec le sleep identique


alors ?  :ange:  

Reply

Marsh Posté le 28-12-2006 à 18:47:30    

Bonsoir,
Elle fonctionne aussi
peut-être quelqu'un d'autre peut-il essayer.
@+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed