Discussion :

[samchich]

Bonsoir a tous

Comment adapter le champ => ID COUNTER CONSTRAINT PrimaryKey PRIMARY KEY
a ce code qui créer une table access depuis un classeur excel
merci d'avance
Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Const Fichier$ = "C:\Users\chich\Documents\Base.accdb"
 
'Activer la référence Microsoft Access 15.0 Object Library
Sub Insertion_Donnees()
Dim acc As New Access.Application
 
acc.opencurrentdatabase Fichier                         'Table Access"                                           'Plage du tableau Excel
acc.DoCmd.TransferSpreadsheet acImport, 8, "CLIENTS", "Tables Access.xlsm", True, "A1:L22"
acc.closecurrentdatabase
Set acc = Nothing
End Sub

[78chris]

Bonjour à tous

Multipost du demandeur à qui on a

• déjà expliqué en long en large et en travers que basculer une liste Excel comme table Access ne fait que créer une base pourrie ou pourrir une base existante
• déjà proposé des codes qui créent proprement une structure avec clé primaire, champs typés et de taille définie...

mais on a perdu notre temps... Donc juste pour vous éviter de perdre le votre...

A noter que le demandeur souhaite une clé mais aussi autoriser les doublons...