Discussion :

[gandalf20000000]

Bonjour,

J'ai besoin de réaliser un code sous access (ou Excel), mais je ne suis pas un grand expert du VBA. Merci de signaler si vous pouvez m'aider (ou si c'est impossible )


Je dispose d'une base Acess "COLLECTION" avec une table "BASE ARTICLES"

J'ai crée cette base article à partir d'une fichier Excel (Protégé contre l'écriture, donc je ne peut pas le modifier!)

Ce fichier excel est mis à jour tous les jours de la facon suivante :

nom du fichier : ARTICLES + date du jour

exemple :

Articles (03042009).xls
Articles (04042009).xls
Articles (05042009).xls

etc..

(note : les articles contenus dans ce fichier varient de 1 ou 2 ligne par jour sur environ 5000)

J'aimerais savoir comment metre à jour ma table "BASE ARTICLES" automatiquement chaque jour à partir du fichier excel article du jour.


Pour l'instant, j'ai déja crée un Batch et une tache planifier Windows qui lance la base Access (pour une autre mise à jour), je pensais donc rajouter du code à ce code VB

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Compare Database
 
 Function traitement_bdd()
 
    'Déclaration des variables de connexion a Excel
    Dim appexcel As Excel.Application
    Dim wbexcel As Excel.WorkBook
    'Lien avec le fichier
    Set appexcel = CreateObject("Excel.Application")
    Set wbexcel = appexcel.Workbooks.Open("C:\TX DET.xls")
 
    'Sélection de la feuille
    appexcel.Sheets("EXPORT").Select
    'Suppression des données
    appexcel.Sheets("EXPORT").Range("A5:AP1000").ClearContents
    'Sauvegarde
    appexcel.ActiveWorkbook.Save
    'Quittage
    appexcel.Quit
 
    'Suppressionage des variables
    Set appexcel = Nothing
    Set wbexcel = Nothing
 
    'Executage de la macro
    DoCmd.RunMacro "03 QUOTIDIENTAUXDETENTION"
 
 
 
End Function
 
 
Function ouverture_bdd()
 
    If Command = "demarage auto" Then
 
        traitement_bdd
 
    End If
 
End Function

merci d'avance pour votre aide

[Jean-Philippe André]

salut,
à toute fin utile, le tutorial sur les taches planifiées entre Access et batch.

L'idée pour toi maintenant est de lier une table, c'est bien cela ?

si tu connais la nomenclature du fichier excel généré, tu peux relier une nouvelle table selon le nom du fichier que tu sais récupérer, non ?