Discussion :

[frdek]

Bonjour,

Je souhaiterais importer directement 150 fichiers XML provenant d'un même dossier dans Access 2003 sans faire systématiquement un import pour chaque fichier individuellement (ce qui est très long et source d'erreurs évidemment..)

J'ai reçu ces fichiers XML et je ne sais pas les modifier car n'ayant
pas d'éditeur/programme spécifique (il m'est juste possible de les ouvrir via internet explorer)

Comment pourrais-je faire celà?

Merci d'avance pour vos conseils!

François

[Frank]

Bonjour,

va voir ceci.

[frdek]

oui, merci mais je ne vois pas vraiment comment importer plusieurs fichiers simultanément..

[Frank]

Tu fais une boucle pour importer les fichiers un à un depuis le répertoire où ils se trouvent.

[frdek]

ok, mais comment faire celà via VBA dans Access?

[Tofalu]

As tu regardé les pages sources et notamment les parcours de répertoire ?

http://access.developpez.com/sources

[Frank]

je pourrais te dire qu'une recherche sur le forum pourrait t'aider.

Mais voici le déut d'une procédure que tu peux adapter à tes besoins:

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
Public Sub JeCopieOuJeVeux()
Dim i As Integer
Dim sSQL As String, sNomFic As String, sChemin As String, sNomFeuille As String, sValCell As String
Dim ObjExcel As Excel.Application
Dim MaFeuille As Excel.Worksheet
Dim MonClasseur As Excel.Workbook
 
On Error GoTo err_JeCopieOuJeVeux
 
sChemin = "H:\DATA\Développement\Prev_ventes\sauvegarde frank"
'Définition des critères de recherche des fichiers : - Location
'                                                    - Recherche dans les sous-dossiers
'                                                    - Type de fichier
With Application.FileSearch
    .NewSearch
    .LookIn = sChemin  '"H:\DATA\Développement\Prev_ventes\sauvegarde frank"
    .SearchSubFolders = True
    '.Filename = "*"
    .FileType = msoFileTypeExcelWorkbooks
    'si on trouve des fichiers correspondant au critère
    If .Execute() > 0 Then
        MsgBox "Il y a " & .FoundFiles.Count & _
            " fichier(s) correspondant aux critères voulus.", vbInformation
        'Récupération du nom du fichier
        For i = 1 To .FoundFiles.Count
            sNomFic = .FoundFiles.Item(i)
            'MsgBox "Le fichier qui va être ouvert est " & sNomFic & " !", vbInformation
            'Instanciation de l'objet Excel
            Set ObjExcel = New Excel.Application
            'Ouverture du fichier
            ObjExcel.Workbooks.Open sNomFic, False, False, , "", "", True
            'pas de messages d'alerte
            ObjExcel.DisplayAlerts = False
            'pas de messages demandant de faire la mise à jour des liens
            ObjExcel.ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
            ObjExcel.Visible = True
            ObjExcel.DisplayAlerts = True
            Set MaFeuille = ObjExcel.ActiveWorkbook.Worksheets(1)
            For Each MaFeuille In ObjExcel.ActiveWorkbook.Worksheets

A partir de ce code, fais une recherche sur

Code :

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

Application.FileSearch

et vois comment adapter cette procédure.

[totodaniel]

Bonjour, j'aimerais savoir s'il y a eu une solution à ce problème. Je suis débutant avec access et je me vois mal importer plusieurs centaines de fichiers xml à la main. Je sais faire quelques macros avec Excel.

Mais là sans enregistreur de macros c'est un peu compliqué de trouver le nom des fonctions, car le code que tu donnes c'est à utiliser avec Excel. J'ai essayé de le modifier un peu mais sans succès. Après recherche sur le forum je n'ai pas trouvé de sujets similaires, et sur internet j'ai trouvé soit des choses très générales comme sur les pages microsoft ou des choses beaucoup trop pointues. . Je voudrais seulement importer 100 fichiers d'un coup.

Je vous remercie d'avance pour une réponse.