CopyFromRecordset bug aléatoire

Version imprimable

Bonjour,

Voici mon code qui me pose probleme et voici mon probleme

J'ouvre un fichier excel en base de donnée (fichier assez gros) il me lit la premiere ligne et la copie le tout dans une boucle tant que nous ne sommes pas sur le derniere enregistrement.

Jusque la tout va bien mais à la ligne "ActiveCell.CopyFromRecordset Rst
" il bug de manière aléatoire et me renvoie une erreur CopyFromRecordset de l'objet Range a échoué...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String, I As String
 
    'Adresse de la cellule contenant la donnée à récupérer
    I = 2
    Cellule = "A" & I & ":BK" & I & ""
 
    Feuille = "Feuil1$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = V_Imp
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
 
    'While Not (Rst.EOF)
 
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    While Not (Rst.BOF)
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    'Range("A5").Activate
    ActiveCell.CopyFromRecordset Rst
    ActiveCell.Offset(1, 0).Activate
    I = I + 1
    Cellule = "A" & I & ":BK" & I & ""
    Wend
 
 
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing

Merci d'avance...

11/05/2012, 14h53
Daranc

le Cellule = "A" & I & ":BK" & I & "" a t-il besoin du & "" terminal?
11/05/2012, 14h58
CODYCO

Définitivement non ;) merci de la correction
mais cela ne résoud pas le problème...
11/05/2012, 15h07
Jean-Philippe André

Salut,
pour qu'activecell soit valide, encore faut-il s'assurer qu'il y ait bien une cellule active. Ce mode de fonctionnement est possible, mais nécessite une "garantie" que la cellule active soit bien celle qu'on attend :aie:

Ne t'est-il pas possible de passer par un Range().CopyFromRS directement ?
14/05/2012, 13h25
CODYCO

Oui je me suis assuré de ca, la cellule de déstination est activé avant la création du ADO, toute cette partie fonctionne bien c'est juste que la recopie via

Code:

ActiveCell.CopyFromRecordset Rst

bug parfois en lecture normale du code, si je passe en mode débug et appui F8 la ligne de code passe et cela rebug quelques lignes plus loin.

Je ne vois pas sur quel critere...8O

Bon j'alimente moi meme la discusion qui ne semble pas passionner les foules...:calim2:

Premiere éléments de réponse sur ce bug, il semble que les retours chariots contenu dans certaine cellule de mon fichier source ne soit pas apprécié en gestion ADO, j'ai donc éliminé ces colonnes qui au finale n'étaient pas traitées.

Mais à la 5438 ligne traitée nouveau message: " erreur d'exécution; instruction sql, delete, insert procedure, select ou update attendus" poourtant il viens de traité ma requette plus de 5000 fois... je sèche!:(

Tout seul comme un grand

Bon définitivement ce sujet n'aura pas passionné...

J'aurais finalement résolu mon problème tout seul comme un grand, et vous donne mon code final si un jour ca intérresse...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
 
Sub extractionValeurCelluleClasseurFerme()
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String, I As String
 
    'Cellule de destination
    Worksheets("Liste").Activate
    Range("A5").Activate
 
    Feuille = "Feuil1$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = V_Imp 'Variable public définie par boite de dialogue du fichier source
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"";"
 
    Source.CursorLocation = adUseClient
    Set ADOCommand = New ADODB.Command
 
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenForwardOnly, adLockOptimistic, adLockReadOnly
 
    'Compte le nombre d'entré dans le fichier source 
    Set Rst = Source.Execute("SELECT count(*) as NbLignes FROM [" & Feuille & "]")
 
    I = Rst("nbLignes")
    Cellule = "A2" & ":BH" & I & ""
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
   ActiveCell.CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub

Merci à tous et à moi même pour une fois :mouarf:

14/05/2012, 17h21
Daranc

ce n'est pas qu'il n'a pas passionné..;)
c'est surtout que j'avais aucune idées:mouarf: