Copie feuilles Excel dans word feilles a feuilles
Bonjour,
Je suis nouveaux sur ce forum et un peu novice sur l'usage des macros et vba.
J'essaye a partir d'Excel de copier des tableaux sur différentes feuilles dans Word avec une pagination liées aux tableaux.
J'ai cette macro:
Sub IMPORT_TAB1()
Dim MyXL As New Excel.Application
Set MyXL = New Excel.Application
Set MyXL = GetObject(, "Excel.Application")
MyXL.Workbooks.Open "D:\Standard pneugraissage\Peres techniques meca PNEU au 06_05_14 V2.xlsx"
MyXL.Application.GoTo Reference:="TABLEAU1"
MyXL.Selection.Copy
Windows("CR.docx").Activate
Selection.PasteAndFormat Type:=wdFormatOriginalFormatting
MyXL.Quit
Set MyXL = Nothing
End Sub
Elle fonctionne !!!!
Le problème est que je ne vois pas a quoi correspond la référence "TABLEAU1"
Quand j'ai "TABLEAU1" j'ai bien la feuille1 qui s'écrie dans WORD
Quand j'écrie "TABLEAU2" J'ai une autre feuille qui n'est pas "TABLEAU2"
Quand j'écrie "TABLEAU3" J'ai une erreur de script
Pouvez vous m'aider ?
J'aimerait également que chaque feuille Excel soit copiée dans Word en début de page.
Merci d'avance
BR-EM