Exécuter un programme externe avec WshShell ne fonctionne pas

Bonjour à tous,

Je souhaite ouvrir à partir d'un formulaire une page Web et d'y envoyer des séquences de touches sans y parvenir.
Il y a une erreur de syntaxe dans la ligne "

Code:

---

objShell.Run = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe https://moviecovers.com/", 1

---

", mais je ne vois pas où.
Voici le code (j'utilise Access 2010) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim objShell 'Copie txtTitre dans le presse-papier Me!txtTitre.SetFocus DoCmd.RunCommand acCmdCopy 'Lance le navigateur et ouvre le site Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe https://monsite.com/", 1 'Envoi CTRL+v et Entrée SendKeys "^v", True SendKeys "{ENTER]", True

---

Si quelqu'un peut m'aider j'en serais ravi :-)

Bonjour.

Peut-être le = entre .run et "C:\Program Files (x86)\Mozilla Firefox\firefox.exe https://monsite.com/".

A+

Bonjour marot_r,

Merci pour ta réponse,

Lorsque j'enlève le "=" il me dit "Erreur de compilation: Attendu : =", si je le remet le message dit : "Erreur de compilation: Attendu : )" à la virgule après "...monsite.com/"

J'écris donc : objShell.Run = ("C:\Program Files (x86)\Mozilla Firefox\firefox.exe https://monsite.com/") en enlevant le ,1 ,True --> plus d'erreur de syntaxe, mais lorsque j'exécute le code il me donne une autre erreur à la ligne 7 "Erreur d’exécution '424' : Objet requis"




Apparemment je ne reçois pas de notifications par e-mail alors que l'option est bien coché...

Bonjour.

Je ne me suis jamais servi de cela.

J'ai trouvé https://www.vbsedit.com/html/6f28899...640b0e32ea.asp avec des exemples de la commande, ça t'aidera peut-être.

A+

Bonjour,

J'ai déjà essayé un tas de scripts glanés sur Internet, mais j'ai toujours les mêmes erreurs :
Dans les exemples que tu me propose :

1)

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "%windir%\notepad " & WScript.ScriptFullName

---

2)

Code:

---

1 2 3 4

Dim oShell Set oShell = WScript.CreateObject("WSCript.shell") oShell.Run "cmd /K CD C:\ & Dir" Set oShell = Nothing

---

Dans ces deux cas j'ai le message :

Pièce jointe 636553

3)

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") Return = WshShell.Run("notepad " & WScript.ScriptFullName, 1, true)

---

Dans ce dernier cas j'obtiens :

Pièce jointe 636554

Pièce jointe 636555

Ne serait-il pas possible qu'il me manque une bibliothèque ?

Bonjour,

Visiblement les sites que tu consultes ne donnent pas tout ou sont moisis.

Code:

---

1 2 3 4 5

Dim WshShell As Object   Set WshShell = CreateObject("WScript.Shell") WshShell.Run "notepad.exe"

---

1) on déclare l'objet (dim)
2) on lui affecte un objet Wscript.shell
3) on utilise la méthode Run

Le wscript.machin je ne vois pas d'où ça sort.

Cordialement,

bonjour Gaston62 et loufab
en effet le wscript.machin c'est du VbScript, dans Access ce serait à la rigueur:

Code:

---

VBA.CreateObject("WScript.Shell")

---

mais, je pense, inutile puisque c'est l'environnement par défaut.
Il faut, de toute évidence, regarder avec attention les bouts de codes trouvés sur le web

Bonjour Loufab et tee_grandbois,

Merci pour votre aide, en effet ça marche nettement mieux avec le code fournie.
Comment fait-on du coup pour envoyer des séquences de touches à l'application? Dans mon cas CTRL+V et Entrée.

le code suivant ne fonctionne pas :

Code:

---

1 2 3

'Envoi CTRL+v et Entrée SendKeys "^v", True SendKeys "{ENTER]", True

---

Cordialement,

Gaston

En fait ce que je voudrais obtenir en cliquant sur un bouton dans un formulaire, c'est :

1) Copier le texte d'un contrôle texte du formulaire
2) ouvrir Mozilla Firefox sur une page html spécifié dans le code
3) envoyer la séquence des touches (CTRL+V) pour coller le texte précédemment copier suivi de la séquence de la touche Enter

Quelque chose du style :

Code:

---

1 2 3 4 5 6 7

Me!text1.SetFocus DoCmd.RunCommand acCmdCopy Set WshShell = CreateObject("WScript.Shell") WshShell.Run """C:\Program Files (x86)\Mozilla Firefox\firefox.exe https://monsite/""" SendKeys "^v", True SendKeys "{ENTER]", True

---

Lorsque j'ajoute l'URL, j'ai un message d'erreur :

Pièce jointe 636579

et les SendKeys n'envoient rien

Comment dois-je procéder ?

Bonjour Gaston62,

Citation:

---

et les SendKeys n'envoient rien

---

Si le code avant les SendKeys ne plante pas, les SendKeys fonctionnent, cependant c'est beaucoup trop rapide alors la page Web n'est pas encore "loader" et les SendKeys sont envoyés. Vous vous retrouvez donc avec un coller qui va nulle part.

Bonne journée

Bonjour.

Tu peux peut-être ajouter une temporisation entre la commande d'ouverture, avec Sleep ou autre chose, et le sendkey.
Mais, sache que le sendkey est très "fragile" et que dans la mesure du possible on lui préféra un autre méthode.

A+

Bonjour Robert1957 et marot_r,

Pouvez-vous me donner quelques exemples de temporisation ou carrément d'une autre méthode à utiliser?
Le code suivant ne fonctionne pas (Erreur de compilation: Membre de méthode ou de données introuvable)

Code:

---

1 2 3

Call Shell("C:\Windows\system32\Notepad.Exe", vbNormalFocus) Application.Wait (Now() + TimeValue("00:00:10")) Call SendKeys("This is Some Text", True)

---

Oui c'est normal, Wait c'est un truc de Excel il me semble, pas disponible dans Access.

La méthode la plus brutale :

Code:

---

1 2 3 4 5

dim dateFin as date: dateFin=dateadd("s", 30, now()) 'Ajoute 30 secondes à la date courante.   do while now()<=dateFin 'Ne rien faire loop

---

A+

Bonjour à tous,

J'ai trouvé la solution en m'aidant de toutes vos réponses, voici le

Code:

---

1 2 3 4 5 6 7 8

Me!texte1.SetFocus DoCmd.RunCommand acCmdCopy Shell "C:\Program Files (x86)\Mozilla Firefox\firefox.exe https://monsite.com/" Dim dateFin As Date: dateFin = DateAdd("s", 2, Now()) Do While Now() <= dateFin Loop SendKeys "^v", True SendKeys "{ENTER}", True

---

J'aurais appris au moins deux choses, c'est que VBA Access, VBA Excel et VB Script utilisent ni les mêmes méthodes, ni les mêmes arguments et que beaucoup de sites comportent des erreurs.:weird:

Merci à tous pour votre aide et bonne journée,

Gaston

VBA est le tronc commun.

Ensuite il y a les bibliothèques utilisées qui diffèrent.
Word, Excel, Access, Powerpoint, Autocad, DAO, ADO ...

En bref tout ce que tu as dans Références ou par CreateObject() ensuite viennent les API.

Mais VB script est au VBA ce que le foot et au tennis.