Discussion :

[v1nce]

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 :

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

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 :

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

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>

[ced600]

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

Code :

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

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

?

[v1nce]

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.

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

Code :

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

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

?

si j'écris cela en javascript

Code :

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

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"

[v1nce]

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.

[ced600]

et en vbs cela donne quoi ?

[v1nce]

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

[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

[v1nce]

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

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

[ced600]

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