Discussion :

[tazamorte]

Bonjour

J'ai un document word qui via une macro lance un modele xltm et plus spécifiquement une user form qui est le debut d'un processus pour créer un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Lance_Assistant()
' *** référence : Microsoft Library Object 11.0 ou équivalent
Dim xlApp   As Excel.Application
Dim xlBook  As Workbook
Dim xlSheet As WorkSheet
Dim MaVar   As String
 
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
 
Set xlBook = xlApp.WorkBooks.Open("C:\SITECUB\Maquette.xltm")
 
'Traitement
xlBook.Application.Run ("Lance_Assistant_Tableau")
 
'xlBook.Close True 'ou False, pour la sauvegarde
'xlApp.Quit
 
'Set xlSheet = Nothing
'Set xlBook = Nothing
'Set xlApp = Nothing
 
End Sub

une fois que le tableau sera crée et retoucher au besoin de l'utilisateur
l'utilisateur pourra importer sous tableau sous word

avec une procédure qui commencerait comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Export_Word()
Dim SelectTab As Range
 
SelectTab = Range(A1).CurrentRegion.Select
SelectTab .Copy
 
End Sub

Mon probleme c'est que je ne sais pas comment récupérer mon word pour lui coller le tableau dans un feuille de calcul créer par code .

[megapacman]

salut,

tu peux aller voir ici http://vb.developpez.com/faqvba/?page=3.7#WimportDoc

Comment importer la totalité d'un document Word dans une feuille Excel ?

auteur : SilkyRoad
Nécessite d'activer la référence "Microsoft Word xx.x Object Library" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'vba 
Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook
 
    Set Wb = Workbooks.Add(1)
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open("monDocument.doc", ReadOnly:=True)
 
    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With
 
    Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste
    WordApp.Application.Quit
    Application.CutCopyMode = False
    Wb.SaveAs "C:\copieDocument.xls"

[ouskel'n'or]

Regarde là dont l'objet est, depuis Excel, "Comment exporter un tableau Excel vers Word et l'adapter à la largeur de la page ? "
A+