Discussion :

[Cece06]

Bonjour, je vous énumère mon problème :

J'ai une grosse base ACCESS avec plusieurs colonnes dont deux qui m'interesse particulèrement, MAGASIN et FABRICANT.

J'ai des anciennes feuilles Excel qui m'ont aidé à créer cette table ACCESS.
Chaque fichiers Excel a le nom d'un magasin et dans chaque fichier il y a différentes feuilles au nom du fabricant.

Il faut que pour chaque magasin, je renvoi toute ma ligne ACCESS avec les différents attributs dans chaque ancien fichiers qui lui correspond classé par fabricants.
C'est à dire que dans l'onglet ESSILOR par exemple, j'ai toute la ligne de ma table ACCESS où il y avait comme fabricant ESSILOR et que dans l'onglet SEIKO, j'ai toute la ligne de ma table ACCESS où il y avait comme fabricant SEIKO.

J'ai une idée d'un code VBA EXCEL, sur la manière de procéder mais je n'arrive pas à l'écrire en VBA ACCESS...

[minot83]

Bonsoir,
tu peux traiter cela dans Access, par simple requête.
Il faut que tu attaches tes fichiers Excel dans ta base de données, et que tu les alimentes par requête ajout.

Cordialement

[Cece06]

C'est bon, j'ai trouvé comment faire.

Je vais procéder par l'inverse.

C'est à dire partir des fichiers Excel et des feuilles pour trouver quels lignes importer de ma table access

[VincentNguon]

A partir d'Access tu peux adapter ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim XL As Workbook
Dim wks As Worksheet
 
 
Set XL = GetObject(Chemin_complet_de_ton_fichier_Excel)
Set wks = XL.Worksheets("Nom_de_la_feuille_Excel")
XL.Windows(1).Visible = True
' Je rajoute toujours cette ligne mais je sais pas vraiment si elle sert lol

Et ensuite, tu peux travailler comme si tu travaillais sous Excel.

Pour la répartition par fichier, tu n'as plus qu'à rajouter une condition sur le champ MAGASIN de ta requête pour récupérer le bon fichier Excel et une condition sur le champ FABRICANT pour récupérer la bonne feuille de ton fichier Excel.

PS : il faudra activer les bonnes références (un truc Excel library je crois)
++