Save As dans Word

Bonjour je suis sous W8 avec Office 2007 et VB6.

J'ouvre un document qui me sert de modèle et j'essaye de l'enregistrer sous un autre nom le temps de faire les traitements nécessaires.

Code:

---

1 2 3 4 5 6 7

Dim Test_app as Object Dim Conv_doc as Object   Set Test_app = CreateObject("Word.Application") Set Conv_doc = Test_app.Documents.Open("MonDoc.doc") Conv_doc.SaveAs "Provis.doc"

---

mais le saveas ne veut rien savoir

le même code fonctionne parfaitement sous XP avec office 2000.