Besoin explication code vba
Résolu
starnours
-
amigo -
amigo -
Bonjour,
Est ce que quelqu'un serait capable de m'expliquer ce que signifie le bout de code suivant. Merci d'avance.
DoCmd.TransferSpreadsheet acImport, 5, "Table_import_MGV2", [CheminExcel], 0, Onglet2 & "!A3:B100"
Est ce que quelqu'un serait capable de m'expliquer ce que signifie le bout de code suivant. Merci d'avance.
DoCmd.TransferSpreadsheet acImport, 5, "Table_import_MGV2", [CheminExcel], 0, Onglet2 & "!A3:B100"
A voir également:
- Besoin explication code vba
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
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"?
