Sub Excel_Word()
Dim oWdApp As Word.Application 'et non Object
Dim oWdDoc As Word.Document 'et non Object
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Rendre Word visible
oWdApp.Visible = True
'Copier une plage depuis Excel
ActiveSheet.Range("B1:I132").Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
oWdApp.Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Application.CutCopyMode = False
Dim Chemin As String, NomFich As String
'** Sauvegarde du fichier Word **
'Information du chemin de sauvegarde
Chemin = "C:\Users\croquanterie\Desktop\Test automatisation FT CDD\"
'Information du nom du fichier
NomFich = [A1]
If Dir(Chemin & NomFich) <> "" Then
NomFich = NomFich
MsgBox "Le fichier existe déjà et sera enregistré sous : " & NomFich
End If
oWdApp.ActiveDocument.SaveAs Filename:=NomFich, FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub