Discussion :

[ironik]

Bonsoir à tous!
Ne me lynchez pas si c'est déjà expliqué quelque part... parceque j'ai cherché et je n'ai pas trouvé de probleme similaire...

J'ai un probleme en essayant de récupérer les infos contenues dans un fichier excel via un recordset.
Le recordset à systematiquement pour 1er enregistrement la deuxieme ligne du fichier excel...

Je ne comprends pas!

Peut etre y a t il une option par défaut qui fait sauter la première ligne?

Merci!!

[SilkyRoad]

bonsoir

tu ne precises pas le type de connection utilisé

par exemple :

Code :

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

 "Extended Properties=""Excel 8.0;HDR=Yes"""

si HDR =No , la premiere ligne est considérée comme un enregistrement
si HDR=Yes , la premiere ligne est considérée comme un entête


sinon pour récupérer la 1ere ligne (l'entete) , tu peux aussi utiliser

Code :

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

1
2
3
For i = 0 To Rs.Fields.Count - 1 'boucle sur les entetes
Debug.Print Rs.Fields(i).Name
Next

bonne soiree
michel

[ironik]

Merci bcp je pense que ca va fonctionner maintenant!!!

Je vous tiens au courant et je fais un ptit topo si ca marche!

[ironik]

Bon ca ne fonctionne pas il me dit que la base ou l'objet est en read only

Voici 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
16
17
18
19
20
21
22
23
24
25
26
Public Function Read_Excel _
         (ByVal sFile _
          As String, sheet As String) As ADODB.Recordset
 
      On Error GoTo fix_err
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim sconn As String
      Dim strsql As String
      Dim sheetName As String
 
 
 
      sheetName = CStr(sheet) + "$"
      strsql = "SELECT * FROM [" + sheetName + "]"
 
      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenKeyset
      rs.LockType = adLockBatchOptimistic
 
     sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile & " " & _
            "Extended Properties=""Excel 8.0;HDR=No"""
      rs.Open strsql, sconn
      Set Read_Excel = rs
      Set rs = Nothing
      Exit Function

Il plante à l'ouverture ^^

[bidou]

déjà il ne vas pas être KeySet si tu le met coté client

essayes avec

Code :

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

1
2
3
4
5
6
7
8
rs.CursorLocation = adUseClient 
rs.CursorType = adOpenStatic 
rs.LockType = adLockBatchOptimistic 
 
sconn = "Microsoft.Jet.OLEDB.4.0;Data Source= & sFile & ";Extended Properties=Excel 8.0"
rs.Open strsql, sconn 
Set Read_Excel = rs 
Set rs = Nothing

[ironik]

Ca ne fonctionne pas avec ce code...
J'ai l'impression que c'est

Code :

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

;Extended Properties=Excel 8.0"

qui pose probleme...

Code :

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

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile

Avec ce code ca fonctionne mais je récupère la deuxieme ligne comme premier enregistrement:

[bidou]

Quand tu dis "ca ne fonctionne pas" c'est que tu as une erreur ou que tu ne récupères rien ?

[ironik]

ah oui désolé. j'ai pas précisé!

Donc avec ce code

Code :

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

1
2
3
4
sconn = "Microsoft.Jet.OLEDB.4.0;Data Source= & sFile & ";Extended Properties=Excel 8.0"
rs.Open strsql, sconn
Set Read_Excel = rs
Set rs = Nothing

Il me renvoie une erreur "Data source name Not Found and no defaut driver specified" a l'ouverture du recordset

Avec ce code

Code :

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

1
2
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile & " " & _
            "Extended Properties=""Excel 8.0;HDR=No"""

Il me renvoie l'erreur :" Cannot update, database or object is Read-only" a l'ouverture du recordset

Avec celui là :

Code :

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

 sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile

Je n'ai pas d'erreur mais le premier enregistrement est la deuxième ligne de mon fichier Excel!

Ps: question bête: dans l'extended properties (Extended Properties=""Excel 8.0") à quoi correspond le 8.0, la version d'Excel??

[ironik]

Bon forcément ... je n'avais pas mis de référence OLEDB

En ce qui concerne ODBC, la première ligne est toujours considérée comme une ligne de titre, non pas comme une ligne de donnée (source IBM)

J'essaie donc avec OLEDB^^

[ironik]

Bon voila ca fonctionne avec OLEDB!
SilkyRoad avait raison mais comme je n'ai pas indiqué que j'etais en ODBC...

Voici 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
16
17
18
19
20
21
22
23
24
25
26
27
Public Function Read_Excel _
         (ByVal sFile _
          As String, sheet As String) As ADOdb.Recordset
 
      On Error GoTo fix_err
      Dim rs As ADOdb.Recordset
      Set rs = New ADOdb.Recordset
      Dim sconn As String
      Dim strsql As String
      Dim sheetName As String
 
 
      sheetName = CStr(sheet) + "$"
      strsql = "SELECT * FROM [" + sheetName + "]"
 
      rs.CursorLocation = adUseClient
      rs.CursorType = adOpenStatic
      rs.LockType = adLockBatchOptimistic
 
      sconn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & sFile & ";" & _
      "Extended Properties=""Excel 8.0;HDR=NO;"";"
 
'sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
      rs.Open strsql, sconn
      Set Read_Excel = rs
      Exit Function

Maintenant le recordset retourne bien la première ligne!

Merci à tous