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?:mad:

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 :D
 

Pièces jointes

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

Lone-wolf

XLDnaute Barbatruc
Bonsoir Nadia. :)

En ayant le dossier vide j'ai ce fichier qui est créé.

resultat.gif
 

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.:D

note : ma version d'excel est 2003