Cet article illustre comment vous pouvez convertir des documents Word en feuilles de calcul Excel tout en conservant le même formatage. Supposons que vous ayez besoin de formater ou de trier vos données qui se trouvent dans un document Word. De toute évidence, Excel est le meilleur choix pour le faire. Heureusement, vous n'avez pas besoin de taper à nouveau les données dans le nouveau fichier Excel. Vous pouvez simplement convertir le document Word en une feuille de calcul Excel tout en conservant le même formatage.Le formatage. L'image suivante illustre bien l'objectif de cet article. Jetez-y un coup d'œil pour apprendre à le faire facilement.

Télécharger le cahier d'exercices

Vous pouvez télécharger le cahier d'exercices à partir du bouton de téléchargement ci-dessous.

Conversion de Word en Excel.xlsm

2 façons de convertir Word en Excel avec le même formatage

Imaginez que vous avez le document Word suivant. Vous voulez maintenant le convertir en feuille de calcul Excel. Suivez les méthodes ci-dessous.

1. convertir Word en Excel avec le copier-coller

Vous pouvez simplement copier les données du document Word et les coller sur la feuille Excel, en suivant les étapes ci-dessous.

📌 Étapes

• Tout d'abord, allez dans le fichier word. Ensuite, appuyez sur CTRL+A pour sélectionner l'ensemble du document. Vous pouvez également sélectionner une plage particulière uniquement si nécessaire.
• Après cela, appuyez sur CTRL+C pour copier les données comme indiqué ci-dessous.

• Ensuite, allez dans la feuille de calcul Excel et sélectionnez la cellule supérieure gauche de la plage dans laquelle vous souhaitez obtenir les données.
• Maintenant, appuyez sur CTRL+V pour coller les données. Vous pouvez également cliquer avec le bouton droit de la souris sur cette cellule, puis sélectionner Garder le formatage de la source (K) de la Options de collage .
• Après cela, vous obtiendrez le résultat suivant.

Lire la suite : Comment copier de Word à Excel dans plusieurs cellules (3 façons)

2. convertir Word en Excel avec VBA

Vous pouvez faire de même avec Excel VBA, en suivant les étapes ci-dessous.

📌 Étapes

• Tout d'abord, ajoutez une nouvelle feuille de calcul, puis enregistrez le classeur sous le nom de classeur activé par macro .
• Ensuite, appuyez sur ALT+F11 pour ouvrir la fenêtre VBA.
• Ensuite, sélectionnez Insérer>> ; Module pour créer un nouveau module comme le montre l'image ci-dessous.

• Après cela, copiez le code suivant en utilisant le bouton de copie.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub 

• Ensuite, collez le code copié dans la fenêtre du module comme indiqué ci-dessous.

• Maintenant, appuyez sur F5 pour exécuter le code. Vous pouvez également le faire à partir de l'écran d'accueil. Exécuter
• Après cela, il vous sera demandé de sélectionner le fichier word que vous souhaitez convertir.
• Maintenant, naviguez jusqu'à l'emplacement de votre document Word désiré. Ensuite, sélectionnez le fichier et cliquez sur Ouvrir .

• Enfin, vous obtiendrez un résultat similaire à celui de la méthode précédente.

🔎 Comment fonctionne le code ?

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

Dim PG, Gamme

Déclarer les variables nécessaires.

Application.ScreenUpdating = False

Fichier = Application.GetOpenFilename _

("Fichier Word (*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Veuillez sélectionner")

Si File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

Cela permet de définir le Word comme un document Word.

Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)

Cela permet d'attribuer le Document à l'objet ou au fichier auquel l'utilisateur fait référence.

Activation du document

PG = Document.Paragraphs.Count

Cette ligne de code assigne le PG variable au nombre de paragraphes dans le document word

Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ Fin:=Document.Paragraphes(PG).Range.End)

Range.Select

En cas d'erreur, reprendre la suite

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Lire la suite : Comment convertir un tableau Word en feuille de calcul Excel (6 méthodes)

Les choses à retenir

• Vous pouvez également enregistrer le fichier Word au format PDF, puis utiliser votre éditeur PDF pour le convertir en feuille de calcul Excel.
• N'oubliez pas d'enregistrer le classeur en tant que .xlsm Sinon, vous perdrez le code.

Conclusion

Maintenant, vous savez comment convertir un document Word en feuille de calcul Excel tout en conservant le formatage. N'hésitez pas à nous dire si cet article vous a aidé à résoudre votre problème. Vous pouvez également utiliser la section des commentaires ci-dessous pour d'autres questions ou suggestions. Visitez notre section ExcelWIKI Restez avec nous et continuez à apprendre.