Enregistrer un document word à partir de Excel VBA

Bonjour à tous, je cherche à enregistrer un document word déjà existant via VBA Excel et lui donner le texte qui est contenu dans une cellule.

J'ai trouvé cela sur divers forums:

1) Celle-ci permet d'enregistrer un classeur excel avec le nom d'une cellule:

Sub NomClasseur()
Dim Chr As String 'déclare la variable
Chr = Range("Essai!C1")'Feuille Essai et cellule C1
ChDrive "C" 'si C n'est pas le disque par défaut
ChDir "C:\ajeter\"
ActiveWorkbook.SaveAs Filename:=(Chr)
End Sub


2) Et celle-là, créer un document Word, écrire dedans et l'enregistrer:

Sub test1()
'definition
Dim FichierWord As Object
Set FichierWord = CreateObject("Word.Application")
' Création document
FichierWord.Documents.Add
' Ecriture dans document
FichierWord.Selection.TypeText "hello world !"
' Sauvegarde
ActiveDocument.SaveAs "C:\test.doc"
' Fermeture
FichierWord.ActiveDocument.Close
Set FichierWord = Nothing
End Sub


Ce que je voudrais moi, c'est ouvrir mon fichier word qui est déjà existant et le sauvegarder avec le texte qu'il y a à l'intérieur d'une cellule de mon fichier excel.

Je vous remercie de votre aide.