Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

exporter xml tous en ecrasant l'ancien sauvgarde

nadia_42

XLDnaute Nouveau
Bonjour tous le monde

j'ai un autre problème pourquoi ce code de macro ne marche pas?

Application.DisplayAlerts = False
ActiveWorkbook.XmlMaps("contact_Mappage").Export URL:= _
"D:\Nouveau dossier\France 1973.xml"
Application.DisplayAlerts = True

en attendant vos réponses merci d'avance
 

Pièces jointes

  • xml-test.xls
    39.5 KB · Affichages: 66

Lone-wolf

XLDnaute Barbatruc
Dans le module. Et quelle est ta version Excel???

VB:
Public Const Chemin As String = "C:\Nouveau dossier\"
Public Nom As String

Sub Creer()
    Application.DisplayAlerts = False
    With Sheets(1)
               Nom = .Range("a1") & " " & .Range("c1") & ".xml"
    End With
    ActiveWorkbook.XmlMaps("contact_Mappage").Export URL:= _
                                                     "C:\Nouveau dossier\" & Nom
End Sub

Sub Supprimer() 
With Sheets(1)
           Nom = .Range("a1") & " " & .Range("c1") & ".xml"
End With
    Rep = Dir(Chemin & Nom)
    If Rep <> "" Then Kill Chemin & Rep
End Sub
 
Dernière édition:

nadia_42

XLDnaute Nouveau
merci pour ton aide

mais ici je vois qu'il y a deux macro la 1er créer et la 2eme supprimer

comment faire pour les concaténer ensemble ??? pour qu'en avoir un seul macro pour un seul bouton
et merci une 2eme fois.

note : ma version d'excel est 2003
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…