OLE automation pour Excel

Bonjour a tous,

Tout d abord,je me dois de preciser que je suis completement novice en vbscript.

Voici ce que je veux faire :
_un fichier texte .csv corretement formatté pour excel est crée par php coté serveur (ca pas de probleme ;) )
_ suite a quoi je voudrais au moyen de OLE automation (enfin apres quelques recherches il me semble que c est ca que je dois utiliser) et vbscript importer le .csv dans Excel puis sauvegarder le fichier avec un nom donné, à un emplacement donné, et tout ca grace un script vbscript inbriqué dans une page html.

Voila ou j en suis niveau du bout de code vbscript :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

<script language="vbscript"> 'window.alert "coucou"   Option Explicit ' apparemment indispensable pour la declaration des variables   Dim xls as Excel.Application Set xls = CreateObject("Excel.Application") ' création d'une nouvelle instance vierge de l'application Excel, enfin je crois   xls.WindowState = xlMaximized ' format plein écran xls.Visible = True ' visible à l'écran xls.ShowWindowsInTaskbar = True ' visible dans la barre de tâches xls.DisplayFormulaBar = True ' affichage de la barre de formule xls.Caption = "Mon fichier Excel" xls.Workbooks.Add ' ajout d'un classeur Excel sinon vous aurez une instance d'Excel mais pas de classeur xls.Worksheets(1).Name = "Feuille1" xls.Worksheets(2).Name = "Feuille2"   xls.Worksheets(1).PrintOut Copies:=1   set xls = Nothing 'destruction de l objet </script>

---

Donc ce code est censé ouvrir une fenetre excel , mais ca ne marche pas !
Ma version d 4excel est 2000 (9.0.2812) et je n ai rien parametré de spécial dans ce dernier, et j'utilise pour les tests IE 7.

Si qq un pouvait me mettre le pied à l'etrier comme on dit je lui en serai infiniment reconnaissant.(ou m'indiquer une autre maniere de proceder pour realiser l action que je veux faire).

Merci par avance

Cordialement

Fabrice

Tu es sur la bonne voie mais...

VBS n'accepte pas le typage des variables.
Donc:

Code:

---

Dim xls

---

sans "as Excel.Application"

Ensuite, les constantes d'Excel (comme xlMaximized) ne sont pas connues par VBS, il faut les définir.

Idem pour la variable nommée "Copies"
Il faut repérer la position du paramètre et écrire sous cette forme:

Code:

---

xls.Worksheets(1).PrintOut ,,1

---

merci lainTech,

Je declare la var xls sans la typer maintenant , par contre pour ce qui est de definir les constantes d'Excel , je ne vois pas du tout comment faire, pourrais tu developper un peu stp.

Toujours dans le but d avoir une premiere reussite(la simple action d ouvrir excel, et d y ouvrir un document) j ai reduit mon code a :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

<script language="vbscript">   Option Explicit ' apparemment indispensable pour la declaration des variables   Dim xls Set xls = CreateObject("Excel.Application") ' création d'une nouvelle instance vierge de l'application Excel, enfin je crois   xls.WindowState = xlMaximized ' format plein écran xls.Visible = True ' visible à l'écran xls.ShowWindowsInTaskbar = True ' visible dans la barre de tâches xls.DisplayFormulaBar = True ' affichage de la barre de formule   set xls = Nothing 'destruction de l objet   window.alert "marche .... ou pas"   </script>

---

Et ca ne marche pas plus. Ca doit surement etre a cause de la non-definition de mes constantes excel, enfin j espere.

Code:

---

Const xlMaximized = -4137

---

Je ne l'ai pas deviné...

J'ai juste fait du pas à pas DANS VBA Excel et j'ai vérifié la valeur de la constante.
A toi d'en faire autant si tu dois en utiliser d'autres.

ok, je ne voulais pas t irriter ni te fournir une liste de constante et te demander leur valeurs, en fait je te demandais juste ou chercher, donc il me reste a trouver le "fameux VBA Excel" et le tour sera presque jouer.

encore mille merci

Rassure-toi...
Tu ne m'as pas irrité du tout.
Si j'ai dit "je ne l'ai pas deviné" c'est que, souvent, si on donne une valeur de constante sur le forum, la question suivante est "où peut-on les trouver?".
J'ai donc anticipé.

Pour le VBA, tu ouvres Excel et tu tapes Alt + F11.