XL 2019 Faire activer le bouton Exporter du Développeur pour export en xml

  • Initiateur de la discussion Initiateur de la discussion Fidmo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Fidmo

XLDnaute Occasionnel
Bonsoir à toutes & à tous.
Je suis un comptable et suis novice en excel pour activer le bouton export du Développeur de la barre des tâches pour exporter mon dossier xlsm en xml. J'ai mis mon fichier en PJ.
Un grand merci pour toute aide de nos experts et toutes bonnes âmes.
Fidmo
 

Pièces jointes

Bonjour Fidmo,

Comptable Ok, mais vous devriez connaitre un minimum Excel 🤔

Menu Fichier -> Enregistrer sous
1720758632042.png


VB:
' 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

Bonne journée 😜
 
Bonjour Fidmo,

Comptable Ok, mais vous devriez connaitre un minimum Excel 🤔

Menu Fichier -> Enregistrer sous
Regarde la pièce jointe 1200432

VB:
' 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

Bonne journée 😜
Bonjour Cher wDog66,
Merci beaucoup pour votre aide et savoir. Je vais essayer de faire ce que vous m'avez dis et je reviens à vous.
Et très bonne journée également.
Fidmo
 
Re,

Et bien non si vous verrouillez votre VBA 🙄
1720817832779.png


Sinon, peut-être comme ceci 🤔
VB:
Sub EnregistrementXML()
  ActiveWorkbook.SaveAs Filename:="C:\Mon\Dossier\Fidmo-(2024).xml", _
        FileFormat:=xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
762
Retour