Export Excel -> Word

Bonjour,

J'ai récupéré une macro qui permet d'importer depuis un document word une plage de cellule dans un fichier Excel. La macro fonctionne très bien, mais uniquement dans le cas où il y a un seul onglet. J'aimerais en fait modifier les macros afin de pouvoir importer cette plage de cellules de chaque feuille du classeur. Voici le code de la macro :

Sub Excel_Vers_Word()

Dim intChoice As Integer
Dim fichier As String
Dim I As Integer

    intChoice = Application.FileDialog(msoFileDialogOpen).Show
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True
    If intChoice <> 0 Then

   For I = 1 To Application.FileDialog(msoFileDialogOpen _
       ).SelectedItems.Count
       fichier = Application.FileDialog(msoFileDialogOpen _
        ).SelectedItems(I)

    Set exl = CreateObject("excel.application")
    exl.DisplayAlerts = False
    exl.Workbooks.Open (fichier)
    SendKeys "%{TAB}"
    exl.Range("Z2:AE46").Copy
    SendKeys "%{TAB}"

    Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
    Placement:=wdInLine, DisplayAsIcon:=False
    SendKeys "%{TAB}"
    exl.Quit
  Next I

        End If

End Sub

Peut-être est-ce réalisable comme ceci :

Dim ws As WorkSheet
 Set ws = wb.ActiveSheet

    For Each ws In ActiveWorkbook.Worksheets

        Call Excel_Vers_Word

    Next ws

End Sub

En l'état le code ne marche pas ("objet requis"), mais je ne vois pas où le modifier.

Merci de votre réponse

bonjour

tu veux donc obtenir un fichier excel dont plusieurs onglet contiennent des données identiques ?

mauvaise idée que ces données soient collées "en dur". Il y a redondance de données dans un même classeur

importe dans un seul onglet

les autres onglets contiendront de simples = qui pointent vers l'onglet d'import

Salut,

Pas vraiment, je veux en fait exporter une même plage de cellules de chaque onglet d'un fichier excel (le contenu de la plage de cellule n'est pas le même selon l'onglet) dans un fichier word ,avec 1 page word pour 1 onglet.

Merci