Enregistrer sous avec texte et date

bonjour,

je recherche le moyen d'enregistrer un document Word avec un nom et une date.

J'ai fais un tour sur les différents forums mais je n'ai pas trouvé de solution.

Voici les essais infructueux que j'ai essayé. Pouvez-vous m'aider?

Code:

---

1 2 3 4 5 6 7

Dim datedujour As Date   datedujour = Date - 1 nom = "Rapport ETNA du "   wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE" wordapp.ActiveDocument.SaveAs Filename:=nom & datedujour

---

Code:

---

1 2 3 4 5 6

Dim datedujour As Date   datedujour = Date - 1   wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE" wordapp.ActiveDocument.SaveAs Filename:="Rapport ETNA du " & datedujour

---

Code:

---

1 2	wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE" wordapp.ActiveDocument.SaveAs Filename:="Rapport ETNA du " & Date -1

---

J'ai aussi essayer d'ajouter le ".docx"

Rien n'y fait. Ca ne passe pas, un coup de main svp.

Désolé j'ai oublier de mettre WORD VBA dans le titre

titre modifié

A force de persévérence j'ai trouvé la solution,

il fallait que je force le format de la date pour que ca passe

Code:

---

1 2	wordapp.ChangeFileOpenDirectory "C:\Users\mban\Desktop\rapport OEE" wordapp.ActiveDocument.SaveAs Filename:="Rapport ETNA du " & Format(Date - 1, "dd-mm-yy")

---

Désolé pour le post inutile en espérant que ca serve à quelqu'un.