Macro pour import xml dans une feuille calcul
Résolu
philippe34130
Messages postés
30
Statut
Membre
-
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
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 feuille de laurier - Guide
- Comment imprimer en a5 sur une feuille a4 - 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