Macro pour import xml dans une feuille calcul

Résolu
philippe34130 Messages postés 30 Statut Membre -  
philippe34130 Messages postés 30 Statut Membre -
Bonjour à tous

Je souhaiterai faire une macro pour importer un fichier xml dans une feuille de calcul dont le mappage est deja fait.
Lorsque j'indique le chemin tout va bien, mais je voudrai que se soit les utilisateurs qui choisissent le fichier à importer et là je bloque.

ActiveWorkbook.XmlMaps("ActarisEasyRoutes_Mappage" ).Import URL:= _
"C:\Users\Philippe\Desktop\route.xml"

Merci de votre aide

2 réponses

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Une possibilité : 
    Sub ImporterXml()  
Dim objShell As Object, objFolder As Object  
Dim Chemin As String, fichier As String  

fichier = "\route.xml" ' à adapter
    Set objShell = CreateObject("Shell.Application")  
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)  

If objFolder Is Nothing Then  
    MsgBox "Abandon opérateur", vbCritical, "Annulation"  
Else  
    Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & fichier
End If  
ActiveWorkbook.XmlMaps("ActarisEasyRoutes_Mappage").Import URL:=Chemin  
End Sub


    Cordialement,
    Franck P
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Ou en version plus simple, si l'utilisateur choisis directement le fichier et non un répertoire : 

      Sub ImporterXml()
Dim Fichier As String
Fichier = Application.GetOpenFilename
ActiveWorkbook.XmlMaps("ActarisEasyRoutes_Mappage").Import URL:= Fichier
End Sub
      0
  2. philippe34130 Messages postés 30 Statut Membre
     
    Bonjour

    Super ca fonctionne bien !!!
    Merci beaucoup
    0

Discussions similaires

exo pix
Xtyller -
Raymond PENTIER -

2 réponses
EXCEL - Calcul automatique de Fin de contrat et période d'essai
Laudme -
moimeme -

7 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses