[VB]code pour sendkeys avec Alt + F

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/01/2006, 18h40
Nicko29

[VB]code pour sendkeys avec Alt + F
Bonjour,

je cherche à traduire la fonction alt + F , pour ouvrir le menu fichier d'active sync et de le faire synchroniser

voilà le code mais je bute sur alt +f , j'ai pas trouver comment on l'écrit ..
Code:

1 2 3 4 5 6 7 8 Function synchroniser() Dim ret As Long ret = Shell("C:\Program Files\Microsoft ActiveSync\WCESMGR.EXE", vbNormalFocus) AppActivate var SendKeys "{Alt + F}" SendKeys "{s}" End Function
quelqu'un le saurait-il merci :D
19/01/2006, 18h49
jmfmarques

essayes avec :

Code:

sendkeys "%(F)"

:idea: trouvable dans l'aide en ligne
19/01/2006, 19h00
ouskel'n'or

Tu aurais jeté un oeil dans l'aide, tu aurais tout ça...

Citation:

RET.ARR {BACKSPACE}, {BS} ou {BKSP}
ATTN {BREAK}
VERR.MAJ {CAPSLOCK}
SUPPR {DELETE} ou {DEL}
BAS {DOWN}
FIN {END}
ENTRÉE {ENTER}ou ~
ÉCHAP {ESC}
AIDE {HELP}
ORIGINE {HOME}
INSERTION {INSERT} ou {INS}
GAUCHE {LEFT}
VERR.NUM {NUMLOCK}
PG.SUIV {PGDN}
PG.PRÉC {PGUP}
IMPR. ÉCRAN {PRTSC}
DROITE {RIGHT}
ARRÊT.DÉFIL {SCROLLLOCK}
TAB {TAB}
HAUT {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}
Pour indiquer une combinaison de touches avec MAJ, CTRL et ALT, faites précéder le code normal de la touche d'un ou plusieurs codes parmi les suivants :

Touche Code
MAJ +
CTRL ^
ALT %

Mais tu peux toujours le faire... :wink:

A+
19/01/2006, 19h18
Nicko29

Oups ok merci j'ai mal cherché ... :arf: on m'y reprendra pas deux fois j'ai fait tout le site mais pas toute l'aide :?

Par contre j'ai un problème cela bloque

A ce niveau là : AppActivate var

le problème c'est la fenetre active ?

je comprend pas trop , il arrive pas à vérifier la fenetre active ?

faut-il le mettre au premier plan ?

l'erreur est : formulaireagnelage.code shell.synchroniser

expression :appactive var

expression : non définie dans la contexte ...

:?
19/01/2006, 19h54
jmfmarques

avant tout autre

Citation:

Oops

et

Citation:

... on m'y reprendra pas deux fois

:

1) que contient ta variable var ?

2) quelle syntaxe as-tu trouvée dans l'aide en ligne pour Appactivate ?

Nous avons hâte de savoir !!
:?: :?:
19/01/2006, 19h59
Nicko29

oui d'accord j'ai fait une erreur de copier coller c'est pas var mais ret.

pour le reste je suis pas assez doué je pense pour comprendre ..... :(

et l'aide en ligne je l'ai bien regarder mais je suis désolé j'ai du mal !!
19/01/2006, 20h02
jmfmarques

Bon :

1) montre-nous ce que contient ta variable ret et comment tu l'utilises
2) réponds à la question 2 du message précédent

Merci !

:(

PS : ah pardon : quand tu as ouvert l'aide en ligne : pour l'interroger sur la syntaxe de Appactivate, tu frappes : AppActivate ..... et tu cliques.

Tu peux aussi utiliser F1 (c'est quoi çà, hein ?) : tu frappes le mot AppActivate dans ton code (tu l'effaceras ensuite), tu le selectionnes et tu appuies (gentiment) sur la touche F1, juste pour voir.

Merci de faire cet énorme effort....
19/01/2006, 20h12
Nicko29
Salut ,

répondre repondre , pas facile , je suis pas doué :cry: je crois ..

1) ben je sais pas trop vous avez tou sous les yeux , alors je dois oublier quelquechose ..
Code:

