Hello,

J'ai un problème avec ma boucle qui est supposée passer en revue toutes les lignes d'une table Access "Weights1". Voilà le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   ...  
    Set Rst = db.OpenRecordset("Weights1", dbOpenTable)
    Rst.MoveFirst
    Do While Not Rst.EOF
 
    Worksheets(sheet).Range("A2").CopyFromRecordset Rst
        Calculate
        temp = Cells(3, 14).Value & ";" & Cells(3, 15).Value & ";" & Cells(3,16).Value & _
        ";" & Cells(3, 17).Value
 
    Write #iFileNum, temp
 
    Rst.MoveNext    
    Loop
...
Donc le code fonctionne correctement jusqu'à Rst.MoveNext puis bug en précisant 'aucun enregistrement'. Je dois dire que je suis coincé, merci pour vos réponses.