Lecture incomplète d'un fichier xls

Version imprimable

Salut tout le monde,

Depuis ce matin je me bats avec une fonction qui dois lire un fichier excel, mais il ne lis pas la cellule A1. Dans le tableau ou je copie ma lecture, il me mets nothing. Voilà comment je procède:

Code:

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
39
40
41
42
43
44
45
46
 
'Ouverture du fichier contenant les infos
        OpenFileDialog1.InitialDirectory = "C:\"        'Adresse initiale
        OpenFileDialog1.Filter = "Fichier excell (*.xls)|*.xls"
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName.ToString()
        '**************************************************************************'
 
        'Charge le fichier et recup les infos
        Dim Fichier As String
        Dim Rstref As ADODB.Recordset
 
        'Définit le classeur fermé servant de base de données
        Fichier = OpenFileDialog1.FileName.ToString()
        'Nom de la feuille dans le classeur fermé
 
        TextBox5.Text = OpenFileDialog1.FileName.ToString()
        '************************************************************************************'
        'Définition des variables de saisie
        'Recup de l'entête
        Dim Cellules As String = "A0:Z1000"
        'Definition des sources
        Dim Source As ADODB.Connection
        Source = New ADODB.Connection
        Source.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";")
        Dim ADOCommand As ADODB.Command
        ADOCommand = New ADODB.Command
        With ADOCommand
            .ActiveConnection = Source
            .CommandText = "SELECT * FROM [Feuil1$" & Cellules & "]"
        End With
        'Execution de la commande
        Rstref = New ADODB.Recordset
        Rstref.Open(ADOCommand, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        'Récupération des données
        Rstref.MoveFirst()
        'Comptechamps = Rstref.Fields.Count
        'MessageBox.Show(test1.ToString())
        recupxlsreferentiel = Rstref.GetRows(-1, 0, )
        'Fermeture du fichier
        Rstref.Close()
        Source.Close()
        Source = Nothing
        Rstref = Nothing
        ADOCommand = Nothing

Mais le pire c'est qu'il lit correctement le reste du fichier, c'est à n'y rien comprendre, quelqu'un aurait une petite piste pour m'aider svp?

29/06/2009, 17h21
Skalp

Citation:

Envoyé par Clydopathe

Mais le pire c'est qu'il lit correctement le reste du fichier, c'est à n'y rien comprendre, quelqu'un aurait une petite piste pour m'aider svp?

C'est plutot cohérent : il n'y a pas de ligne d'indice "0" dans un fichier Excel.
Essaye plutot la plage suivante :

Code:

Dim Cellules As String = "A1:Z1000"
30/06/2009, 08h19
Clydopathe
Je viens d'essayer avec cette plage et mon tableau est toujours vide en (0,0) alors qu'il devrais y avoir le mot savoir...

J'ai pensé que ceci avais une incidence:
Code:

1 2 Rstref.MoveFirst()
Et ben non. je vais continuer à chercher. En tout cas merci pour l'aide.

Edit: Je crois avoir trouvé un début de piste, mon fichier de base contient des doubles et des strings, indépendamment des colonnes. J'ai défini l'objet de récupération des données en objet comme ceci:
Code:

1 2 Public recupxlsreferentiel(1000, 50) As Object
Normalement il dois tout récupérer sans problème, ni question de type non?

Edit 2: J'ai résolu mon problème en réorganisant le fichier excell, il ne faut pas mélanger les types dans une colonne var VB.net n'apprécie vraiment pas.

Le Recordset est une classe issue de VB6 et est donc dépréciée en VB.Net.

Je te conseille donc d'utiliser une connexion ADO.Net, tu auras certainement moins de bizarreries :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
OleDbConnection cnx = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Classeur1.xls;Extended Properties=\"Excel 8.0;HDR=No;IMEX=1\";");
OleDbCommand cmd = new OleDbCommand("SELECT * FROM [Feuil1$]");
cmd.Connection = cnx;
 
cnx.Open();
OleDbDataReader reader = cmd.ExecuteReader();
if (reader.HasRows)
{
    while (reader.Read())
    {
        // Ici, tu récupères tes valeurs...
        // Par exemple :
        Console.WriteLine(reader.GetString(0) + reader.GetString(1));
    }
}
reader.Close();
cnx.Close();

30/06/2009, 10h58
Clydopathe

Merci je vais jeter un oeil la dessus.