Importer X fichiers Csv vers 1 ACCESS

**anthooooony** · 22/08/2012, 11h44

Bonjour,

Ce sujet comporte deux logiciels, je ne sais pas si je dois le créer sur celui d'Excel ou sur Access? au besoin je le changerais de place.
Je suis sur Excel et Access 2007.

Je chercher à automatiser l'import de fichier .csv dans une table Access.

La DSI de ma société, met dans un répertoire chaque semaine un fichier de statistique.
Je souhaite faire un suivi des statistiques grâce à ces fichiers CSV.

J'ai deux problématiques pour les faire :

_ Récupérer d'un biais tous les fichiers(20) qui sont déjà présent(même nom_date du jour; mêmes colonnes)

_ Automatiser la récupération des futurs fichiers qui arriveront chaque semaines.

Auriez vous une piste pour mon problème?

En vous remerciant par avance de votre aide.

Bonne journée

Anthooooony

**Fvandermeulen** · 22/08/2012, 14h06

Salut,

Il y a plusieurs pistes, la meilleures selon moi est de faire en sorte que tes dossiers soient logiques et prévisibles en utilisant le N° de semaine par exemple.
Du genre
C:\Extraction_33\tes 20 fichiers
C:\Extraction_34\tes 20 fichiers

Dès lors tu peux définir ton chemain d'accès de manière automatique:
MyPath = "C:\Extraction_" & Format(Date, "ww") & "\"

Tu n'as plus qu'à boucler sur les fichier du répertoire (tu devrais trouver des exemple sur le forum grace au moteur de recherche)
Il faut toutefois prévoir un système de tag qui t'indique si les données on déjà été importées ou non, sans quoi c'est les doublons quasiment assuré (je parle par expérience)

Le même moteur de recherche devrait te donner des exemples pour importer tes CSV.

Voilà un début de la piste, à toi de bosser et quand tu es coincé, tu reviens...

A+

P.S. pour Access, si tu crées une requête d'ajout sur base de tables liées vers tes CSV, ce Post devrait t'inspirer:
http://www.developpez.net/forums/d96...hemin-relatif/

**anthooooony** · 22/08/2012, 15h14

Bonjour

Merci de ton retour Fvandermeulen.

J'ai avancé sur le sujet j'ai un code qui récupère tous les fichiers d'un dossier et qui les rajoutes dans une table donnée.

Est ce que tu serais comment recuperer dans une derniere colonne les trois derniers chiffres du fichier excel recuperé?
c'est pour historiser les stats.
"extract_S30"

Ci dessous le code pour ceux qui pourraient en avoir besoin.

Attention de bien rajouter les compléments

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Sub tranfertFeuilleClasseursFermes_VersAccess_V02()
'Nécessite d'activer la référence Microsoft ActiveX Data Objects x.x Library
'Nécessite d'activer la référence Microsoft ADO ext x.x for DLL and Security
'
Dim Cn As New ADODB.Connection
Dim oProdRS As New ADODB.Recordset, oRS As ADODB.Recordset
Dim oConn As ADODB.Connection
Dim j As Integer
Dim Fichier As String, Repertoire As String, Feuille As String
Dim oCat As ADOX.Catalog
 
'------------------------------------------------------
'Connection à la Base Access
Set oConn = New ADODB.Connection
oConn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source= 'C:\Documents and Settings\RC1194\Desktop\Test appli\maBase.mdb';"
 
'les données seront placés dans Table1
Set oRS = New ADODB.Recordset
oRS.Open "Select * from Table1", oConn, adOpenKeyset, adLockOptimistic
'------------------------------------------------------
 
'Boucle sur les classeurs Excel du répertoire cible
Repertoire = "C:\Documents and Settings\RC1194\Desktop\Test appli\sauvegarde\"
Fichier = Dir(Repertoire & "\*.xls")
 
Do While Fichier <> ""
    'Connection au classeur Excel
    Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Repertoire & "\" & Fichier & ";" & _
    "Extended Properties=""Excel 8.0;"""
 
 
    '-------------------------
    Set oCat = New ADOX.Catalog
    Set oCat.ActiveConnection = Cn
    'Récupére le nom de la Feuille:
       'Attention: l'index correspond à un ordre alphabétique croissant
       'et les plages de cellules nommées sont intégrées.
    Feuille = oCat.Tables(0).Name
    '-------------------------
 
 
    'requête pour extraire les données de la Feuil1
    oProdRS.Open "SELECT * FROM [" & Feuille & "]", Cn, adOpenStatic
 
    ' --- Transfert les données dans la base ---
    Do While Not (oProdRS.EOF)
        oRS.addNew
           For j = 0 To oRS.Fields.Count - 1
            oRS.Fields(j) = oProdRS.Fields(j).Value
            Next j
        oRS.Update
        oProdRS.moveNext
    Loop
    '-------------------------------------------
 
 
    Set oCat = Nothing
    oProdRS.Close
    'Fermeture de la connection au classeur Excel
    Cn.Close
Fichier = Dir
Loop
 
'oRS.Close
Set oRS = Nothing
'Fermeture de la connection Access
oConn.Close
Set oConn = Nothing
End Sub

**Fvandermeulen** · 22/08/2012, 15h26

Re,

A la volée (pas le temps de tester), je dirais pour extraire le N° de semaine:
NoWeek=left(right(Fichier,7),3)
Quoi que, avec les semaine <10 tu n'auras que 2 caractères...

Sinon, tu reprends le principe
NoWeek=Format(Date, "ww")

A priori à placer dans ta boucle d'écriture, du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'...
Do While Not (oProdRS.EOF)
        oRS.addNew
        For j = 0 To oRS.Fields.Count - 1
            oRS.Fields(j) = oProdRS.Fields(j).Value
        Next j
        oRS.Fields(oRs.Fields.count)=format(date,"ww")
        oRS.Update
        oProdRS.moveNext
    Loop
'...