Discussion :

[sorlok]

Bonjour à tous,

Je travaille sur une application vb.net en ce moment, qui ouvre des fichiers Excel pour y lire des données.
J'utilise la méthode ADO, dont voici un extrait de mon code:

Code :

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

1
2
3
4
5
6
7
8
 
_strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=" & fileUrl & ";" & _
                            "Extended Properties=""Excel 8.0;"""
 
            'Définition et alimentation du DataSet
            _myDataset = New DataSet()
            _myData = New OleDbDataAdapter("SELECT * FROM [" & SheetName & "$]", _strConn)

Le système fonctionne correctement, mais je dois faire évoluer le produit.
Ici, dans la requête SELECT, le nom de la feuille excel doit être connu à l'avance. Dans l'application, il est donc convenu d'appeler la première feuille "Feuil1".
Cependant, je dois rendre l'outil plus souple et rendre l'application capable d'ouvrir n'importe quel nom de feuille.

Ma question est la suivante : comment ouvrir un document Excel avec ADO sans connaître le nom de la première feuille du fichier?

Merci de votre aide

[Gold Bug]

Cependant, je dois rendre l'outil plus souple et rendre l'application capable d'ouvrir n'importe quel nom de feuille.

Excel, c'est l'opposé de la souplesse

Personnellement, j'exporterais les données au format CSV pour pouvoir les manipuler directement avec un TextReader.

[sorlok]

Malheurreusement le client est l'opposé de la souplesse aussi...
Je gère déjà les csv (et la, noooo problem évidement).

Ma question perdure donc...
snif

[Skalp]

Sèche tes larmes sorlok, car Excel est bien plus souple que certains le pensent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
string filePath = @"C:\Classeur1.xls";
string connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties=\"Excel 8.0\";";
System.Data.OleDbConnection connection = new OleDbConnection(connectionString);
connection.Open();
 
System.Data.DataTable dt = connection.GetSchema("tables");
 
for (int i = 0; i < dt.Rows.Count; i++)
{
    Console.WriteLine(dt.Rows[i].ItemArray[2].ToString());
}
 
connection.Close();

Alors dis-nous ce que tu vois sur ta console ?

[sorlok]

Sèche tes larmes sorlok, car Excel est bien plus souple que certains le pensent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
string filePath = @"C:\Classeur1.xls";
string connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties=\"Excel 8.0\";";
System.Data.OleDbConnection connection = new OleDbConnection(connectionString);
connection.Open();
 
System.Data.DataTable dt = connection.GetSchema("tables");
 
for (int i = 0; i < dt.Rows.Count; i++)
{
    Console.WriteLine(dt.Rows[i].ItemArray[2].ToString());
}
 
connection.Close();

Alors dis-nous ce que tu vois sur ta console ?

J'avoue que la même chose en vb.net ce serait le dream
J'ai du mal à faire la transposition

[Poulain]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim filePath as string = "C:\Classeur1.xls"
dim connectionString as string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filePath + ";Extended Properties=""Excel 8.0"";"
dim connection as System.Data.OleDbConnection = new OleDbConnection(connectionString)
connection.Open()
 
dim dt as System.Data.DataTable = connection.GetSchema("tables")
while  dt.Rows.hasrow
 
    Console.WriteLine(dt.Rows[i].ItemArray[2].ToString())
do
 
connection.Close()

voilà ce que ça donne normalement en VB.NET
j'ai fait ça direct dans l'éditeur du forum, il y a peut etre des erreurs.

[sorlok]

Bon, je me suis un peu acharné et j'ai réussi à modifier mon code pour l'adapter au vb.net (tu avais déjà fait le gros du boulot )
Et ça fonctionne parfaitement! Je vais adapter ça pour mon soft, un big big merci, tu as parfaitement ciblé mon problème. Génial!

Pour info voici la source une fois transposée en vb.net :

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
 
Imports System.Data.OleDb
[...]
Dim filePath As String = "C:\Classeur1.xls"
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath & ";Extended Properties=""Excel 8.0"";"
        Dim connection As OleDbConnection = New OleDbConnection(connectionString)
        connection.Open()
 
        Dim dt As System.Data.DataTable = connection.GetSchema("tables")
 
        For i As Integer = 0 To dt.Rows.Count - 1
            MsgBox(dt.Rows(i).ItemArray(2).ToString())
        Next
 
        connection.Close()

[sorlok]

lol bon ben joli travail commun.
Encore merci pour tout et très bonne journée!

[Skalp]

N'oublie pas de cliquer sur (tout en bas de cette page) lorsque ton problème est résolu

[sorlok]

Je le cherchais hier sans le trouver.
Je devais être déconnecté.

Désolé et encore merci pour votre aide!