Discussion :

[abertaud]

Bonjour,

Je parviens facilement à importer un fichier XML dont le modèle est un schéma XSD, en faisant la manip à la main.

Comment puis-je faire pour pouvoir l'automatiser ?

Par exemple, importer tous les matins un fichier XML dans ma base de manière automatique ?

D'avance merci

[abertaud]

J'ai pu créer une macro exécutant le code suivant :

Code :

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

1
2
3
4
5
 
Public Function importXMLautomatique(ByRef parametre As String)
    Application.ImportXML _
        DataSource:=parametre
End Function

Ca me permet de réaliser l'import du fichier qui m'interesse.
Par contre, j'aimerais que toute les données déjà présentes dans la base soient écrasées. Or pour le moment, mon importation re-crée toutes les tables et ma base est donc pleine de doublons (par exemple, les tables toto et toto1).
Il faudrait en fait que je puisse réinitialiser ma base, mais je ne trouve pas l'instruction qui le permet...

[abertaud]

Voici un script VB qui, grosso modo:
- ouvre Access
- crée une base de données (mbd) avec un nom précis, en prenant soin d'archiver la précédente, si elle existe déjà.
- importe un fichier XML dans cette base
- cloture tout

Reste plus qu'à automatiser l'exécution pour répondre entièrement à mes besoins. Je poste le code ci-dessous, des fois qu'il serve un jour à quelqu'un.

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
 
    'Déclaration des variables pour access et pour la base de données qui sera créée
    Dim oAccess, oDb, fso
    'creation de l'objet Microsoft Access
    Set oAccess = CreateObject("Access.application")
    'laisser Access invisible
    oAccess.Visible = False
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    'suppression de l'ancienne base si elle existe
    If fso.FileExists(repFic & nomBase) Then
        Dim fichierASupprimer
        Set fichierASupprimer = fso.GetFile(repFic & nomBase)
        'copie dans le repertoire de backup
        fichierASupprimer.Copy (repFic & getNomBaseSauvegarde)
        'suppression
        fichierASupprimer.Delete
        Set fichierASupprimer = Nothing
    End If
    Set fso = Nothing
    'création d'une nouvelle base de données Access
    oAccess.newCurrentDatabase (repFic & nomBase)
    'ouverture de la base de données fraichement créée
    Set oDb = oAccess.CurrentDB()
    'Lancement de la méthode d'importation du fichier XML
    oAccess.ImportXML(fichierImport)
    'Fermeture de la base de données
    oAccess.CloseCurrentDatabase
    'Fermeture d'Access
    oAccess.Quit
    'Nettoyage des variables instanciées
    Set oDb = Nothing
    Set oAccess = Nothing
End Sub