Macro pour import xml dans une feuille calcul
Résolu/Fermé
philippe34130
Messages postés
28
Date d'inscription
jeudi 24 janvier 2013
Statut
Membre
Dernière intervention
3 août 2015
-
Modifié par philippe34130 le 24/01/2013 à 13:51
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015 - 24 janv. 2013 à 15:15
philippe34130 Messages postés 28 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 3 août 2015 - 24 janv. 2013 à 15:15
A voir également:
- Macro pour import xml dans une feuille calcul
- Calcul moyenne excel - Guide
- Xml viewer - Télécharger - Édition & Programmation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Comment supprimer une feuille sur word - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 751
Modifié par pijaku le 24/01/2013 à 15:04
Modifié par pijaku le 24/01/2013 à 15:04
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
philippe34130
Messages postés
28
Date d'inscription
jeudi 24 janvier 2013
Statut
Membre
Dernière intervention
3 août 2015
24 janv. 2013 à 15:15
24 janv. 2013 à 15:15
Bonjour
Super ca fonctionne bien !!!
Merci beaucoup
Super ca fonctionne bien !!!
Merci beaucoup
24 janv. 2013 à 15:09
Sub ImporterXml() Dim Fichier As String Fichier = Application.GetOpenFilename ActiveWorkbook.XmlMaps("ActarisEasyRoutes_Mappage").Import URL:= Fichier End Sub