Bonsoir,
je cherche à ouvrir les données ci-dessous (Le fichier complet fait ~700 ko.) dans une table Access autre qu'avec les commandes "données externes", "Importer".En fait j'aimerais automatiser cette tache (ex bouton click) en ouvrant une boite de dialogue, dans lequel on choisi le fichier xml, et on le converti en une table.
Il y a après <IDENT> d'autres noeuds, mais qui ne me sont pas nécessaire seul le noeud ci dessous <IDENT> m'intéresse.
J'ai la fonction qui permet l'ouverture de la boite de dialogue et la sélection du fichier (cela fonctionne correctement) code ci dessous.
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 <LIM DATE="20080226"> <MOTEUR> <INFO> <IDENT> <SER>WM000147</SER> <FAB>F0301</FAB> <ART>307-797-004-0</ART> <NNO>2840145364484</NNO> <DENOFR>MOTEUR ASSEMBLE</DENOFR> <DENOGB>TURBOJET ENGINE</DENOGB> <VERSION>A02</VERSION> <DATLIV>20060331</DATLIV> <DATMS>19000101</DATMS> <SEREQ>0</SEREQ> <CTRIND>PHILIPPE FRIC</CTRIND> <CTRCLI>BAR FREDERIC</CTRCLI> <MARCHE>99-92049</MARCHE> <DATMARCH>19991124</DATMARCH> <CSN>72000001 000</CSN> <ISN>00C</ISN> <VERLMI>0065A</VERLMI>
Mon souci, quoi mettre entre End If et End Sub pour ouvrir un xml
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 Dim i As Long Dim caract As String * 1 Dim filebox As OPENFILENAME Dim fname As String Dim result As Long With filebox .lStructSize = Len(filebox) .hInstance = 0 .lpstrFilter = "fichier (*.XML)" & vbNullChar & "*.xml" & vbNullChar .nMaxCustomFilter = 0 .nFilterIndex = 1 .lpstrFile = Space(256) & vbNullChar .nMaxFile = Len(.lpstrFile) .lpstrFileTitle = Space(256) & vbNullChar .nMaxFileTitle = Len(.lpstrFileTitle) .lpstrInitialDir = "A:\" & vbNullChar .lpstrTitle = "Selectionner le fichier à visualiser" & vbNullChar .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY .nFileOffset = 0 .nFileExtension = 0 .lCustData = 0 .lpfnHook = 0 End With result = GetOpenFileName(filebox) If result <> "" Then msgbox "Pas de fichier sélectionner" End If ? End Sub
Une aide serait la bienvenue
Merci par avance
Partager