Bonjour voila mon probleme j'ai tapé le code suivant
Le souci c'est qu'il me redemande les valeurs de chaque champs alors que je voudrais qu'il prenne les valeurs de la 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 Sub MacroEssai() Dim Var As String Var = "Table2" DoCmd.TransferSpreadsheet acImport, , "Table2", "D:\Test\Essai.xls", 0 Sql = " INSERT INTO Test (année, OPPO, MPE, MPF, MRE, MRF, M__ ) SELECT année, OPPO, MPE, MPF, MRE, MRF, M__ FROM Table2 ;" Debug.Print Sql DoCmd.RunSQL Sql End Sub
Partager