Pb excel à word.

'''Library Word
'''C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB
'''Microsoft Word 11.0 Object Library

'### Constantes à adapter ###
Const CHEMIN As String = "C:\"
Const AVEC_LIAISON As Boolean = False   'True pour activer la liaison
'############################

Sub Excel2Word()
Dim DOC As Object   'Word.Document
Dim SEL As Object   'Word.Selection
Dim R As Range
Dim S As Worksheet
Dim NomFichier$
Dim A$
Dim i&
Set DOC = CreateObject("Word.document")
For Each S In ActiveWindow.SelectedSheets
  Set R = S.UsedRange
  R.Copy
  Set SEL = DOC.Parent.Selection
  SEL.PasteExcelTable LinkedToExcel:=AVEC_LIAISON, _
      WordFormatting:=False, RTF:=True
  SEL.TypeParagraph
  SEL.TypeParagraph
Next S
ActiveWindow.SelectedSheets(1).Select
Application.CutCopyMode = False
NomFichier$ = ActiveWindow.Caption
A$ = CHEMIN & NomFichier$ & ".doc"
Do Until Dir(A$) = ""
  i& = i& + 1
  A$ = CHEMIN & NomFichier$ & "_" & i& & ".doc"
Loop
DOC.SaveAs Filename:=A$
DOC.Windows(1).Visible = True
End Sub