Sujet Précédent Sujet Suivant

Word / Excel OLE ?

Fermé
Pawn - 30 oct. 2008 à 14:42
 Pawn - 31 oct. 2008 à 14:57
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
A voir également:

2 réponses

Réponse 1 / 2
Pawn
31 oct. 2008 à 08:18
Up!
0
Réponse 2 / 2
Pawn
31 oct. 2008 à 14:57
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
0