Excel

Bonjour,

a quoi est égal rs?

car d'après ce que je vois rs est une variable et si elle n'est pas défini, c'est pour ca que tuas le problème

Bonjour,

voici toute la procédure:

Sub readDB(strSql As String, feuille As String, i0 As Integer, j0 As Integer)
Dim i As Integer, j As Integer, nbr As Integer, nbf As Integer
Dim rs As ADODB.Recordset
nbr = -1 ' en cas d'erreur d'ouverture
If openDB Then
nbr = 0
Set rs = New ADODB.Recordset
rs.Open strSql, db, adOpenForwardOnly
Sheets(feuille).Cells(i0, j0).CopyFromRecordset rs
rs.Close
Set rs = Nothing
closeDB
End If

Bonjour,

j'ai trouvé pourquoi, au moment ou tu veux copier excel, tu n'es pas sur Excel.
Par contre je ne suis pas assez compétent epour trouvé le code exact.

Sub readDB(strSql As String, feuille As String, i0 As Integer, j0 As Integer)
Dim i As Integer, j As Integer, nbr As Integer, nbf As Integer
Dim rs As ADODB.Recordset
nbr = -1 ' en cas d'erreur d'ouverture
If openDB Then
nbr = 0
Sheets(feuille).Cells(i0, j0).Copy
Set rs = New ADODB.Recordset
rs.Open strSql, db, adOpenForwardOnly
'Sheets(feuille).Cells(i0, j0).CopyFromRecordset rs ' ici il faut que tu trouves le code pour le coller dans recordset.
rs.Close
Set rs = Nothing
closeDB
End If