smuggam
Messages postés4Date d'inscriptionmercredi 26 mai 2010StatutMembreDernière intervention 9 juin 2010
-
26 mai 2010 à 16:37
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
27 mai 2010 à 10:10
Bonjour à tous.Actuellement je fais un petit programme sous excel 2003 permettant à un utilisateur d'afficher une référence et une quantité(données stockées dans un fichier csv) en fonction de 2 variables sur la feuille excel.
Le problème est que lorsque j'exécute mon bouton j'ai un bug et le debeugeur se met sur la ligne "Record.MoveFirst". Il me met aussi ce message :
"
Erreur d'éxécution '3021' :
BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé.L'opération demandée nécessite un enregistrement actuel.
"
Voici mon code :
Dim mavar As String
Dim mavar1 As Integer
Dim sql As Variant
Dim Connex As ADODB.Connection
Dim Record As ADODB.Recordset
Set Connex = New ADODB.Connection
Set Record = New ADODB.Recordset
sel = " SELECT NO_ORDRE,NO_REFDET,NO_QTE "
fro = " FROM f.csv "
whe " WHERE AR_REF '" & mavar & "' And NO_OPERATION = " & mavar1 & ""
ord = " ORDER BY NO_QTE "
Record.Open sel & fro & whe & ord, Connex
'Chargement sur la feuille
Set f = Sheets("Feuil2")
'Commence sur la ligne 5
i = 5
Record.MoveFirst
Do While Not Record.EOF
'colonne 4 /ligne 5
f.Cells(i, 5) = Record("NO_QTE")
'colonne 5 /ligne 5
f.Cells(i, 6) = Record("NO_REFDET")
'colonne 6 /ligne 5
f.Cells(i, 7) = Record("NO_ORDRE")
i = i + 1
Record.MoveNext
Loop
Record.Close
'fin
Connex.Close
End If
Le truc bizarre c'est que lorsque je modifie un bout de code,c'est à dire j'enleve la variable whe , mon bouton marche très bien
(Modification du code apporté :
sel = " SELECT NO_ORDRE,NO_REFDET,NO_QTE "
fro = " FROM f.csv "
ord = " ORDER BY NO_QTE "
Record.Open sel & fro & ord, Connex
)
Je n'ai pas réussi à solutioner le problème et étant débutant je ne pense pas que ce problème soit très dur à résoudre mais je ne trouve pas de solutions
Merci d'avance pour les réponses
amicalement Bonne journée
A voir également:
[Catégorie modifiée .Net --> VBA] Problème VBA sur EXCEL 2003 ( probleme d'execu