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