parcourir document xls

Version imprimable

Bonjour a tous, voila, je développe actuellement une application en vb.net sous visual studio 2003, et je cherche a faire une application qui permet de parcourir l'intégralité d'un tableau xls, de traiter les informations contenues dedans et de les enregistrer dans une base de données access. Le probleme est que je n'arrive pas a parcourir mon tableau, alors que ma connection marche ( a priori ) voici mon code :
Code:

1 2 3 4 5 Dim cn As New OdbcConnection("Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & "C:\base de données\DDASS.xls") cn.Open() 'ici c'est un peu le bordel...je ne sait pas quoi mettre cn.Close()
quelqu'un pourrait m'indiquer comment faire, meme si c'est juste une piste ?? je ne trouve pas de site qui traite de ce sujet...

25/01/2007, 11h56
Tnopy

Si je ne m'abuse utiliser un fichier Excel comme une base de donnée (ce que tu fait dans ton exemple), ne permet que d'atteindre les zones nommé au sein de ce fichier, qui sont géré comme des tables de base de donnée.

Donc si tu souhaite lire le contenu d'un fichier xls sans avoir de zone nommé à l'interieur spécifique à ce que tu souhaite recuperer, oublie cette technique, et utilise plutot l'api Excel pour ouvrir le fichier réellement et lire les données directement via les objets fait pour.
25/01/2007, 13h17
benji_dv

Bonjour,

La manipulation de fichiers Excel passe par les fonctionnalités d'Automation Office,
Tape Automation Excel ou Office ou Word dans Google...

voilou
25/01/2007, 13h49
boubounne

En fait, c'est bon j'ai reussi a trouver un petit programme qui me permet de considerer mon tableau excel comme un base de donnée. VOs solutions doivent marcher (je ne les ait pas testé), mais pour faire mon traitement, il est plus simple d'utiliser un datagrid...

merci quand meme
25/01/2007, 14h36
andlio

Salut boubounne,

J'ai été confronté au même problème que toi il n'y à pas si longtemps.
Sauf que moi j'ai utilisé l'automation Excel.

Tu peux m'en dire plus sur ton programme s'il te plait ? Comment s'appelle-t-il ? Gratuit ? C'est un programme, ou bien une dll ?

Merci.

non c'est quelques lignes de programme dans vb.net que j'ai remis a ma sauce, cela me permet de mettre mon fichier excel dans un datagrid et de le manipuler, ce qui me facilite l'enregistrment des données dans ma base de données..
voici les commandes :
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 Imports System Imports System.Drawing Imports System.Data Imports System.Data.OleDb Imports System.IO Dim Drow As DataRow Dim dset As New DataSet Dim Drow As DataRow Dim MyCommand As System.Data.OleDb.OleDbCommand Dim MyConnection As System.Data.OleDb.OleDbConnection Dim adapter As New OleDbDataAdapter Dim CmdBuild As New OleDbCommandBuilder Dim i As Integer try MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source= " & Txt_chemin.Text & " ;Extended Properties=Excel 8.0;") MyCommand = New OleDbCommand("select * from table") adapter.SelectCommand = MyCommand MyCommand.Connection = MyConnection adapter.Fill(dset, "table") dgrid_exel.SetDataBinding(dset, "table") Catch ex As Exception MsgBox(ex.Message) End Try
pour indication, Txt_chemin.Text est le chemmin d'acces de ton fichier excel, et table, c'est une petite manip a faire avant :
tu ouvre ton fichier excel, tu selectionne les ligne que tu veut afficher, ensuite tu va dans le menu insertion->nom->définir
et tu met le nom que tu veux, pui tu le remplace dans ton programme.
je suis en train de chercher comment on peut faire ca automatiquement mais c'est la prise de tete....:aie:

25/01/2007, 15h28
boubounne

D'ailleur, si quelqu'un a une idée, le tout est de parcourir en intégralité un tableau excel, et de définir un nom de "zone" si je peut appeler ca comme ca, je ne connait pas le nom exact, mais la manip est expliqué au dessus.
25/01/2007, 16h05
boubounne

sinon, j'ai trouvé ca aussi :
http://www.dotnet-tech.com/tutoriels/rapport-excel/

ca a l'air pas mal, mais c'est peut etre imcomplet..:roll:
26/01/2007, 10h21
andlio

Merci pour le lien, j'vais y jeter un coup d'oeil !!! :D
26/01/2007, 10h51
Tnopy

Citation:

Envoyé par boubounne

D'ailleur, si quelqu'un a une idée, le tout est de parcourir en intégralité un tableau excel, et de définir un nom de "zone" si je peut appeler ca comme ca, je ne connait pas le nom exact, mais la manip est expliqué au dessus.

C'est ce que je te disais en parlant des zones nommées.

Est ce que tes infos sont toujours à la même place ou est ce qu'il faut faire une recherche ?

en fait, il faut nommé ta zone, puis apres tu l'utilise comme une table de base de données. Je sait c'est un peu chaotique :aie: mais ainsi tu peu voir les info dans ton datagrid, maintenant, je suis toujours en train de bosser sur la maniere pour que la selection du tableau se fasse en automatique, mais ce que je sait c'est que tu peut ajouter des lignes dans cette zone, ou en supprimer, mais je n'ai pas etudié plus que ca le code. si tu le veut, le voila :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub cmd_enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_enregistrer.Click With dset ' Création de la nouvelle ligne Drow = dset.Tables("perssonne").NewRow 'affectation des valeurs Drow("nom") = txt_nom.Text Drow("prenom") = txt_prenom.Text ' Ajout de la ligne à la table .Tables("perssonne").Rows.Add(Drow) End With CmdBuild = New OleDb.OleDbCommandBuilder(adapter) adapter.Update(dset, "perssonne") MsgBox("Enregistrement ajouté avec Succés...", MsgBoxStyle.Information, "Information") End Sub

voila pour ceux qui veulent, je vient de comprendre comment lire les cases du tableau excel... (enfin :aie: )

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
 
Imports System
Imports System.Data
Imports System.Web
Imports System.IO
Imports Microsoft.Office.Interop
Imports System.Data.Common
Imports System.Resources
 
public sub test_de_lecture()
 
Dim oExcelApp As Excel.ApplicationClass
        Dim oBooks As Excel.Workbooks
        Dim oBook As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim oRien As Object
        Dim i As Integer
        Dim colonne As Integer
        Dim ligne As Integer
        Dim valeur As Object
 
        oRien = System.Reflection.Missing.Value
        oExcelApp = New Excel.ApplicationClass
        'j'affiche mon tableau excel
        oExcelApp.Visible = True
        'j'ouvre le tableau
        oBooks = oExcelApp.Workbooks
        oBook = oBooks.Open("c:\test.xls", oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien, oRien)
        oSheet = oBook.Worksheets(1)
 
        'insertion dans la case 5,5 de la valeur "test"
        oSheet.Cells(5, 5) = "test"
 
        'je recupere ici les valeur de la case activée
        colonne = oSheet.Cells.Column
        ligne = oSheet.Cells.Row
        MsgBox(colonne & " " & ligne)
 
        'je recupere les données de la case 5,5 ou il y a test
        valeur = oSheet.Cells(5, 5).Value2
        MsgBox(valeur.ToString)
 
        'je quitte excel
        oExcelApp.Quit()
 
end sub

si ca peut aider des personnes, en cas de besoin sur le sujet, n'hesiter pas a poster a la suite, je continu a bosser dessus (meme si je serais un peu moin present)

26/01/2007, 16h47
Tnopy

Parfais, je vois que tu as fait exactement comme j'avais proposé dans ma première reponse, utiliser les dll excel :p
28/01/2007, 11h42
boubounne

ben oui, mon chef m'a demandé de changer ma maniere de programmtion, au depart, je voulais faire un datagrid avec les info du tableau excel, mais je n'arrivais pas a faire la selection de la zone automatiquement.... donc j'ai du m'adapter, et cela convient tres bien a mon chef... mais c'est vrai que ta reponse est bien pratique,
;) merci