1 2 3 4 5 6 7 8 Function synchroniser() Dim ret ret = Shell("C:\Program Files\Microsoft ActiveSync\WCESMGR.EXE", 1) AppActivate ret SendKeys "%F" SendKeys "{s}" End Function
2) voilà ce que j'ai et j'avoue c'est un ch'ti peu compliqué , j'essaye de voir on ca ne colle pas.

Citation:

AppActivate, instruction, exemple
Cet exemple montre comment utiliser l'instruction AppActivate pour activer une fenêtre d'application. Les instructions Shell employées supposent que les applications se trouvent dans les chemins spécifiés.

Dim MyAppID, ReturnValue
AppActivate "Microsoft Word" ' Active Microsoft
' Word.

' L'instruction AppActivate peut utiliser la valeur renvoyée par la
' fonction Shell.
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' Exécute Microsoft Word.
AppActivate MyAppID ' Active Microsoft Word.

' Vous pouvez également utiliser la valeur renvoyée par la
' fonction Shell.
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' Exécute Microsoft Excel.
AppActivate ReturnValue ' Active Microsoft Excel.

et puis pour le ps ; faut pas exagérer non plus !!!!!!!

j'ai dit que j'ai du mal à maitriser , je suis pas ......

merci quand même pour la réponse ...
19/01/2006, 20h25
jmfmarques

C'est bien d'avoir ouvert et lu :

Alors :

Citation:

