Comment fractionner un fichier Excel en plusieurs fichiers

Question

Bonjour,

J'ai un fichier Excel (MSOffice 365-Windows 11) comprenant plusieurs onglets et je dois le fractionner en plusieurs fichiers, soit 1 onglet = 1 fichier.

Il me semblait qu'on pouvait le faire en une seule manipulation mais impossible de me souvenir comment ! Pourtant, la dernière fois c'était il y a deux ans...

Avez-vous une solution pour éviter de faire feuille après feuille svp ?

Merci d'avance et bonne matinée,

Aude.

Answer 1

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Salut Aude,

Merci d’avoir posté.

En ce qui concerne « évitez de faire feuille après feuille », je pense que vous ne voulez pas utiliser la fonction « Déplacer ou copier » pour copier chaque feuille manuellement. Si c’est le cas, pour autant que je sache, Excel n’a pas de fonctionnalité prête à l’emploi pour diviser chaque feuille en plusieurs fichiers en un seul clic. Vous avez peut-être déjà utilisé des compléments tiers pour diviser des feuilles de calcul.

J’espère que vous passerez une bonne journée.

Sincèrement

Georges| Modérateur de la communauté Microsoft

Answer 2

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Salut Aude,

Bonne journée à vous !

J’espère que vous allez bien. Merci de nous avoir contactés sur notre forum de la communauté Microsoft. Nous serons heureux de vous aider.

En ce qui concerne votre question, vous pouvez exécuter la macro VBA pour diviser chaque feuille Excel en plusieurs fichiers Excel. Les étapes sont les suivantes.

a. Assurez-vous que le classeur est enregistré à un emplacement. Ouvrez le classeur et cliquez sur l’onglet Développeur > Visual Basic.

Si vous ne voyez pas l’onglet Développeur, vous pouvez accéder à Fichier> Options> Personnaliser le ruban> dans la liste de droite, et cocher l’option Développeur.

Afficher l’onglet Développeur

b. Dans l’éditeur VBA, cliquez sur l’onglet Insertion> Module, puis copiez/collez le code VBA suivant

![](https://learn-attachment.microsoft.com/api/attachments/a2a51fdc-54ef-4113-ada4-2e52a5eeed54?platform=QnA

Sub Split_Sheet_into_ExcelFiles()

Dim FilePath As String

FilePath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each Sheet In ThisWorkbook.Sheets

Sheet.Copy

Application.ActiveWorkbook.SaveAs Filename:=FilePath & "\" & Sheet.Name & ".xlsx"

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

c. Cliquez sur le bouton Exécuter ou appuyez sur F5  pour exécuter le code. Cela divise toutes les feuilles de notre classeur d’origine en fichiers Excel individuels. Les fichiers Excel nouvellement séparés sont placés dans le même dossier que le classeur d’origine.

![Image](https://learn-attachment.microsoft.com/api/attachments/326f501d-2b58-4c16-b24a-ddf0056d181d?platform=QnA

Si vous rencontrez des problèmes après avoir essayé les étapes ci-dessus, n’hésitez pas à poster. Nous continuerons à vous aider. 😊

J’espère que vous passerez une bonne journée.

Sincèrement

Georges| Modérateur de la communauté Microsoft

Answer 3

bonjour, la semaine dernière j'ai copier votre macro. elle a très bien fonctionné. Sauf qu'aujourd'hui je n'ai plus mes excel mais simplement une feuille 1 vide.

sauriez vous me dire ce qui bloque svp ?

merci

Answer 4

Bonjour et merci pour votre réponse.

Et sans utiliser de macro ? Personnellement, cela ne me pose pas de problème mais mes collègues ne sont pas si débrouillés en informatique.

Merci d'avance et bonne fin de matinée.

Aude