Re : vba importer fichier excel dans fichier Word
Bonjour Martial
merci de ta réponse.
J'ai testé et ça ne marche pas
"erreur de compilation : type défini par l'utilisateur non défini" et je ne comprend pas pourquoi
J'ai donc essayé de rajouter à ma macro actuelle la ligne "DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow" modifiée en "oWdDoc.Tables(1).AutoFitBehavior wdAutoFitWindow"
Ca donne rien de plus que l'extraction habituelle (sans copie de la mise en forme) :
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:N230").Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
oWdDoc.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
End Sub
J'ai donc adapté le format de mes données excel (reduction des colonnes, taille de police, ...) pour que cela rentre un peu mieux dans word mais je n'arrive toujours pas à mettre word en format "panorama".
lorsque je le fait manuellement, le rendu me va même si je préférerai conserver la mise en page excel
.
merci de votre aide.
Cordialement.