VBA, Copier le contenu de plusieurs feuilles Excel dans un document word

Salut à tous,

j'ai un souci que je traîne la.

il s'agit de copier le contenu d'un classeur dans un seul document Word;

J'ai trouvé le moyen de copier une seule feuille mais je n'arrive pas à copier les autres feuilles dans le même document word.

J'ai fais une boucle qui permet de copier colonne par colonne.

Je prends toutes les autres pistes que vous pourrez me donner.

merci d'avance

Salut,

à adapter et à essayer ... pour moi ca fonctionne

Sub testword()
 Dim ws1 As Object
 Dim ws2 As Object
 Set ws1 = Workbooks("test.xls").Sheets("feuil1")
 Set ws2 = Workbooks("test.xls").Sheets("feuil2")
  With ActiveDocument.Application.Selection
       .TypeText Text:="Titre"
       .TypeParagraph
       ws1.Range("A1:F1").Copy
      .PasteExcelTable False, False, False
      .TypeParagraph
      .TypeParagraph
      .TypeText Text:="1ère Feuille"
      .TypeParagraph
       ws1.Range("A25:F40").Copy
      .PasteExcelTable False, False, False
      .TypeParagraph
      .TypeParagraph
      .TypeText Text:="2ème Feuille"
      .TypeParagraph
       ws2.Range("A25:F40").Copy
      .PasteExcelTable False, False, False

  End With
  Set ws1 = Nothing
  Set ws2 = Nothing
End Sub

Merci beaucoup,

ça résout en partie mon problème.

Pour deux ou n (connu) feuilles de tailles connus, ça marche, mais pour mon problème, la taille n'est pas connu, ni le nombre de feuilles et quand je fais la boucle pour stocker dans un même document word, j'ai rien.

slt,

J'ai trouvé plus que je cherchais.

Merci beaucoup!