Copier Cellules excel et coller par ajout dans une table access

Version imprimable

Bonjour,

je souhaite créer du code VBA sous access afin de copier une plage de cellule d'un fichier excel et le coller par ajout dans une table prédéfinit sous access.

manuellement cela marche mais vu que c'est un traitement quotien je souhaite l'automatiser pour cela j'ai commencé par ce code mais il me manque des choses que je n'arrive pas à les faires
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 Private Sub Commande21_Click() On Error GoTo Err_Commande21_Click Dim MaBase As DAO.Database Dim Matable As DAO.Recordset Call OpenFile("S:\") CheminFile = Dialogue.lpstrFile 'Défini le nom de votre fichier Excel MonFichier = Dir(CheminFile) '"nomdevotrefichier.xls" 'Ouvre l'application Excel Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la Set MaBase = CurrentDb() Set Matable = MaBase.OpenRecordset("tbl_Transmis") 'Ouvre MonFichier MonXL.Workbooks.Open FileName:=CheminFile Matable![T3SE- identabonne] = MonXL.Range("B3:B194").Value Exit_Commande21_Click: Exit Sub Err_Commande21_Click: MsgBox Err.Description Resume Exit_Commande21_Click End Sub
je veux que se code me permet de copier les cellules B3:F & fin du fichier et les coller par ajout dans la table Tbl_transmis

merci d'avance

Voici une proposition de code, à adapter:

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
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open(cheminVersTonFichier)
Set oWSht = oWkb.Worksheets(1) 'ouvre le premier onglet
 
'Désactive les messages lors de l'ajout
DoCmd.SetWarnings False
 
'Cherche la dernière ligne de la colonne B
Dim derLigne As Long
derLigne = oWSht.Range("B65536").End(xlUp).Row
 
Dim i As Integer
for i=3 to derLigne
     'Penser à retirer les simples guillemets ' ' s'il s'agit d'un Entier à insérer :
     DoCmd.RunSQL "INSERT INTO tbl_Transmis(T3SE- identabonne) VALUES('" & oWSht.Cells(2,i).Value & "')"
next i
 
DoCmd.SetWarnings True
oWkb.Close savechanges:=False
oApp.Quit
Set oApp = Nothing
Set oWkb = Nothing
Set oWSht = Nothing

La fonction ci dessus effectue une boucle de 3 à derLigne et insert dans ta table la valeur de la deuxième colonne, ième ligne, à chaque itération.

21/04/2011, 15h50
ninikosim

salut,

j'ai tester mais au niveau des déclaration il me renvoi une erreur:

Citation:

Type défini par l'utilisateur non définit

je pense qu'il faut que j'active la reference
Pourriez vous me dire c'est quoi le nom de la réference sous acces pour utiliser excel.

j'ai un souci,j'arrive à recuprer les variables mais au niveau de ma requête elle prend pas en compte les variable déja défini et me demande de les saisir à la main

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
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
Dim derLigne As Long
Dim i As Long
Dim CheminFile As String
Dim mavar1 As String, mavar2 As String, mavar3 As Long, mavar4 As String, mavar5 As Date
 
 
Call OpenFile("S:\")
CheminFile = Dialogue.lpstrFile
 
Set oApp = CreateObject("Excel.Application")
Set oWkb = oApp.Workbooks.Open(CheminFile)
Set oWSht = oWkb.Worksheets(1) 'ouvre le premier onglet
 
'Désactive les messages lors de l'ajout
DoCmd.SetWarnings False
 
'Cherche la dernière ligne de la colonne B
derLigne = oWSht.Range("B65536").End(xlUp).Row
 
For i = 3 To derLigne
mavar1 = oWSht.Cells(i, 2).Value
mavar2 = oWSht.Cells(i, 3).Value
mavar2 = SupprimeEsp(mavar2)
mavar3 = oWSht.Cells(i, 4).Value
mavar4 = oWSht.Cells(i, 5).Value
mavar5 = oWSht.Cells(i, 6).Value
DoCmd.RunSQL "INSERT INTO tbl_Rib_Transmis([T3SE- identabonne],[T3SE- argument],[EN-N],[T3SE- code],[T3SE- date creation service])VALUES(mavar1, mavar2,mavar3,mavar4,mavar5)"
 
Next i
 
DoCmd.SetWarnings True
oWkb.Close savechanges:=False
oApp.Quit
Set oApp = Nothing
Set oWkb = Nothing
Set oWSht = Nothing

quelqu'un pourrai me dire pourquoi?

26/04/2011, 13h29
User

Salut,

Il faut mettre les noms des variables à l'extérieur :

Code:

DoCmd.RunSQL "INSERT INTO tbl_Rib_Transmis([T3SE- identabonne],[T3SE- argument],[EN-N],[T3SE- code],[T3SE- date creation service])VALUES('" & mavar1 & "','" & mavar2 & "','" & mavar3 & "','" & mavar4 & "',#" & Format$(mavar5, "mm/dd/yyyy") &"#)"

A+