Discussion :

[parp1]

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 :

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

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.

[clementmarcotte]

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...

[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.

[parp1]

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

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
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..

[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.

[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.