Discussion :

[edsaar]

Bonjour,

je suis désespéré de voir que le passage à Windows 7 ne me permet plus d'utiliser la fonction "SENDKEYS".
Cette fonction qui était très simple et qui permettait à des gens ne maîtrisant pas parfaitement VBA de faire quelques petites commandes sympa.

Bref, j'utilisais le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim sDoc As String
sDoc = DLookup("Chemindossier", "TM chemin")
    Call Shell("Explorer.EXE /SELECT," & sDoc, 4)
SendKeys "^(c)", False
 SendKeys "%{F4}", True

qui me permettait d'aller chercher un fichier après lecture d'un lien hypertexte que je récupérai dans la table TM Chemin.
A l'issue, la fonction Shell me le sélectionnait, je n'avais plus qu'à faire un "copier" avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "^(c)", False

puis "sortir de ma sélection" avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "%{F4}", True

Aujourd'hui, ces 2 "sendkeys" ne fonctionnent plus.

J'ai donc 2 questions ;

- comment puis je ponctuellement remplacer ces 2 lignes "sendkeys" ?
- d'une manière générale, quelle solution simple existe-t-il pour "envoyer des touches" dans un programme VBA ?

PS : j'ai regardé le forum, je n'ai rien trouvé sinon que les API mais c'est vraiment complexe.

Par avance, merci de votre aide.

[marsouin_89]

Bonjour,

Si tu copies un fichier, j'imagine que c'est pour le copier ailleurs.
Dans ce cas utilises :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileCopy "CheminFichierSource", "CheminFichierDestination"

[edsaar]

Bonjour Marsouin,

Ta solution n'est malheureusement pas adaptée à ma demande. Le collage ne se fait pas automatiquement à un endroit prédéfini.
Je souhaite en revanche remplacer, dans cette partie du code, les fonctions "copier le fichier (préalablement sélectionné)", puis "fermer l'environnement" définie par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SendKeys "^(c)", False
 SendKeys "%{F4}", True

[marsouin_89]

Bonsoir,

Après quelques recherches, il semblerait qu'effectivement il y est un problème avec SendKeys sous Windows7.
De ce que j'ai pu trouver : si ton anti virus est MacAfee, il serait alors peut être à l'origine du problème.

A priori, une modification de clé de registre résoudrait le problème mais je ne n'ai pas trouver quelle clé doit être éditée.

Désolé de ne pas pouvoir d'aider plus que cela.

Pour le coup, je ferais des tests que une de mes applications qui utilise également SendKeys afin de voir si j'ai le même problème.
Je tacherais de te tenir au courant.

[edsaar]

Bonjour Marsouin,

je ne pense pas que cela vienne de l'anti-virus.

La fonction Sendkeys classique ne fonctionne plus avec Windows.
mon programme me sélectionne bien le fichier que je souhaite copier, maintenant il faut copier ce fichier.

Avant j'avais programmé un "Ctrl C" avec la fonction sendkeys "^c".
Existe-t-il-il une autre méthode pour programmer cette fonction "Ctrl C" qui fonctionne sous Windows 7 ou bien comment peut on faire pour programmer en VBA la fonction "copier" en l'insérant dans le programme actuel ( le curseur est déjà sur le fichier à copier).

Merci.

[marsouin_89]

Bonjour,

Je viens de faire le test sur mon application et SendKeys "{ESC}" fonctionne.
En revanche, je n'arrive pas à mettre en oeuvre SendKeys "^(C)".

Est-ce-que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunCommand (acCmdCopy)

pourrait résoudre ton problème ou alors en envisageant l'utilisation d'un menu contextuel ?

[edsaar]

Re-bonjour,

Non malheureusement l'expression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunCommand (acCmdCopy)

ne fonctionne pas (je l'avais essayée). Elle n'arrive pas à copier le fichier qui est déjà sélectionné. Ce que je ne sais pas c'est depuis Windows 7, qu'est-ce qui remplace le SENDKEYS classique pour faire "copier" ou bien tout simplement écrire cette fonction en "vba" (mais j'ai un peu de mal sur ce dernier point).

Mais il doit bien y avoir une solution.

[marsouin_89]

Bonsoir,

Je viens encore de faire pas mal de recherches et malheureusement, je n'ai trouvé qui pourrait répondre à tes attentes.

Désolé, j'espère que quelqu'un d'autre pourra d'aider.

[edsaar]

Merci à toi Marsouin pour le temps que tu as passé. Quelqu'un d'autre va peut-être pouvoir répondre...

[edsaar]

Bonjour à Marsouin,

j'ai enfin trouvé (3 jours).

En réalité, la fonction SENDKEYS fonctionne, que ce soit avec Access 2010 ou W7 (les forums ne sont pourtant pas explicites sur ce point). Je l'ai compris après en voyant que le programme copiait mais pas ce que je voulais. Le bug vient qu'Access traite les lignes de code alors que les précédentes ne sont pas complètement terminées (dans mon cas la fonction Shell met 2 à 3 secondes pour sélectionner le bon dossier).

J'ai donc inséré le code ci dessous pour mettre une tempo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim PauseTime, Start, Finish, TotalTime
 
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start  ' Calculate total time.

entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim sDoc As String
sDoc = DLookup("Chemindossier", "TM chemin")
    Call Shell("Explorer.EXE /SELECT," & sDoc, 4)

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SendKeys "^(c)", False
    SendKeys "%{F4}", True

Tout re-fonctionne comme avant !

Merci à toi Marsouin pour le temps que tu as passé.