Discussion :

[Marco-73]

Bonjour à tous,
Je suis nouveau sur ce forum.
Alors mon problème est le suivant :
J'utilise un fichier Template à remplir, il s'agit d'un fichier Word comprenant des macros.
Je voudrais dès son ouverture, pouvoir ouvrir une boite de dialogue pour enregistrer ce fichier dans un dossier spécifique, avec l'extension doc.m.

J'ai essayer de mettre un événement de type "Document.Open" utilisant la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Enregistrersous()
 
 
 ChDir (ThisDocument.Path) 'Obtention du chemin du doc
    ChDir ".." 'Obtention du chemin du repertoire parent
 
 ChangeFileOpenDirectory (CurDir & "\02_Interventions Sheets") 'Chemin du dossier où je voudrait enregistrer mon fichier
With Application.FileDialog(msoFileDialogSaveAs) 'Boite de dialogue 'enregistrer sous'
.FilterIndex = 2 'Indice deux pour selectionner la selection '.docm'
.InitialFileName = "IS_TCU_<XXX>" 'le nom du fichier
.Show 'affichage
End With
 
End Sub

Tout marche très bien, la boite de dialogue ouvre bien le bon emplacement et le fichier à le bon nom et la bonne extension.
Cependant lorsque je clique sur enregistrer, il ne se passe rien. la boite de dialogue se ferme, et mon fichier n'a pas changer, il s'agit toujours du Template de départ ...
Quelqu'un pourrait m'aider à corriger ce problème ou trouver une autre solution ?

[Marco-73]

Finalement après avoir chercher sur le forum et bidouillé un peu j'ai trouver cette solution qui a l'air de marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Enregistrersous()
 Dim chemin As String
 
    ChDir (ThisDocument.Path) 'Obtention du chemin du fichier
    ChDir ".." 'Obtention du chemin du repertoire parent
 
    chemin = CurDir & "\02_Interventions Sheets\" 'Curdir = chemin courant + dossier où je voudrait enregistrer mon fichier
 
    With Dialogs(wdDialogFileSaveAs)
     .Name = chemin & "IS_TCU_XXX"
     .Show
    End With
End Sub

[Heureux-oli]

Salut,

Sur l'évènement "New" du modèle tu peux utiliser ton code de sauvegarde.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Document_New()
 
End Sub

Placé dans le modèle, ce code va s'exécuter lors de chaque création de document basé sur ce modèle.