Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word Macro importation excel dans word

Macro importation excel dans word

1 réponse
Avatar
danielos
Bonjour =E0 toutes et =E0 tous,

Malgr=E9 une recherche m=E9ticuleuse sur la toile, je n'ai pas trouv=E9 d=
e=20
macro word pour importer un tableau excel (importer du word dans excel=20
ou exporter de l'excel vers word ... pas de probl=E8me mais =E7a ne r=E9p=
ond=20
pas =E0 mon besoin).

Lors du d=E9roulement du code ci-dessous, j'ai : Erreur de compilation=20
avec pour indication : nb d'arguments incorrect ou affectation de=20
propri=E9t=E9 incorrecte.
=E0 priori =E7a viendrait de la ligne :
Range(Selection, Selection.End(xlDown)).Select

Un sage pourrait-il me venir en aide ?

Merci d'avance.

Daniel

Sub importation()
'importer le fichier excel ouvert, colonnes 1 =E0 8, nb lignes ind=E9fini=

With ActiveWorkbook
Range("A1:A8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
End With
ActiveDocument.Selection.Paste
ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode =3D False
End Sub

j'ai =E9galement essay=E9 en mettant la derni=E8re ligne en variable ..=
=2E pas=20
mieux.


Sub importation()
'importer le fichier excel ouvert, colonnes 1 =E0 8, nb lignes ind=E9fini=

With ActiveWorkbook
Dim lg As Integer
lg =3D Sheets(1).Range("A65536").End(xlUp)(2).Row
Range("A1:H" & lg).Select
Selection.Copy
End With
ActiveDocument.Selection.Paste
ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode =3D False
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
danielos
Pour ceux qui en aurait besoin...

Sub importation()
'importer le fichier excel ouvert, colonnes 1 à 8, nb lignes indéfini

'copie les valeurs
With ActiveWorkbook
ActiveSheet.Range("A2:H" &
ActiveSheet.Range("A65536").End(xlUp).Row).Copy
End With

'colle les valeurs
Selection.PasteExcelTable False, False, False

'autodimensionne le tableau
ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow

'fermeture excel
Excel.Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:lse
Excel.Application.Quit

End Sub




danielos a écrit :
Bonjour à toutes et à tous,

Malgré une recherche méticuleuse sur la toile, je n'ai pas trouvé de
macro word pour importer un tableau excel (importer du word dans excel
ou exporter de l'excel vers word ... pas de problème mais ça ne ré pond
pas à mon besoin).

Lors du déroulement du code ci-dessous, j'ai : Erreur de compilation
avec pour indication : nb d'arguments incorrect ou affectation de
propriété incorrecte.
à priori ça viendrait de la ligne :
Range(Selection, Selection.End(xlDown)).Select

Un sage pourrait-il me venir en aide ?

Merci d'avance.

Daniel

Sub importation()
'importer le fichier excel ouvert, colonnes 1 à 8, nb lignes indéfi ni
With ActiveWorkbook
Range("A1:A8").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
End With
ActiveDocument.Selection.Paste
ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
End Sub

j'ai également essayé en mettant la dernière ligne en variable . .. pas
mieux.


Sub importation()
'importer le fichier excel ouvert, colonnes 1 à 8, nb lignes indéfi ni
With ActiveWorkbook
Dim lg As Integer
lg = Sheets(1).Range("A65536").End(xlUp)(2).Row
Range("A1:H" & lg).Select
Selection.Copy
End With
ActiveDocument.Selection.Paste
ActiveDocument.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
End Sub