EtiquetteTarget:
'On Error GoTo EtiquetteForecast
DoCmd.TransferSpreadsheet acImport, 5, "Table_import_MGV2", [CheminExcel], 0, Onglet2 & "!A3:B100"
'----------------------------------------------
Dim dbs As Database, tdf As TableDef, fld As Field
Dim idx As Index
' Retourne une variable Database pointant sur la base de données en
' cours.
Set dbs = CurrentDb
Set tdf = dbs.TableDefs!Table_import_MGV2
Set fld = tdf.CreateField("Cle", dbLong)
fld.Attributes = dbAutoIncrField
tdf.Fields.Append fld
Juste une info supplémentaire :
Qu'est ce que ce "Cle"?