Besoin explication code vba
Résolu/Fermé
A voir également:
- Besoin explication code vba
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
- Code gta 4 ps4 - Guide
3 réponses
Bonjour,
Cette ligne est la transcription en langage VBA d'une macro Acces.
Cette commande importe des données depuis un classeur Excel cellules A3:B100 dans la table Table_import_MGV2.
A+.
Cette ligne est la transcription en langage VBA d'une macro Acces.
Cette commande importe des données depuis un classeur Excel cellules A3:B100 dans la table Table_import_MGV2.
A+.
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"?
'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"?
