Excel Fermé

Question

Bonjour,
je suis confronté à un problème avec la methode "CopyFromRecordset"0
le message d'erreur qu'on me renvoi dès que je me connecte est :
"La méthode 'CopyFromRecordset' de l'objet 'Range' a échoué" et on me renvoi à la ligne
 
Sheets(feuille).Cells(i0, j0).CopyFromRecordset rs

thanks

melanie1324 · Answer

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

neo · Answer

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

melanie1324 · Answer

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