Interroger un fichier excel sur un reseau en entreprise en vb.net

Version imprimable

04/08/2015, 10h56
progami

Interroger un fichier excel sur un reseau en entreprise en vb.net

Bonjour,

je développe une interface en vb.net pour interroger un tableau Excel, ce dernier est accessible à tous mes collègues vu qu'il est sur le réseau.
je sais que pour ouvrir un fichier Excel enregistré dans mon pc, il faut juste donner le chemin absolu:

Code:

ApExcel.Workbooks.Open("d:\LocalData\Desktop\test.xls")

Mais dans le cas d'un fichier sur le réseau je ne vois pas comment je peux y accéder !!
veuillez vous me donner un coup de main SVP

je vous remercie par avance
04/08/2015, 15h32
Pol63

comme tous les accès à un dossier partagé

\\NomOuIpDuPc\nomdupartage\dossier\fichier.xls

si c'est un fichier simple sans fusion de cellule et avec des entetes de colonnes ado.net sera beaucoup plus simple à coder et beaucoup plus performant
05/08/2015, 10h39
progami

merci
05/08/2015, 14h26
progami

Citation:

Envoyé par Pol63

comme tous les accès à un dossier partagé

\\NomOuIpDuPc\nomdupartage\dossier\fichier.xls

si c'est un fichier simple sans fusion de cellule et avec des entetes de colonnes ado.net sera beaucoup plus simple à coder et beaucoup plus performant

