Déplacer un document Word (.docm) VBA

Bonjour à toutes et à tous,

J'essaye à ce jour de déplacer un document word via VBA. Il s'agit de déplacer un document A grâce à un bouton placé dans ce document-même A (et non pas de déplacer un document B a partir d'un document A).

Pour ce faire, je pensais d'abord copier ce document dans l'emplacement emplacementFinal puis de le supprimer de l'emplacement emplacementInitial. Code :

Public Sub Deplacer()

Dim chemin As String
chemin = emplacementFinal
If MsgBox("Êtes-vous sûre de vouloir effectuer cette opération ? Si oui, vous pourrez retrouver ce document a l'emplacement ....", vbYesNoCancel) = vbYes Then
ActiveDocument.SaveAs2 fileName:=chemin & ActiveDocument.Name
End If
End Sub

Public Sub SupprimerCeDocument()
Dim MyFile As String
MyFile = ancienChemin & ActiveDocument.Name
If MsgBox(MyFile & " will be deleted permanently", vbYesNo, "Delete this File?") = vbYes Then
ActiveDocument.Close (wdDoNotSaveChanges)
Kill MyFile
End If
End Sub


Je souhaite donc apeller Deplacer puis SupprimerCeDocument. Problème 1 : Quand jappel la fonction "deplacer" le fichier ne s'enregistre pas comme je le voudrais c'est à dire que la fenêtre me demendant où je souhaite enregistrer le document s'ouvre. Probleme 2 : Quand j'appel la fonction SupprimerCeDocument le document ne se supprime pas. J'ai pourtant vérifié les chemins avec des msgBox.

Auriez vous des solutions (éventuellement plus simples ?) pour faire cela ?

Vous souhaitant une bonne journée,

Danny