[VBA-E] Problème avec Sendkeys

Bonjour à tous

Dans le code suivant, j'ai lancer l'application Notepad.exe avec la commande Shell, le problème est que le bloc note est bien lancé mais n'est apparemment l'application active car elle n'est pas au premier plan et les commande avec sendkeys fonctionne sur excel et pas sur le bloc note comme normalement ça devrais car c'est la boite de dialogue ouvrir d'excel qui s'affiche
.
Y a t il quelque chose de particulier avec le bloc note car avec l'application (debitpro) qui est juste après dans mon code les commandes Shell et sendkeys fonctionne trés bien.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim NomFichier As Variant   NomFichier = Application.GetSaveAsFilename("aze.cvs", fileFilter:="Fichier (*.csv), *.csv")   If NomFichier <> False Then ActiveWorkbook.SaveAs NomFichier ActiveWorkbook.Close Else Exit Sub End If Shell """C:\Windows\system32\notepad.exe""" Application.SendKeys "^o" 'Shell """C:\Program Files\RozetUtil\DebitPro\debitpro.exe""" 'Application.SendKeys "%f+i" 'Application.SendKeys "{tab 2}" 'Application.SendKeys " " 'Application.SendKeys "{tab}" 'Application.SendKeys "~" End Sub

---

Si quelqu'un peut me donner un petit coup de pouce.

Merci d'avance

Tu dois jouer avec la valeur (True ou False) de Wait.
Je ne connais par ailleurs pas VBA et ignore pourquoi tu écris Application.sendkeys et pas sendkeys tout court !

Je viens de chercher et je ne vois pas comment utilisé wait pour l'integrer dans mon code si tu peux etre un peu plus precis.

Merci

hey ! Hélà !
Je parle de l'argument Wait de sendkeys !

J'utiliserais aussi DoEvents après (ok jmf ? ;) )

Code:

---

1 2 3

ActiveWorkbook.SaveAs NomFichier DoEvents

---

et après

Code:

---

1 2 3

Shell """C:\Windows\system32\notepad.exe""" DoEvents

---

Bref, chaque fois que tu fais appel au système.

Citation:

---

Envoyé par L'aide

Arrête momentanément l'exécution afin que le système d'exploitation puisse traiter d'autres événements.

---

Il y a quelque chose que je ne comprend pas pourquoi utiliser wait de sendkeys alors qu'avec le code suivant:

Shell """C:\Windows\system32\notepad.exe"""

le bloc note devrait etre mon application active alors que ce n'est pas le cas, puisqu'apparemment Excel est toujours actif.

Desolé si je suis long à la détente !

oui... tu es long...
Un moyen d'être plus rapide : Sendkeys dans l'aide en ligne et voir ce qu'est l'argument Wait (True ou False) et à quoi il sert !;)

je vous remercie j'ai utilisé uniquement vos infos mais voila le résultat de mes recherche qui fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim NomFichier As Variant   NomFichier = Application.GetSaveAsFilename("aze.cvs", _ fileFilter:="Fichier (*.csv), _ *.csv")   If NomFichier <> False Then ActiveWorkbook.SaveAs NomFichier ActiveWorkbook.Close Else Exit Sub End If   ident = Shell("C:\Windows\system32\notepad.exe", vbNormalNoFocus) AppActivate ident DoEvents SendKeys "^o", True 'Shell """C:\Program Files\RozetUtil\DebitPro\debitpro.exe""" 'Application.SendKeys "%f+i" 'Application.SendKeys "{tab 2}" 'Application.SendKeys " " 'Application.SendKeys "{tab}" 'Application.SendKeys "~" End Sub

---