Peux tu me donner une documentation pour etablir la connexion ado.net et mon programme (vb.net)?
je cherche depuis tout à l'heure mais j'ai rien trouvé :(

je te remercie
05/08/2015, 15h02
FLYeRNeT

Citation:

Envoyé par progami

Peux tu me donner une documentation pour etablir la connexion ado.net et mon programme (vb.net)?
je cherche depuis tout à l'heure mais j'ai rien trouvé :(

je te remercie

TUTO VB et Excel
TUTO ADO
Exemples de Connection String pour Excel

:D

Citation:

Envoyé par FLYeRNeT

TUTO VB et Excel
TUTO ADO
Exemples de Connection String pour Excel

:D

Merci pour tes liens et pour ta réponse :)

les deux premiers je les ai déjà vu, le premier je l'ai utilisé pour ouvrir mon tableau excel mais je prefere utiliser ado
avec ce que tu m'as envoyé j'ai réussi a faire ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub CNX() 'Déclaration de la variable de connexion Dim cn As ADODB.Connection cn = New ADODB.Connection With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=d:\LocalData\Desktop\Essai.xlsx;" & _ "Extended Properties=Excel 15.0;" .Open() End With End Sub
mais pour la declaration des varilables il m'affiche ADODB.Connection is not define en sachant que j'ai rajouté

Code:

Imports System.Data.OleDb

adodb c'est d'un autre age

en .net ca donne en gros :

Code:

1
2
3
4
5
6
7
8
9
10
using c as new system.Data.oledb.oledbconnection
  c.connectionstring = "..."
  c.open
  dim cmd = c.createcommand
  c.commandtext = "select nomCol1, nomcol3 FROM sheet1" ' ou sheet1 est le nom de la feuille dans le fichier excel
  dim reader = c.executereader
  while reader.read ' lecture d'une ligne
     dim valeurCol1PourLaLigneEnCours = reader.item("nomcol1")
  end while
end using

Citation:

Envoyé par Pol63

adodb c'est d'un autre age

en .net ca donne en gros :

Code:

1
2
3
4
5
6
7
8
9
10
using c as new system.Data.oledb.oledbconnection
  c.connectionstring = "..."
  c.open
  dim cmd = c.createcommand
  c.commandtext = "select nomCol1, nomcol3 FROM sheet1" ' ou sheet1 est le nom de la feuille dans le fichier excel
  dim reader = c.executereader
  while reader.read ' lecture d'une ligne
     dim valeurCol1PourLaLigneEnCours = reader.item("nomcol1")
  end while
end using

Bonjour,
TOUT D'abord je te remercie pour ton aide je suis vraiment coincé :s

Effectivement j'ai plus l'erreur maintenant par contre au lieu d'ecrire :

Code:

c.commandtext =

il faut mettre :

Code:

cmd.CommandText =

et pareil pour c.executereader

Voila le code apres qlq modification:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
        Using c As New System.Data.OleDb.OleDbConnection
 
 
            With c
                .ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0" & _
                    "Data Source=d:\LocalData\Desktop\testa.xlsx;" & _
            "Extended Properties=Excel 15.0;"
                .Open()
            End With
 
            Dim cmd = c.CreateCommand
 
            'c.commandtext()
            cmd.CommandText = "select A, B FROM Feuil1" ' ou sheet1 est le nom de la feuille dans le fichier excel
            Dim reader = cmd.ExecuteReader
            'c.executereader
            While reader.read ' lecture d'une ligne
                Dim valeurCol1PourLaLigneEnCours = reader.Item("A")
                MsgBox(valeurCol1PourLaLigneEnCours)
            End While
        End Using

je sais pas si t'es d'accord avec moi ?

mais la je galère depuis hier avec :

Code:

1
2
3
                .ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0" & _
                    "Data Source=d:\LocalData\Desktop\test.xls;" & _
            "Extended Properties=Excel 15.0;"

j'ai un message qui dit que :
Le fournisseur 'Microsoft.ACE.OLEDB.12.0Data Source=d:\LocalData\a195814\Desktop\testa.xlsx' n'est pas inscrit sur l'ordinateur local.

j'ai vu pas mal de manipulation pour résoudre ce problème mais rien qui marche!!
t'as une idée stp ?

06/08/2015, 11h26
FLYeRNeT

Citation:

Envoyé par progami

j'ai un message qui dit que :
Le fournisseur 'Microsoft.ACE.OLEDB.12.0Data Source=d:\LocalData\a195814\Desktop\testa.xlsx' n'est pas inscrit sur l'ordinateur local.

T'as essayé en compilant en 32 bits ?
Dans les propriétés du projet, onglet "compile" en bas bouton "Avanced Compile Options..." --> "Target CPU:" mettre "x86"
06/08/2015, 13h49
progami

Citation:

Envoyé par FLYeRNeT

T'as essayé en compilant en 32 bits ?
Dans les propriétés du projet, onglet "compile" en bas bouton "Avanced Compile Options..." --> "Target CPU:" mettre "x86"

Ouii j'ai fait ça aussi mais ç marchait pas !!
:s :s
06/08/2015, 14h41
FLYeRNeT

Citation:

Envoyé par progami

Ouii j'ai fait ça aussi mais ç marchait pas !!
:s :s

Et si tu essaies avec "Microsoft.Jet.OLEDB.4.0" ?

Donne ta connection string exacte.
06/08/2015, 14h48
progami

Citation:

Envoyé par FLYeRNeT

Et si tu essaies avec "Microsoft.Jet.OLEDB.4.0" ?

Donne ta connection string exacte.

je l'ai essayé aussi
06/08/2015, 22h52
Pol63

jet 4 est un des moteur d'accès à une base access
celui ci est fournit avec windows, mais ne fonctionne qu'en x86 (et dans la chaine de connexion il ne faut ace ole db mais jet ...)

ace ole db est plus récent, fonctionne en x86 ou x64, par contre il faut l'installer (en tapant ace ole db sur google on récupère le setup)

Bon apres des heures des heures devant mon ecran j'ai trouvé l'erreur c'est juste au niveau de la syntaxe en sachant que j'ai passé en x86
VOILA :
Code:

1 2 3 4 5 6 With c .ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source=""d:\LocalData\Desktop\testa.xlsx"" ; Extended Properties=""Excel 12.0 Xml; IMEX=1""" .Open() End With
je vous remercie ;)