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

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

A voir également:

Macro pour import xml dans une feuille calcul
Xml viewer - Télécharger - Édition & Programmation
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Calcul moyenne excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 24/01/2013 à 15:04

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
24 janv. 2013 à 15:09

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

Réponse 2 / 2

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

Bonjour

Super ca fonctionne bien !!!
Merci beaucoup

Discussions similaires

exo pix

Reporter valeur sur autre feuille avec critere

Convertir une note sur 20 .

Discussions similaires

Newsletters