Excel
Neo
-
neo -
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
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
A voir également:
- Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
3 réponses
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
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
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
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
