Macro pour import xml dans une feuille calcul
Résolu
philippe34130
Messages postés
28
Date d'inscription
Statut
Membre
Dernière intervention
-
philippe34130 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
philippe34130 Messages postés 28 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Macro pour import xml dans une feuille calcul
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Xml download - Télécharger - Édition & Programmation
- Calcul moyenne excel - Guide
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
2 réponses
Bonjour,
Une possibilité :
Cordialement,
Franck P
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
Sub ImporterXml() Dim Fichier As String Fichier = Application.GetOpenFilename ActiveWorkbook.XmlMaps("ActarisEasyRoutes_Mappage").Import URL:= Fichier End Sub