Importation données Excel dans DB Acess
Fermé
simon7339
Messages postés
68
Date d'inscription
lundi 10 mars 2014
Statut
Membre
Dernière intervention
10 avril 2018
-
29 juil. 2015 à 17:53
simon7339 Messages postés 68 Date d'inscription lundi 10 mars 2014 Statut Membre Dernière intervention 10 avril 2018 - 30 juil. 2015 à 11:38
simon7339 Messages postés 68 Date d'inscription lundi 10 mars 2014 Statut Membre Dernière intervention 10 avril 2018 - 30 juil. 2015 à 11:38
A voir également:
- Importation données Excel dans DB Acess
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Tableau croisé dynamique excel - Guide
1 réponse
simon7339
Messages postés
68
Date d'inscription
lundi 10 mars 2014
Statut
Membre
Dernière intervention
10 avril 2018
1
30 juil. 2015 à 11:38
30 juil. 2015 à 11:38
Bonjour à tous,
Grace à un internaute j'ai récupérer ce code qui fonctionne mais je n'arrive pas à récupérer la valeur de mes cellules pour pouvoir les insérer dans la DB.
Est-ce que un de vous à une idée du problème.
Désolé je découvre Access je rame un peu ;)
Grace à un internaute j'ai récupérer ce code qui fonctionne mais je n'arrive pas à récupérer la valeur de mes cellules pour pouvoir les insérer dans la DB.
Est-ce que un de vous à une idée du problème.
Désolé je découvre Access je rame un peu ;)
Option Compare Database
Private Sub Commande1_Click()
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
Dim Name As String
Dim Nom As String
Dim Age As String
Dim PostCode As String
Dim Ville As String
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("C:\Users\sinicola\Desktop\Test Import Access.xlsx")
Set oWSht = oWkb.Worksheets("Feuil1")
i = 1
DoCmd.SetWarnings False
oWSht.Range("A1").Value = Name
oWSht.Range("B3").Value = Nom
oWSht.Range("B4").Value = Age
oWSht.Range("D4").Value = PostCode
oWSht.Range("F4").Value = Ville
While i < 600
If DCount("*", "Simon", "Champ1 LIKE '" & oWSht.Cells(i, 1) & "'") = 0 Then
cSQL = "insert into [Simon] ( [champ1], [champ2], [champ3], [champ4], [champ5] ) values (" & Chr(34) & Name & Chr(34) & ", " & Chr(34) & Nom & Chr(34) & "," & Chr(34) & Age & Chr(34) & "," & Chr(34) & PostCode & Chr(34) & "," & Chr(34) & Ville & Chr(34) & ");"
DoCmd.RunSQL cSQL
End If
i = i + 1
Wend
DoCmd.SetWarnings True
Set oWSht = Nothing
Set oWbk = Nothing
Set oApp = Nothing
End Sub