Discussion :

[taz_wanted]

Bonjour à tous,
je rencontre un souci avec un code vba sous access me permettant de lire un fichier excel pour alimenter mes tables.

Ci joint le code me permettant de parcourir le fichier. Cela fonctionne, j'arrive à parcourir mes données et les lire, mais j'aurais besoin de la position de mon enregistrement et en utilisant la propriété absoluteteposition, celle ci reste à -1 tout au long de l'éxécution, alors que la navigation dans le recordset fonctionne puisque j'arrive à récupérer les champs de tous mes enregistrements.
De al même façon, la propriété recordcount ne fonctionne pas alors que mon recordset n'est pas vide.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub import_filiation()
 
'connection au fichier excel
Dim cn_xls As ADODB.Connection
Dim Rst_xls As ADODB.Recordset
Dim fichier As String
Dim NomFeuille As String, texte_sql As String
 
'Définition du classeur fermé servant de source
chemin = "C:\Mon Espace Disque\"
fichier = "conversion SAP_Pere_Fils.xls"
NomFeuille = "extract" 'A METTRE A JOUR
 
chemin_fichier = chemin & fichier
 
'Connection à la source Excel
Set cn_xls = New ADODB.Connection
With cn_xls
    .Provider = "MSDASQL"
    .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
    "DBQ=" & chemin_fichier & "; ReadOnly=False;"
    .Open
End With
 
'----- Définition de la requête ------
texte_sql = "SELECT * FROM [" & NomFeuille & "$]"
Set Rst_xls = New ADODB.Recordset
Set Rst_xls = cn_xls.Execute(texte_sql)
MsgBox (Rst_xls.RecordCount)
 
'Parcours sur les lignes du fichier excel pour traiter les differentes informations
Do While Not (Rst_xls.EOF)
    MsgBox (Rst_xls.AbsolutePosition)
    MsgBox (Rst_xls.Fields(0))
    Rst_xls.MoveNext
Loop
 
End Sub

J'ai du oublier quelque chose mais je ne vois pas quoi. je précise que je ne suis pas expert en vba sous access, je me suis inspiré de tutos trouvés sur le site pour écrire ce code.

Merci par avance de votre aide

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox abs(-1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Rst_xls.EOF = False Then
    Rst_xls.MoveLast
    MsgBox Rst_xls.RecordCount
    Rst_xls.MoveFirst
End If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set Rst_xls = New ADODB.Recordset
Set Rst_xls = cn_xls.Execute(texte_sql)

[taz_wanted]

Merci de ton aide.

je ne comprends pas le msgbox abs(-1)

Sinon, lorsqu'il arrive sur le movelast, j'ai un message d'erreur "l'ensemble de lignes en prend pas en charge les récupérations arrière".
Il semblerait que cela vienne du type de recordset mais :
- je ne connais pas les différents types possibles, ni comment en changer
- c'est bizarre car le movelast correspond à un "mouvement en avant non"

[Invité]

le MoveLast positionne ton RecordSet à la fin de ta requête et le MoveFirst en début de ta requête!

je ne comprends pas le msgbox abs(-1)

Absolut position

[taz_wanted]

OK pour le movelast, mais dans mon exemple, il me donne l'erreur "l'ensemble de lignes en prend pas en charge les récupérations arrière"

[Invité]

l'histoire du MoveLast c’était pour dire que le RecordCount retourne toujours 1 au début de la requête!

[taz_wanted]

J'aimerais bien justement que mon recordcount me donne 1.

Avec le code suivant, mes 2 valeurs sont à -1 (recordcount et absoluteposition), d'ou mon problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'----- Définition de la requête ------
texte_sql = "SELECT * FROM [" & NomFeuille & "$]"
'Set Rst_xls = New ADODB.Recordset
Set Rst_xls = cn_xls.Execute(texte_sql)
 
MsgBox Rst_xls.RecordCount
MsgBox Rst_xls.AbsolutePosition