AppActivate: Argument ou appel de procédure incorrect

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:

---

1 2 3 4 5 6

Dim appNpdpp As Long   appNpdpp = Shell("C:\Program Files (x86)\Notepad++\notepad++.exe", vbNormalFocus) AppActivate appNpdpp

---

Pièce jointe 339171


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 :ptdr:
Pourtant la fonction Shell passe bien, l'appli np++ est reconnue et la fonction shell me renvoie bien un entier....

J'utilise Excel 2013

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?

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.

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

Code:

---

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:

---

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

---

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:

---

AppActivate "Notepad++"

---

eric

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:

---

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

---

;)

Unparia, effectivement tu as raison, les applis Notepad++ et Inca ne se lancent pas depuis le CMD....

Par contre, le logiciel Notepad (bloc note) se lance bien, y compris depuis ma macro VBA... Le soucis vient donc de certaines applis mais pourquoi ?

Pièce jointe 339314


Pièce jointe 339322


Je vais maintenant réfléchir sur la réponse de Patrick...

Bon ben voilà j'ai bien fait d'attendre Patrick, c'est résolu ! J'ai pu envoyer un SendKey fonctionnel à l'application INCA d'ETAS. Ca doit certainement marcher pour Noetepad++ également.

Il fallait donc créer l'objet Shell....

Pièce jointe 339329

:merci: A TOUS

:resolu:

Sinon j'ai une autre question qui m'a l'air super importante....

Apparemment oShell.AppActivate se périme dans le temps.... c'est à dire que si on attend trop (par un point d'arrêt, une temporisation....) on perd la main sur l'application que l'on souhaite contrôler....

Et les Sendkeys sont envoyés n'importe où, souvent dans le programme excel lui-même.... :roll:

re
c'est pas que il perd la la main mais c'est que wait est une fonction vba
a partir du moment ou tu fait un "application.wait...." tu reactive l'application excel tout simplement

encore une fois utiliser un sleep externe pour ce wait l'object wscript.shell comtient aussi la fonction sleep si je ne me trompe pas
;)