Bonjour
j aimerai enregistrer (envoyer ) des donnees excel dans des tables Access .
Avec une seule table access pas de probleme , j´arrive a envoye des donness excel vers access.
Mais mon problem est que je veux enregistrer ces donnees excel dans differente tables access (2 tables).Ce que je n´arrive pas a faire..
Quelqu´un aura t-il une idee .. merci

voivi le code pour une seule table
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
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
71
 
 
Private Sub AjoutDansTableAccess(NomTable As String)
 
     Dim ConnectBD As Object
     Dim Rs As Object
     Dim AppExcel As Object
     Dim Classeur As Object
     Dim Feuille As Object
     Dim I As Integer
     Dim j As Integer
 
     MyPath = ActiveWorkbook.Path
 
     Application.StatusBar = "Ouverture du classeur Excel contenant les données à exporter ..."
 
     ' Déclaration de référence d'objet à une variable
 
     Set AppExcel = CreateObject("Excel.Application")
 
     Set Classeur = AppExcel.Workbooks.Open(MyPath & "\Prototype mafeuilleexcel.xls")
 
     Set Feuille = Classeur.Worksheets("mafeuill1")   'Adapter le nom de la feuille
 
     'Connection à la base Accesse
 
     ConnecterBase ConnectBD, Rs
 
     'Inscrit les valeurs de la feuille Excel dans la table ListeClients
 
With Rs
 
          .CursorType = 1
 
          .LockType = 3
 
          .Open "SELECT * FROM  tab_access1 ", ConnectBD
 
 
          'Ajout des enregistrements situés à partir de
 
          ' la ligne 2 afin d'éviter les entêtes de colonnes
 
          For I = 4 To Feuille.Range("A65536").End(-4162).Row
               .AddNew
               .Fields("nom") = Feuille.Cells(I, 3)
 
               .Fields("prenom") = Feuille.Cells(I, 3)
 
               .fields("ville") = Feuille.Cells(9, 12)
 
               .Fields("Team ") = Feuille.Cells(9, 3)
                        .Update
                            Next I
End With
 
     Application.StatusBar = "cool"
 
     ConnectBD.Close
     Classeur.Close
 
     AppExcel.Quit
 
     ' Met fin à l'association entre la variable et l'objet associé
     Set AppExcel = Nothing
     Set Classeur = Nothing
     Set Feuille = Nothing
     Set ConnectBD = Nothing
     Set Rs = Nothing
end .... 
'module connecterbase...
Voila , les valeurs "nom" et "prenom" vont dans table access "tab_access1" et les valeurs "ville" et "team" vont dans une autre table "tab-access2"
ce que je n´y arrive pas ..