Sollicite aide pour terminer un code pour ouvrir un fichier xml

Question

Bonsoir,
Je voudrais ouvrir un fichier xml et j'ai le bout de code ci dessous (récupéré par ci par la), mais je ne sais pas le terminer, j'utilise Acces  mais pas VBA.
Quelqu'un pourrait il m'aider?
PrivateSub Commande35_Click()
Dim i AsLong
Dim caract AsString * 1
Dim filebox As OPENFILENAME
Dim fname AsString
Dim result AsLong
With filebox
        .lStructSize = Len(filebox)
        .hInstance = 0
        .lpstrFilter = "Fichier *.SGM ou *.TMP" & vbNullChar & "*.sgm" & vbNullChar & _
"Fichier *.XML" & vbNullChar & "*.xml" & vbNullChar & _
"Tout fichier (*.*)" & vbNullChar & "*.*" & vbNullChar & 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
EndWith
result = GetOpenFileName(filebox)
If result = FalseThen
     MsgBox "Pas de fichier seléctionné"
EndIf

?

EndSub

Merci à tous par avance

cs_Jack · Answer

Salut
Bah si, tu utilises du VBA : Si c'est du code issu de Access (ce que tu nous a copié), c'est du VBA, non ?
VBA : Visual Basic for Applications
--> Catégorie de la question modifiée

cs_nomades · Answer

Bonjour et merci,
Oui c'est du VBA access (version ACCCESS 2003).
J'ai récupéré ce bout de code un peu partout il fonctionne correctement jusqu'a la selection du fichier, mais après evidement, je ne sais pas quoi mettre entre End if et End sub, pour que le fcihier xml, soit convertit en table comme avec la fonction "Données externes", "Importer", etc..
Je pensai que quelqu'un (un pro du VBA) pouvait avoir ça dans ses bagages?
Merci
cordialement

ccgousset · Answer

dans la chaine result tu as le nom de ton fichier selectionné avec un caractere null au bout (vbnullstring)

If result = False Then   
  MsgBox "Pas de fichier seléctionné"
else ('si pas vide)
result=left(result,len(result)-1)
'tu peux afficher ton choix
label1.caption=result
'result ce le chemin le nom de 
' fichier et lextension
end if
end sub

Sollicite aide pour terminer un code pour ouvrir un fichier xml

3 réponses

Votre réponse

Discussions similaires