' ChatGPT
Sub EnregistrerClasseurEnXML()
Dim chemin As String
Dim nomFichier As String
Dim cheminComplet As String
' Spécifiez le chemin où vous souhaitez enregistrer le fichier XML
chemin = "C:\Votre\Chemin\"
' Spécifiez le nom du fichier sans extension
nomFichier = "NomDuFichier"
' Combinez le chemin et le nom du fichier pour obtenir le chemin complet du fichier
cheminComplet = chemin & nomFichier & ".xml"
' Enregistrez le classeur actif au format XML
ActiveWorkbook.SaveAs Filename:=cheminComplet, FileFormat:=xlXMLSpreadsheet
' Message de confirmation
MsgBox "Classeur enregistré en tant que XML avec succès!", vbInformation
End Sub