Discussion :

[GlamIS]

Bonjour,
J'ai un script VBS qui lance une requete SQL puis ecrit le resultat dans un fichier excel.
mais j'ai un pb que je n'arrive pas a resoudre
voila le bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
 
While Not(rst.EOF)
	Do While i<65537 And Not(rst.EOF)
		r.cells(i,1)=rst.Fields(0)
		r.cells(i,2)=rst.Fields(1)
		r.cells(i,3)=rst.Fields(2)
		r.cells(i,4)=rst.Fields(3)
		r.cells(i,5)=rst.Fields(4)
        .....

il me donne cette erreur Objet requit : 'Cells' et la ligne correspondante est :

Code :

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

r.cells(i,1)=rst.Fields(0)

je ne comprend pas pourant j'ai bien mis le .Cells!!

viola la declaration de mes champs:

Code :

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

1
2
3
4
5
6
7
8
Dim xlapp, classeur, r
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = False
xlapp.DisplayAlerts = False
Set classeur = xlapp.Workbooks.add
classeur.Worksheets(3).Delete
classeur.Worksheets(2).Delete
Set r = classeur.Sheets(1)

[jbaudin]

Quelle est la valeur du i lors de l'erreur ?

[ced600]

Vérifie que r ne soit pas null, peut être que

Code :

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

Set r = classeur.Sheets(1)

ne marches pas.