Word / Excel OLE ?
Pawn
-
Pawn -
Pawn -
Bonjour,
On me demande de faire une macro assez particulière.
La macro doit copier des mots ce trouvant dans des docs. Word soit dans un tableau soit dans une « Forme Automatique ». Puis les coller dans des cellules Excel, le but étant de crée « une base de donnée » regroupant les documents par thème et numéros du service.
N’ayant que de vague connaissance en VBA Excel(2003) et Aucune en VBA Word(2003), je n’y arrive pas. On m’a conseillé de passer par OLE.
J'espere que vous m'aiderez à trouver la solution,
Merci d'avance,
Pawn
On me demande de faire une macro assez particulière.
La macro doit copier des mots ce trouvant dans des docs. Word soit dans un tableau soit dans une « Forme Automatique ». Puis les coller dans des cellules Excel, le but étant de crée « une base de donnée » regroupant les documents par thème et numéros du service.
N’ayant que de vague connaissance en VBA Excel(2003) et Aucune en VBA Word(2003), je n’y arrive pas. On m’a conseillé de passer par OLE.
J'espere que vous m'aiderez à trouver la solution,
Merci d'avance,
Pawn
A voir également:
- Word / Excel OLE ?
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Liste déroulante excel - Guide
- Espace insécable word - Guide
2 réponses
j'en suis a ce niveau .... si qqn peut m'aider ...
Sub test()
Dim Myfles As Variant
Dim OLE As OLE_OPTEXCLUSIVE
Dim appword As Word.Application, wbXL As Excel.Workbook
Dim docword As Word.Document
Dim Ow As Object
Set docword = New Word.Document
'Word.Documents.Open = True
'Word.Documents.Visible = True
myfiles = Array("G:\Test\REfffff.doc")
For i = 0 To UBound(myfiles)
If Dir(myfiles(i)) = Empty Then
MsgBox "Dossier vide"
Exit Sub
End If
Set doc = Ow.documentsOpen(Filename:=myfiles(i))
derligne = docword.Tables(1).Rows.Count
contrat_type = Cells(derligne, 1).Select
Selection.Copy
contrat_proc = Cells(derligne, 2).Value
ThisWorkbook.Worksheets("Fueil1").Paste
appword.Application.Quit
Application.CutCopyMode = False
Next i
Set doc = Nothing
Set Ow = Nothing
End Sub
Sub test()
Dim Myfles As Variant
Dim OLE As OLE_OPTEXCLUSIVE
Dim appword As Word.Application, wbXL As Excel.Workbook
Dim docword As Word.Document
Dim Ow As Object
Set docword = New Word.Document
'Word.Documents.Open = True
'Word.Documents.Visible = True
myfiles = Array("G:\Test\REfffff.doc")
For i = 0 To UBound(myfiles)
If Dir(myfiles(i)) = Empty Then
MsgBox "Dossier vide"
Exit Sub
End If
Set doc = Ow.documentsOpen(Filename:=myfiles(i))
derligne = docword.Tables(1).Rows.Count
contrat_type = Cells(derligne, 1).Select
Selection.Copy
contrat_proc = Cells(derligne, 2).Value
ThisWorkbook.Worksheets("Fueil1").Paste
appword.Application.Quit
Application.CutCopyMode = False
Next i
Set doc = Nothing
Set Ow = Nothing
End Sub
