Excel

Neo -  
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
Configuration: Windows XP Internet Explorer 6.0

3 réponses

  1. melanie1324
    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
    0
    1. neo
      Thanks pour l'aide......... je mis m'est
      0
  2. neo
    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
    0
    1. melanie1324
      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
      0