("C:\Program Files\Microsoft ActiveSync\WCESMGR.EXE"

n'est pas un chemin cohérent de l'appli à activer (ce devrait être quelquechose du genre c:\...\...)

Petit truc : si tu veux savoir si C:\Program Files\Microsoft ActiveSync\WCESMGR.EXE fonctionne, frappes-le dans Démarrer==>> Exécuter et exécutes : si çà ne marche pas, c'est que ce n'est pas bon....

Bien que le reste ne soit pas faux, tu pourrais te contenter, si tu n'as plus à invoquer l'appli que tu lances de

Citation:

ret = Shell("C:........etc

Pour les Sendkeys, tu es seul à savoir les frappes qu'attenf l'appli que tu lances...

Est-ce suffisamment clair ? Tu dis...

:?:
19/01/2006, 20h42
Nicko29

je vais essayer d'etre précis :wink:

quand tu dis :

Citation:

Citation:
ActiveSync\WCESMGR.EXE
n'est pas un chemin complet de l'appli à activer (ce devrait être quelquechose du genre c:\...\...)

j'ai bien mis

Code:

ret = Shell("C:\Program Files\Microsoft ActiveSync\WCESMGR.EXE", 1)

je dois pas bien compredre , le chemin est bien complet la pourtant ??

et sinon j'oublie

Code:

AppActivate ret

et je met shell etc .. je vais regarder cà.

pour les sendkeys ; voilà ce j'essaye de faire dans la fentre de l'application il y a le menu Fichier que je déroule par la combinaison alt + F

ensuite je veux Synchroniser donc j'appuie sur S

je dois vraiment passer à coté de qq chose , ou pas faire un truc mais je vois pas.

voilà merci bp pour l'aide je continue à chercher

:wink:
19/01/2006, 20h55
jmfmarques

on recommence donc :

Citation:

("C:\Program Files\Microsoft ActiveSync\WCESMGR.EXE"
n'est pas un chemin cohérent de l'appli à activer (ce devrait être quelquechose du genre c:\...\...)

Petit truc : si tu veux savoir si C:\Program Files\Microsoft ActiveSync\WCESMGR.EXE fonctionne, frappes-le dans Démarrer==>> Exécuter et exécutes : si çà ne marche pas, c'est que ce n'est pas bon....
19/01/2006, 21h04
Nicko29
bon ok,

donc ce chemin marche bien il appel bien mon application, ca c'est bon.

mais pour faire plus simple on va prendre word :

quand je tape ce code ( je suis dans access et j'ouvre word)
Code:

1 2 3 4 5 6 7 8 Function synchroniser() ret = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", 1) SendKeys "%F" Sendkeys "M" End Function
donc word s'active bien il est démarrer mais seulement le code m' écrit M sur la feuille et pas tu tout ouvert la fentre de mises en page.

on dirait que

Code:

SendKeys "%F"

n'est pas pris en compte. voilà ou est le problème maintenant j'avance un peu

désolé si il y a fort à faire avec moi :wink: :lol:
19/01/2006, 21h12
jmfmarques

tu lis, oui ?.

Citation:

sendkeys "%(F)"

(relis le message à ce propos)

et ce que tu écris :

Citation:

SendKeys "%F"

me paraissant différents, non ???

:oops:
19/01/2006, 21h25
Nicko29

oui j'ai lu , j'ai egalement lu l'aide en ligne a ce sujet.

Code:

sendkeys "%(F)"

avec les parenthèses

ne fonctionne pas

okay j'ai mis une tempo dessus

mais le code cidessous m'ouvre le le menu de l'aide lol
Code:

1 2 3 4 5 6 7 8 Function synchroniser() ret = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", 3) SendKeys "%+(F,10)" End Function

19/01/2006, 21h35
jmfmarques

Surprenant :

Dis-moi donc :

1) Word s'ouvre bien ? : réponse 1
2) Que se passe-t-il exactement (visuellement) à son ouverture ? réponse 25
3) que signifie le "M" (nous n'avons pas la même version de word) réponse 3

J'attends ta réponse maintenant.

Merci
19/01/2006, 21h50
Nicko29
Bon j'ai presque réussi :

le code :
Code:

1 2 3 4 ret = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", 1) SendKeys "%(f,10)" SendKeys "m"
1) word se démarre
2)la fenetre( suite de l'action des 2 sendkeys ) de mise en page, se démarre aussi)

donc c'était une question de tempo.. mais bon cela ne marche pas avec mon application, bien que manuellement les combinaisons de touche fonctionne.

pour word c'est résolu , pour activesync , 'appli de synchronisation pour les pocket pc , ne veux pas mais je vais pas capitulé.

voilà la réponse te convient ?

merci je vais bien essayer de voir pourquoi cela ne focntionne pas c'est quand même un programme microsoft activesync :wink:
19/01/2006, 21h50
jmfmarques

Alors ?

Quand tu auras fini de manipuler dans tous les sens le sendkeys, pourras-tu répondre aux questions posées en exécution du sendkeys "%(F)" ?

Pour ton information (tu as l'air étonné) ta manip "SendKeys "%+(F,10)" a tout simplement fini par quitter Word après 10 envois de Aft Maj(F) et comme ton aide en ligne était ouverte, tu l'as vue !!!!

Alors revenons à des choses sérieuses quid des réponses attendues avec sendkeys "%(F)" (j'attends 3 réponses 1), 2) et 3)

Merci
19/01/2006, 21h57
jmfmarques

Bon ; nos messages se sont croisés, mais

Citation:

SendKeys "%(f,10)"

est très bizarre... çà fonctionne autrement partout ailleurs, y compris chez moi.....

Quant à ton autre appli : assures-toi de ce que ce que tu as écrit dans le shell fonctionne dans démarrer==>>exécuter et que ce que tu envoies par le sendkeys correspond à des entrées attendues par ton appli (fais le manuellement dans ton appli)!

Bonne nuit
19/01/2006, 21h59
Nicko29

ok comme tu voudra :

avec le code

Code:

sendkeys "%(f)"

1) Word s'ouvre bien ? : réponse 1

oui word s'ouvre bien

2) Que se passe-t-il exactement (visuellement) à son ouverture ? réponse 25

visuellement le menu s'ouvre

3) que signifie le "M" (nous n'avons pas la même version de word) réponse 3

le m est la touche de raccourci vers la fenetre de mise en page.

voilà ca marche avec word

Voir 40 message(s) de cette discussion en une page