Problème de OleDbConnection avec excel suite au passage a office 365.

Version imprimable

Bonjour les codeurs,

Ca fait un petit moment que je n'ai pas poster ici...

Voila je développe une petite application en VB.net qui a pour but de générer une liste qu'on sélectionne dans un datagridview qui est rempli au préalable via un oledbconnection.

Il y avait une autre fonctionnalité dans ce programme, l'envoi de mail. Mais voila j'ai upgradé vers office365. Et depuis la connexion oledb ne fonctionne plus... Pour l'envoi de mail, j'ai trouvé la solution.

Voila un bout de code où suite à un changement de valeur d'un combobox (avec le nom de feuille excel) je rempli un datagridview.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged Try Dim Myconnection As System.Data.OleDb.OleDbConnection Dim Dataset As System.Data.DataSet Dim BdataSet As New BindingSource Dim Mycommand As System.Data.OleDb.OleDbDataAdapter Dim path As String = "C:\SPC\SPC.xlsx" Myconnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + path + ";Extended Properties=Excel 12.0;") Mycommand = New OleDb.OleDbDataAdapter("select * from [" + ComboBox2.Text + "$B:C]", Myconnection) Dataset = New System.Data.DataSet Mycommand.Fill(Dataset) BdataSet.DataSource = Dataset.Tables(0) DataGridView1.DataSource = Dataset.Tables(0) Myconnection.Close() Catch ex As System.Exception MsgBox("Le fichier de pièce détachées n'est pas sur votre ordinateur." + vbCrLf + "Connectez vous à internet et relancer ce logiciel.", MsgBoxStyle.Critical) End Try End Sub
Alors suite à ce code jusqu'à la ligne 10, je tombe directement dans l'exception ligne 18.... (sans passer par les lignes 12 à 15). Alors que ça marchait bien juste avant l'upgrade vers office365.

Alors est ce qu'il est possible d'utiliser toujours ce oledbconnection avec excel 16.etc?

Merci beaucoup.

@Modo, si vous savez comment mieux formuler le nom du sujet... je compte sur vous.

Parp1.

03/11/2017, 02h10
clementmarcotte

Citation:

Envoyé par parp1

Bonjour les codeurs,

Alors suite à ce code, je tombe directement dans l'exception.

Le devin de service a dû s'absenter et le manque de détails (ligne en cause et message de l'exception) n'aide en rien...

:cristal:
03/11/2017, 09h33
parp1

Bonjour, merci pour ta réponse et désolé pour le manque d'informations.

J'ai donc édité mon message initial et j'y ai indiqué les lignes de code parcourue par mon programme.

En fin de compte il tente de faire la connexion mais si elle échoue, je vais dans l'exception du try catch. Et c'est ce qui se passe.

Je ne vois pas pourquoi le changement vers office 365 pose problème. (si j'essaye ce code sur une machine avec excel 2003 ou 2010 ça roule).

Merci pour ton aide.

J'ai remplacé le code de connexion original par celui disponible dans le blog de Hinault Romaric Donfac.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Try
            Dim path As String = "C:\SPC\SPC.xlsx"
            Dim dat As DataSet
            dat = New DataSet
            'déclaration et utilisation d'un OLeDBConnection 
            Using Conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + path + ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""")
                'Conn.Open()
                'déclaration du DataAdapter 
                'notre requête sélectionne toute les cellule de la Feuil1 
                Using Adap As OleDbDataAdapter = New OleDbDataAdapter("select * from [" + ComboBox2.Text + "$B:C]", Conn)
                    'Chargement du Dataset 
                    Adap.Fill(dat)
                    'On Binde les données sur le DGV 
                    DataGridView1.DataSource = dat.Tables(0)
                End Using
                'le end using libère les ressources 
            End Using

Ca marche maintenant... va savoir pourquoi..

07/11/2017, 10h11
parp1

Citation:

Envoyé par parp1

Ca marche maintenant... va savoir pourquoi..

Je sais pourquoi ça fonctionnait... En effet excel était ouvert, et excel me demandait justement de activer un lien ... (je pense que c'est le lien OLEDB...)

J'aimerai que ça fonctionne sans qu'excel soit forcément ouvert. Le soft doit pouvoir accéder a un fichier excel sans qu'excel soit ouvert?

Merci.
28/11/2017, 19h29
parp1

Bon, pour faire simple,

L'utilitaire moteur de DB access 2010 64bit fonctionnant avec office 365, il a fallut passer mon application en 64bit!

Ça marche niquel.