Discussion :

[zoumzoum59]

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 :

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

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

[jmfmarques]

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 !

[zoumzoum59]

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

[jmfmarques]

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

[ouskel'n'or]

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

Code :

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

1
2
3
 
ActiveWorkbook.SaveAs NomFichier
DoEvents

et après

Code :

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

1
2
3
 
Shell """C:\Windows\system32\notepad.exe"""
DoEvents

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

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

[zoumzoum59]

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 !

[jmfmarques]

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 !

[zoumzoum59]

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

Code :

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

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