Bonjour à toutes et à tous,
Je souhaite pouvoir importer un fichier excel en word avec une macro.
L'objectif est de pouvoir copier coller un fichier excel avec sa mise en page (panorama) dans un fichier word.
J'ai trouvé cette macro qui me permet de copier coller dans un nouveau fichier word .
C'est bien pour du texte mais pour des tableaux crées dans Excel c'est plus problématique puisque cette macro ne prend pas en compte la mise en page Excel.
Sub Excel_Word()
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Rendre Word visible
oWdApp.Visible = True
'Copier une plage depuis Excel
ActiveSheet.Range("B1:H230").Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
Application.CutCopyMode = False
End Sub
Existe-t-il une solution pour conserver la mise en page excel ?
Merci de votre aide.
Cordialement
Merci de
Je souhaite pouvoir importer un fichier excel en word avec une macro.
L'objectif est de pouvoir copier coller un fichier excel avec sa mise en page (panorama) dans un fichier word.
J'ai trouvé cette macro qui me permet de copier coller dans un nouveau fichier word .
C'est bien pour du texte mais pour des tableaux crées dans Excel c'est plus problématique puisque cette macro ne prend pas en compte la mise en page Excel.
Sub Excel_Word()
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Rendre Word visible
oWdApp.Visible = True
'Copier une plage depuis Excel
ActiveSheet.Range("B1:H230").Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
Application.CutCopyMode = False
End Sub
Existe-t-il une solution pour conserver la mise en page excel ?
Merci de votre aide.
Cordialement
Merci de