Exporter le contenu de chaque feuille dans un fichier

Bonjour,

j'ai plusieurs feuilles "n" avec du contenu en colonne A.

Est il possible de créer plusieurs fichiers en fonction du nombre de feuilles avec chacune le contenu de la colonne A et de sa feuille, avec l'extension ".xml".

Merci pour votre aide

Salut,

Le code ci-dessous devrait répondre à ton attente.

Option Explicit

Sub Créer_fichiers()
Dim i As Byte, Nom_du_fichier As String

Application.ScreenUpdating = False

For i = 1 To Sheets.Count
    Nom_du_fichier = Sheets(i).Name
    Sheets(i).Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Nom_du_fichier & ".xlsx"
    ActiveWorkbook.Close
Next i

End Sub

Cordialement.

Merci pour cette réponse,

la fonctionnalité est là (enregistrer en xml), par contre j'ai un problème d'encodage de caractères

Tu peux m'en dire plus ?

En fait je travaille sur des fichiers xml mais dans excel.

Lorsque je copie le contenu d'une colonne Excel dans un xml déjà existant, je n'ai aucun souci. Par contre, si j'enregistre un excel en xml, j'ai des pb d'encodage ce qui est normal.

Voici les fichiers tel qu'ils devraient être en sortie.

Merci

Oh, la la,

Je n'avais pas vu qu'il s'agissait d'un format spécial. J'ai cru que tu avais tapé un peu vite l'extension mais qu'il s'agissait d'une extension courante d'Excel.

Alors je dois te dire que je ne peux pas vraiment t'aider plus. Il vaudrait probablement mieux que tu indiques ton fil comme résolu et que tu en ouvres un autre.

Vraiment désolé

Peut-être à une prochaine fois.