exporter xml tous en ecrasant l'ancien sauvgarde

[nadia_42]

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

 

[Lone-wolf]

Bonsoir Nadia.

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

 

[nadia_42]

Bonjour a vous aussi

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

Regarde la pièce jointe 980651

a propos c'est pas ça le problème !!!!!

le problème est que quand je veux exporter une 2eme fois en voulant écraser la 1er sauvegarde ce code ne marche pas.

note: j'ai de problème de connexion en ce temps.
pardonnez le retard de repense.

bonne journée

 

[Lone-wolf]

Re

Ajoute ceci en fin de macro.

Rep = Dir(Chemin & "*.xml")
If Rep <> "" Then Kill Chemin & Rep

 

[nadia_42]

merci pour votre repense lone-wolf

mais ça n'a pas marché (voir photo)

tu peux me dire quelle est le probleme

et merci d'avance

 

[Lone-wolf]

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

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

 

[nadia_42]

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

 

[nadia_42]

Résolu

Merci encore commandant de bord Lone-Wolf