[VBS] paramètres optionnels : comment (s')en passer ?

Bonjour,

Depuis IE je souhaite lancer un excel pour m'ouvrir un fichier xml. Le code ci dessous fonctionne (à moitié) cependant il faudrait que je passe des arguments à la méthode openxml et je ne sais pas comment faire.

Mon code actuel :

Code:

---

1 2 3 4 5

<script language="vbscript"> Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.OpenXML("D:\\cwfba004.aspx") </script>

---

Le code VBA que je souhaiterai "incorporer"
Workbooks.OpenXML Filename:="D:\cwfba004.xml", LoadOption:= _
xlXmlLoadImportToList


La signature de openxml est : OpenXML(filename[,stylesheet[,LoadOption]]

Je n'ai pas de stylesheet et je ne souhaite pas en passer (s'il le faut et si c'est possible, j'en passerai une vide).
J'ai essayé objExcel.Workbooks.OpenXML("D:\\cwfba004.aspx",,2) mais cela ne fonctionne pas. Si quelqu'un avait une idée, cela m'arrangerait.

Merci.

PS: Si quelqu'un savait comment le faire en javascript, cela m'intéressserait encore plus.

Code:

---

1 2 3 4 5 6

<script language="javascript"> var objExcel = new ActiveXObject("Excel.Application"); objExcel.Visible = true; objExcel.Workbooks.OpenXML(strLocation, ???[undefined, null,"" ] ???? , 2); </script>

---

Pourquoi tu dis que ton code marche à moitié ?
Quelles sont les erreurs que tu as ?
as tu essayé cela :

Code:

---

objExcel.Workbooks.OpenXML("D:\\cwfba004.aspx",null,2)

---

?

Citation:

---

Envoyé par ced600

Pourquoi tu dis que ton code marche à moitié ?

---

Mon xml est généré à la volée par un serveur. Malheureusement, l'extension de ce fichier étant aspx, si je ne force pas le loadoption, le fichier ne présente pas bien.
Donc en l'état je n'ai pas d'erreur de "programmation", juste des problèmes de présentation dans Excel.

Citation:

---

Quelles sont les erreurs que tu as ?
as tu essayé cela :

Code:

---

objExcel.Workbooks.OpenXML("D:\\cwfba004.aspx",null,2)

---

?

---

si j'écris cela en javascript

Code:

---

1 2 3 4 5 6 7 8 9

var objExcel = new ActiveXObject("Excel.Application"); objExcel.Visible = true; try{ objExcel.Workbooks.OpenXML("http://localhost/VIPBA11/cwfba004.aspx?LIBEL=hotel",null,2); } catch (err) { alert(err.description); }

---

cela me dit "appel de procédure incorrect"

en js (que je maitrise mieux que VBS) j'ai essayé
undefined, null, "", 0, new Array() comme valeur possible pour le stylesheet mais j'obtiens toujours le même message d'erreur.

et en vbs cela donne quoi ?

En VBS c'est n'importe quoi :

objExcel.Workbooks.OpenXML "http://localhost/VIPBA11/cwfba004.aspx?LIBEL=hotel"
est équivalent à
objExcel.Workbooks.OpenXML ("http://localhost/VIPBA11/cwfba004.aspx?LIBEL=hotel")

(notez les "()")

objExcel.Workbooks.OpenXML ("http://localhost/VIPBA11/cwfba004.aspx?LIBEL=hotel",,2) ne fonctionne pas

objExcel.Workbooks.OpenXML "http://localhost/VIPBA11/cwfba004.aspx?LIBEL=hotel",,2
fonctionne

Evidemment, depuis le début moi j'essayais avec des ( ).
Super une journée de perdue pour des c****ries.

Ceci dit, si quelqu'un passe dans le coin avec une solution JS, je suis preneur. Sinon je clos

Une petite explication que tu vois dans tous les tutoriaux vbs :
Appel d'une fonction ou procédure en VBS :
- Si elle renvois des paramètre et que tu souhaites les récupérer :
VarRetour = Fonction(Paramètre1)
- Si elle ne renvois rien :
Fonction(Paramètre1)

Je me demande pour quelles raisons tu as perdus ton temps :mouarf:

Citation:

---

Envoyé par ced600

Une petite explication que tu vois dans tous les tutoriaux vbs :
Appel d'une fonction ou procédure en VBS :
- Si elle renvois des paramètre et que tu souhaites les récupérer :
VarRetour = Fonction(Paramètre1)
- Si elle ne renvois rien :
Fonction(Paramètre1)

Je me demande pour quelles raisons tu as perdus ton temps :mouarf:

---

et pourquoi
fonction(un_parametre) produit le même résultat que
fonction un_parametre
alors que
fonction(parametre_A,parametre_B) produit un résultat différent de
fonction parametre_A,parametre_B
?

Bref dès que je trouve comment faire => retour à javascript

Heu desole je viens de m'apercevoir qque j'ai fait une faute de frappe :

Appel d'une fonction ou procédure en VBS :
- Si elle renvois des paramètre et que tu souhaites les récupérer :
VarRetour = Fonction(Paramètre1)
- Si elle ne renvois rien :
Fonction Paramètre1