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 :
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.
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
A l'issue, la fonction Shell me le sélectionnait, je n'avais plus qu'à faire un "copier" avec
puis "sortir de ma sélection" avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part SendKeys "^(c)", FalseAujourd'hui, ces 2 "sendkeys" ne fonctionnent plus.
Code : Sélectionner tout - Visualiser dans une fenêtre à part SendKeys "%{F4}", True
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.
Partager