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
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
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
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
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
