[VBA] Bascule word vers Excel puis excel vers word avec recupération d'un tableau

[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 :

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 :

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 :

[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+