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)