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