Ecrire en word depuis excel avec VBA

Pour écrire dans un fichier Word (à créer) depuis Excel en utilisant le Langage VBA, il s'agit tout simplement de saisir le Code VBA suivant:

Sub ECRIRE_word()

 Dim MonWord As Object
  Set MonWord = CreateObject("Word.Application")
   ' Création d'un nouveau document :
  MonWord.Documents.Add
  ' Ecriture d'un petit texte dans ce nouveau document :
  MonWord.Selection.TypeText "Tester écriture dans word depuis excel"
  ' Sauvegarde de ce document ainsi créé :
  MonWord.ActiveDocument.SaveAs "C:\test.doc"
  ' Fermeture de ce document :
  MonWord.ActiveDocument.Close
  Set MonWord = Nothing

End Sub

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.