Bonjour,
Je bloque sur la creation d'une macro simple permettant de se connecter à une BASE DE DONNEE ACCESS pour pouvoir transférer 5 colonnnes sur 90 de mon tableau excel sans biensur ecraser les donnée de la table "Articles_2009" Access.
Il s'agit des cinq colonnes suivantes à transférer :
- Numéro client (en Colonne A) => vers champ "Numéro client"
- Références produits (en Colonne B) => Vers champ "Références"
- Déscriptions (en Colonne D) => vers champ "Déscriptions"
- Barême (en Colonne AB) => vers champ "Barême"
- Prix (en Colonne AH) => Vers champ "Prix HT"
- Date début (en Colonne BB) => vers champ "Date début"
Les articles à exporter sont environs de 10 000 lignes par fichier excel, j'espere que ce rapide lors du transfert.
J'ai ce code, mais il faut que les champs de ta table access porte les meme noms que tes champs excel.
Je vous joins mes fichiers pour votre aide SVP.
Merci
Je bloque sur la creation d'une macro simple permettant de se connecter à une BASE DE DONNEE ACCESS pour pouvoir transférer 5 colonnnes sur 90 de mon tableau excel sans biensur ecraser les donnée de la table "Articles_2009" Access.
Il s'agit des cinq colonnes suivantes à transférer :
- Numéro client (en Colonne A) => vers champ "Numéro client"
- Références produits (en Colonne B) => Vers champ "Références"
- Déscriptions (en Colonne D) => vers champ "Déscriptions"
- Barême (en Colonne AB) => vers champ "Barême"
- Prix (en Colonne AH) => Vers champ "Prix HT"
- Date début (en Colonne BB) => vers champ "Date début"
Les articles à exporter sont environs de 10 000 lignes par fichier excel, j'espere que ce rapide lors du transfert.
J'ai ce code, mais il faut que les champs de ta table access porte les meme noms que tes champs excel.
Code:
Sub Export_Donnée()
'permet de controler la ligne où le fichier s'arrete
Range("A1").Select
Selection.End(xlDown).Select
Ligne = Selection.Row
'Défini ma base access et mon fichier excel
Dim MaBase As Object
Dim Fichier As String
Set MaBase = GetObject("Chemin complet de ta base access")
Fichier = ActiveWorkbook.FullName
On Error GoTo Error_Export:
MaBase.DoCmd.TransferSpreadsheet acImport, 8, "Nom de la Table Access", Fichier, True, "A1:X" & Ligne & ""'dans mon cas j'exporte de la cellule A1 à la Cellule X_Ligne
MsgBox "Exportation des données est effectuée correctement.", vbInformation, "Exportation": Exit Sub
'MaBase = Nothing
Error_Export:
MsgBox "Attention, un problème est survenu pendant l'exportation, merci de vérifier les données.", vbExclamation, "ERREUR Exportation": Exit Sub
End Sub
Je vous joins mes fichiers pour votre aide SVP.
Merci
Pièces jointes
Dernière édition: