Import de données Excel dans une bd Access

Version imprimable

07/11/2010, 02h19
grominet1

Import de données Excel dans une bd Access

Bonsoir à tous, j'ai juste besoin d'une petite aide concernant un petit programme que je souhaite utilisé à titre personnel pour me facilité la tache dû à mon manque de temps.
Malgré mes recherche sur les faqs et les forums je n'arrive pas à trouvez un code qui fonctionne et qui répond à mes besoin.
Donc j'ai créer un formulaire avec Visual studio 2010 et en language VB avec une base de données Access.
Sur mon formulaire j'ai 4 textbox et 2 bouton (importer et enregistrer)
Ce que je voudrais c'est que en cliquant sur le bouton importer, cela m'ouvre un fichier excel et me colle la valeur de quatre cellules dans les textbox de mon formulaire et en cliquant sur le bouton enregistrer il me les ajoutes dans la base de données Access.
Faut savoir que je reçois près d'une centaine de fichier excel chaque vendredi et que cela me prend un temps fou à tous tapez à la main.
J'ai vraiment essayé un tas de codes mais aucun ne fonctionne.
Y a t-il une personne qui veuille bien me donnée un petit coup de pouce svp ?
Je remercie d'avance les personnes qui lisent mon post et vous souhaite une bonne soirée.

Bonjour Grominet1,

En ce qui concerne la connexion à la base de données, je suis en 64 Bits et "Microsoft.Jet.OLEDB.4.0" n'est pas supporté (j'ai fais des tests en intégrant x86 à la solution mais pas de résultats probants :o(( Bizarre !)
Adapte le code à tes besoins et comme tu as plusieurs classeurs, il te faut faire une boucle en ayant au préalable créé un tableau de chaines contenant les chemins de tes classeurs ou si ils sont tous dans le même dossier, en bouclant sur le dossier.
Un bouton nommé "BtnImport" et un nommé "BtnExport".

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
    Private Sub BtnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnImport.Click
 
        'ajouter la référence "Microsoft.Office.Interop.Excel" (menu Projet > Ajouter une référence...)
        Dim AppExcel As New Microsoft.Office.Interop.Excel.Application
        Dim Cls As Microsoft.Office.Interop.Excel.Workbook
        Dim Fe As Microsoft.Office.Interop.Excel.Worksheet
 
        AppExcel.Visible = True 'n'est pas forcément nécessaire
 
        Cls = AppExcel.Workbooks.Open("D:\MonClasseur.xls")
        Fe = Cls.Worksheets("Feuil1")
 
        With Fe
 
            TextBox1.Text = .Range("A1").Value
            TextBox2.Text = .Range("B1").Value
            TextBox3.Text = .Range("A2").Value
            TextBox4.Text = .Range("B2").Value
 
        End With
 
        'ferme le classeur
        Cls.Close()
 
        'ferme l'application
        AppExcel.Quit()
 
        Fe = Nothing
        Cls = Nothing
        AppExcel = Nothing
 
    End Sub
 
    Private Sub BtnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExport.Click
 
        'nécessite "Imports System.Data.OleDb"
        Dim Connexion As OleDbConnection = New OleDbConnection
        Dim Commande As New OleDbCommand()
        Dim Provider As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        Dim Fichier As String = "D:\MaBase.mdb"
        Dim SQL As String
 
        Try
 
            Connexion.ConnectionString = Provider & Fichier
            Connexion.Open()
 
            SQL = "UPDATE MaTable SET Champ1 = '" & TextBox1.Text & _
                  "', Champ2 = '" & TextBox2.Text & _
                  "', Champ3 = '" & TextBox3.Text & _
                  "', Champ4 = '" & TextBox4.Text & "';"
 
            Commande = Connexion.CreateCommand
            Commande.CommandText = SQL
 
            'mise à jour des données
            Commande.ExecuteNonQuery()
 
        Catch ex As Exception
 
        Finally
 
            Connexion.Close()
            Connexion = Nothing
 
        End Try
 
    End Sub

Bonne journée.

07/11/2010, 11h33
grominet1

Vraiment trop cool

Bonjour Theze !

Un super grand merci à toi, je viens de testé le code il à fonctionné du premier coup !
J'ai passé tellement de temps à chercher un code qui fonctionne que j'étais à 2 doigt de tous laissé tombé !

Mille merci à toi , je te souhaite une bonne continuation , et à bientôt peut-être !