Enregistrer un Modele dès l'ouverture

[mawua]

Bonjour tout le monde,
Je veux enregistrer un modele de document dès son ouverture sans dossier spécifique mais avec un nom particulier.
J'ai donc mis dans le workbook_open

If ThisWorkbook.FileFormat = xlTemplate Then
Application.Dialogs(xlDialogSaveAs).Show ("Situation 0.xls")
End If

Lorsque j'ouvre le modele de document via Excel
Nouveau/Modele sur mon Ordinateur/xyz.xlt
Il enregistre que dalle, même pas de boite de dialogue.