exporter des Tableaux Excel inséreés dans un word

[adil79]

Bonsoir les champions,
bsoir m'sieurs dame,
Mon problème est le suivant: j'ai un fichier word avec plusieurs tableau excel insérés dedans, et j'aimerais via une macro , exporter ces tableaux vers un fichier excel. est-ce possible? je sais que je peux exporter des tableaux word vers Excel mais je ne sais pas cmt faire pour résoudre mon pb .
Merci d'avance pour votre aide;


------------------------------------------------------
La vie est comme un vélo, si on n’avance pas on tombe 😉

 

[JYLL]

Re : exporter des Tableaux Excel inséreés dans un word

Bonsoir Adil79 et le forum,

Voici un morceau de code récupéré sur le WEB, j'espère que tu pourras l'adapter à ton besoin.

Sub DonnéesWordVersExcel()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe AppWord.Visible = True 'Ouvre le document Word (Fichier.doc) et effectue une copie des données
Set DocWord = AppWord.Documents.Open( "c:\Excel\Fichier.doc" , ReadOnly:= True )
With AppWord
.Selection.WholeStory
.Selection.Copy
End With ' Copie des données dans Excel
ThisWorkbook.Worksheets( "Feuil1" ).Paste ' Fermeture de Word
AppWord.Application.Quit
Application.CutCopyMode = False
End Sub


et l'inverse


Sub EnvoyerDonneesExcelVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Application.DisplayAlerts = True
AppWord.ShowMe AppWord.Visible = True 'Ouvre le document Word
Set DocWord = AppWord.Documents.Open( "c:\excel\Fichier.doc" , ReadOnly:= False ) ' Copie les données Excel
ThisWorkbook.Worksheets( "Feuil1" ).Range( "A1:B6" ).Copy ' Colle les données dans Word
DocWord.Range.PasteSpecial
Application.CutCopyMode = False
DocWord.Application.ActiveDocument.Save
AppWord.Application.Quit
End Sub


Bon courage et bon test.