Récupérer les données d'un document Word et les copier dans Excel
Mizo2rabat
Messages postés5Date d'inscriptiondimanche 21 août 2011StatutMembreDernière intervention21 août 2011
-
3 août 2011 à 16:06
Mizo2rabat
Messages postés5Date d'inscriptiondimanche 21 août 2011StatutMembreDernière intervention21 août 2011
-
3 août 2011 à 17:37
---------------------------------------
Sub DonnéesWordVersExcel()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open("C:\Users\Mizo\Desktop\Stage\Rapport.doc", ReadOnly:=True)
With AppWord
.Selection.WholeStory
.Selection.Copy
End With
ThisWorkbook.Worksheets("Interventions planifiées").Paste
AppWord.Application.Quit
Application.CutCopyMode = False
End Sub
--------------------------------------
ce programme est correcte les amis ??
A voir également:
Récupérer les données d'un document Word et les copier dans Excel