pb importation ACCESS vers Excel

[Laura15]

Bjr
j'ai une macro pour importer des données de ACCESS vers EXCEL
Jusque la tout fonctionnait bien mais je m'apercois que lorsque je veux importer un résultat de requete si il n'y a pas de résultat dans la requete sur la requete ca plante par un ecran de débogage a MoveLast
Je ne m'en était pas apercue ca pour l'instant mes tables n'était pas vides

Voici le code de ma macro d'importation

Sub ImportationAccess_HT_12()
Dim Session As Workspace
Dim BaseDonnée As Database
Dim Fiches As Recordset
Dim i

Set Session = DBEngine.Workspaces(0)
Set BaseDonnée = Session.OpenDatabase(ThisWorkbook.Path & '\\Compta.mdb')
Set Fiches = BaseDonnée.OpenRecordset('R_HT12', dbOpenDynaset)
Fiches.MoveLast
Fiches.MoveFirst

Sheets('BASE_ARTICLES').Select

For i = 1 To Fiches.RecordCount
ActiveSheet.Cells(i + 1, 59).Value = Fiches.Fields('C_FichCais_MtChq').Value
ActiveSheet.Cells(i + 1, 60).Value = Fiches.Fields('C_FichCais_MtEsp').Value

Fiches.MoveNext

Next i

Fiches.Close

BaseDonnée.Close
End Sub

Merci si vous avez une solution car j'avais pas prévue ca

 

[Creepy]

Bonjour le Forum, Laura,

Normal que ca plante tu veux accéder au dernier enregistrement d'une chaine nulle

Essaie ca :
------> If fiches.recordcount >0 then
Fiches.MoveLast
Fiches.MoveFirst

Sheets('BASE_ARTICLES').Select

For i = 1 To Fiches.RecordCount
ActiveSheet.Cells(i + 1, 59).Value = Fiches.Fields('C_FichCais_MtChq').Value
ActiveSheet.Cells(i + 1, 60).Value = Fiches.Fields('C_FichCais_MtEsp').Value

Fiches.MoveNext
Next i
------> end if

Ca devrait être tout bon

@+

Creepy

Message édité par: Creepy, à: 27/12/2005 12:19
Pfff les balises fonctionnent plus c'est vrai !

Message édité par: Creepy, à: 27/12/2005 12:20

 

[LAURA15]

Merci super tu me sauves la vie

Message en VB

MsgBox 'Bonne fetes de fin d'année'