Discussion :

[jbulysse]

Bonjour,


J'ai une erreur 1004 dans mon code pour la commande

Code :

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

1
2
 
Worksheets("Sheet1").Range("A3").End(xlDown).Offset(1, 0) = rsOra![JOBMASTNAME]

et je ne comprends pas d'où elle vient,
qu'en pensez vous?
Un moyen de faire autrement?

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
rsOra.Open "select JOBMASTNAME from DS_LANCEBATCH group by JOBMASTNAME", cnOra, adOpenStatic
 
rsOra.MoveNext
rsOra.MovePrevious
 
'Passing on data from the recordset to a variable or cell.
'Notice that the column name or alias is used to address
'data in the recordset.
While Not (rsOra.EOF)
Worksheets("Sheet1").Range("A3").End(xlDown).Offset(1, 0) = rsOra![JOBMASTNAME]
rsOra.MoveNext
Wend
 
'While Not (rsOra.EOF)
'  MsgBox rsOra("JOBMASTNAME") & " "
'  rsOra.MoveNext
'Wend
 
 
rsOra.Close

[jbulysse]

J'ai trouvé,

en bonne brute :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim x AS Integer
x = 3
While Not (rsOra.EOF)
'Worksheets("Sheet1").Range("A3").End(xlDown).Offset(1, 0) = rsOra![JOBMASTNAME]
Cells(x, 1) = rsOra![JOBMASTNAME]
x = x + 1
rsOra.MoveNext
Wend