Bonsoir,
je viens de solliciter votre aide sur le programme suivant:
Sub Vers_Word()
Dim NDF As String
Dim Temp As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer
Dim j As Integer
For j = 1 To 4
NDF = ActiveWorkbook.Path & "\j.doc"
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
Temp = ActiveWorkbook.Path & "\j.xls"
Application.DisplayAlerts = False
Workbooks.Open ActiveWorkbook.Path & "\" & "\j.xls"
For i = 1 To 4
WordDoc.Tables(i).Range.Copy
Sheets(i).Activate
Range("A1").Select
ActiveSheet.Paste
Next i
Next j
WordDoc.Close False
WordApp.Quit
End Sub
mon programme ouvre le fichier word nommé 01.doc et copie les 4 tableaux à partir du fichier 01.doc vers excel 01.xls.
Ce que je souhaite faire c'est de copier les 4 tableaux:
01.doc vers 01.xls
02.doc vers 02.xls
jusqu'au
100.doc vers 100.xls
merci d'avance
je viens de solliciter votre aide sur le programme suivant:
Sub Vers_Word()
Dim NDF As String
Dim Temp As String
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer
Dim j As Integer
For j = 1 To 4
NDF = ActiveWorkbook.Path & "\j.doc"
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
Temp = ActiveWorkbook.Path & "\j.xls"
Application.DisplayAlerts = False
Workbooks.Open ActiveWorkbook.Path & "\" & "\j.xls"
For i = 1 To 4
WordDoc.Tables(i).Range.Copy
Sheets(i).Activate
Range("A1").Select
ActiveSheet.Paste
Next i
Next j
WordDoc.Close False
WordApp.Quit
End Sub
mon programme ouvre le fichier word nommé 01.doc et copie les 4 tableaux à partir du fichier 01.doc vers excel 01.xls.
Ce que je souhaite faire c'est de copier les 4 tableaux:
01.doc vers 01.xls
02.doc vers 02.xls
jusqu'au
100.doc vers 100.xls
merci d'avance