Discussion :

[wilfryjules]

Bonjour à tous, et bonne année 2018.

Je souhaite commander Notepad++ à l'aide d'une macro excel (en réalité une autre appli, mais j'ai la même erreur dans tous les cas)

Code :

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

1
2
3
4
5
6
 
 
Dim appNpdpp As Long
 
appNpdpp = Shell("C:\Program Files (x86)\Notepad++\notepad++.exe", vbNormalFocus)
AppActivate appNpdpp

J'ai tout essayer, déclarer appNpdpp en integer, string ou variant, rien n'y change. J'ai également changer vbNormalFocus en 0,1,2,3,4....

Bref j'ai exploré tous les forums, mais j'ai toujours cette satanée erreur : "Erreur d'exécution '5': Argument ou appel de procédure incorrect
Pourtant la fonction Shell passe bien, l'appli np++ est reconnue et la fonction shell me renvoie bien un entier....

J'utilise Excel 2013

[parmi]

Bonjour,

Quand tu ouvres Notepad++ manuellement, Est-ce qu'il n'y aurait pas un message de mise à jour comme il arrive souvent ?
Autrement, peut-être mettre un temps d'attente avant d'utiliser AppActivate?

[wilfryjules]

Merci, non ça n'a rien à voir avec l'application, j'ai la même erreur pour toutes les applis.
Notepadd ++ est déjà ouvert lorsque le code s'exécute.
Et la fonction Shell renvoie un entier.
J'ai fait une pause de 5 secondes, mais rien ne change... toujours la même erreur.

[unparia]

Bonjour
As-tu vérifié la valeur retournée par la fonction Shell ?
Fais-le --->>

Code :

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

1
2
3
4
5
Dim appNpdpp
 
appNpdpp = Shell("C:\Program Files (x86)\Notepad++\notepad++.exe", vbNormalFocus)

Msgbox appNpdpp

et dis-nous ce qui est ainsi affiché.

EDIT : Excuses : la réponse à ma question était déjà dans ton premier message.

Que se passe-t-il en lançant ceci en ligne de commande (Démarrer -->>exécuter)

Code :

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

C:\Program Files (x86)\Notepad++\notepad++.exe

[eriiic]

Bonjour,

bizrre en effet. C'est peut-être notepad++ qui ne supporte pas ce type d'appel (?)
En passant par le titre de la fenêtre ça fonctionne.

Code :

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

AppActivate "Notepad++"

eric

[patricktoulon]

attention au send key de qui il viens on le dira jamais assez

pourtant moultes exemple dans le forum

pour agir sur une app externe utiliser le wscript.shell

sendkeys "xx" agit sur l'application

application.sendkeys agi sur l'application

Code :

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

with createobject("wscript.shell").sendkeys"blablabla":end with