Bonjour j’aurai besoin d’aide :
pour transférer un feuille excel automatiquement vers ma table access avec VBA. Les champs de ma table access sont déjà crées.
1ère solution : renommer mes champs excel automatiquement depuis access avant l'import car manuellement (caractère trop long et pas facile à gérer car plus de 50 champs soit 50 colonnes)
Point bloquant : mon code VBA génère un message d’erreur et bloque la procédure pour renommer mes champs de mon fichier excel avant import(voir ci-dessous) :
2nd solution : comment importer depuis la ligne 2 du fichier excel vers ma table déjà existante ? colonne 1 excel champ 1 transfert vers champs 1 access etc…
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub Init() Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\export_10.xls") Set xlSheet = xlBook.Worksheets("ExportAAP") With xlSheet .Cells.Replace What:="NUM" & Chr(10) & "Numéro dos", Replacement:="NUM", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False .Cells.Replace What:="NUM2" & Chr(10) & "Numéro réf", Replacement:="NUM2", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End With xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub
Merci pour votre aide
Partager