exporter xml tous en ecrasant l'ancien sauvgarde

Lone-wolf

XLDnaute Barbatruc

• 8 Janvier 2017

• #2

Bonsoir Nadia. 🙂

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

 

Vote positif 0 Vote négatif

nadia_42

XLDnaute Nouveau

• 9 Janvier 2017

• #3

Bonjour a vous aussi 🙂

Lone-wolf à dit:

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

Regarde la pièce jointe 980651

Cliquez pour agrandir...

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 😀

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Janvier 2017

• #4

Re

Ajoute ceci en fin de macro.

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

 

Vote positif 0 Vote négatif

nadia_42

XLDnaute Nouveau

• 9 Janvier 2017

• #5

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 😀

 

Pièces jointes

• 2017-01-09_122352.jpg

  90.6 KB · Affichages: 82

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 9 Janvier 2017

• #6

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: 9 Janvier 2017

Vote positif 0 Vote négatif

nadia_42

XLDnaute Nouveau

• 9 Janvier 2017

• #7

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

 

Vote positif 0 Vote négatif

nadia_42

XLDnaute Nouveau

• 9 Janvier 2017

• #8

😎 😀 Résolu 🙂

Merci encore commandant de bord Lone-Wolf 😎

 

Vote positif 0 Vote négatif