Bonjour tout le monde !
J'ai un soucis avec une macro vba que je suis en train d'écrire et qui doit permettre de tranférer tous les onglets d'un fichier Excel sous Word.
Voici ma macro :
Sub ExcelToWord(chemin_fichier_word As String, chemin_fichier_excel As String)
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Dim MyWorkSheet As Worksheet
Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe
AppWord.Visible = True
'ouvre le document word
Set DocWord = AppWord.Documents.Open(chemin_fichier_word, readonly:=False)
'copie les données excel et les colle dans word
activer_workbook (chemin_fichier_excel)
For Each MyWorkSheet In ActiveWorkbook.Worksheets
MyWorkSheet.Activate
ActiveSheet.UsedRange.Copy
DocWord.Range.PasteExcelTable False, False, False
DocWord.Select
Selection.InsertBreak Type:=wdPageBreak
Application.CutCopyMode = False
Next
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
End Sub
Le problème que je rencontre c'est qu'au lieu de créer une nouvele feuille word pour chaque onglet, il se contente d'écrire par dessus, toujours sur la meme page.
Ce que j'extrait du word semble etre une image.Et ces images se collent les unes au dessus des autres.
Je ne m'y connais pas vraiment en VBA -Word ( plus en Excel) donc si quelqu'un pouvait me montrer comment éviter cette erreur...
En attendant je vais continuer a chercher!
Merci d'avance.
-xaeris-