Discussion :

[Beamish]

Bonjour à tous,

une question qui a surement déjà été posée sur des forums mais après avoir effectué quelques recherches les réponses qui s'y trouvent ne me conviennent pas (ou plus certainement je n'y suis pas arrivé... ) aussi je me permet de la reposer...

J'ai un ensemble de fichier excel (39 en l'occurence) nommés "mod_12.xls" qui contiennent une feuille nommée également "mod_12" répartis dans des répertoires allant de 01 à 39.
Cette feuille contient des données dans une zone A1:Z5. L'ensemble des fichiers excel sont formatés de la même manière

Je souhaiterais "simplement" pouvoir importer l'ensemble de ces fichiers dans une seule table access.

merci par avance de votre aide !

[cafeine]

Hello,

je te recommande d'utiliser dao pour lire tes fichiers de manière relativement rapide.

1- une fonction qui va faire une boucle sur tous tes fichiers
et qui fera

Code :

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

loadDao varCheminFichier, "mod12#A1:Z5"

2- une fonction qui va se connecter à chaque fichier
exemple simplifié

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
sub LoadDao(ByVal sFic As String, ByVal DataRange As String)
    ' sFic est la variable chemin du fichier
    ' ouverture du fichier par DAO
    Set dbEng = CreateObject("DAO.DBEngine.36")
    Set db = dbEng.Workspaces(0).OpenDatabase(sFic, _
                              False, _
                              False, _
                              "Excel 8.0;HDR=NO;")
            sSQL = "SELECT * FROM " & DataRange
            Set rec = db.OpenRecordset(sSQL, 4)
            ' mettre ici un code pour ajouter l'enregistrement dans une table
            ' exemple SQL INSERT INTO / recordset
            Set rec = Nothing
    Set dbEng = Nothing
    Set db = Nothing
End Sub

[Beamish]

ok merci pour la réponse

j'avais bien essayé d'inporter les données excel via un lien odbc mais dans ce cas je devais le faire fichier par fichier...

par contre je ne connais pas dao...

[Beamish]

peux tu m'expliquer comment tu utilises cette fonction...

[cafeine]

dao est un moyen d'accès aux données principalement Access mais aussi fichier texte ou excel.
je t'invite à faire un test sur un fichier excel que tu connais

Code :

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

loadDao "C:\temp\tonfichier.xls", "Feuil1$A1:B20"

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
Sub LoadDao(ByVal sFic As String, ByVal DataRange As String)
    ' sFic est la variable chemin du fichier
    ' ouverture du fichier par DAO
    Set dbEng = CreateObject("DAO.DBEngine.36")
    Set db = dbEng.Workspaces(0).OpenDatabase(sFic, _
                              False, _
                              False, _
                              "Excel 8.0;HDR=NO;")
            sSQL = "SELECT * FROM " & DataRange
            Set rec = db.OpenRecordset(sSQL, 4)
            ' mettre ici un code pour ajouter l'enregistrement dans une table
            ' exemple SQL INSERT INTO / recordset
            ' ici nous faisons un simple affichage en fenêtre exécution
            do while not(rec.eof)
               for i = 0 to rec.Fields.Count - 1
                  str = str & ";" & rec.fields(i)
               next i
               debug.print mid(str,2)
               rec.movenext
            loop
 
            Set rec = Nothing
    Set dbEng = Nothing
    Set db = Nothing
End Sub