[VBA-W]enregistrement d'un modèle [Résolu]

[tazamorte]

J'ai une procédure permettant de sauver un fichier sous forme de modele word 2007 (dotx)
il enregistre dans un répertoire précis et test son existance et le crée au besoin
la procédure ne plante pas ma variable du nom du fichier est bien instancié "NameFic" mais l'enregistrement se fait pas dans le bon répertoire je ne comprends pas pourquoi ("C:\Documents and Settings\fcharrat\Application Data\Microsoft\Templates") vu que je lui demande explicitement de changer de repertoire
j'attends vos lanternes

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Enreg_produit()
    ' Procédure d'enregistrement d'un produit
    If UF_Enreg_Prod.Product_Name.Text <> "" Then
 
         Dim strPath As String
 
        strPath = "C:\SITECUB2\"
 
        If (RépertoireExiste(strPath) <> True) Then
            MkDir strPath
        End If
 
 
 
        'Enregistre le fichier au format dotX
        Dim NameFic As String
        NameFic = UF_Enreg_Prod.Product_Name.Text
        NameFic = NameFic & ".dotx"
 
        'Positionne le répertoire
        ChangeFileOpenDirectory "C:\SITECUB\"
        ActiveDocument.SaveAs FileName:=NameFic, FileFormat:= _
            wdFormatXMLTemplate, LockComments:=False, Password:="", AddToRecentFiles _
            :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
            :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
            SaveAsAOCELetter:=False
 
        'message de confirmation
        MsgBox "Opération effectué avec succés"
 
        'Masque le formulaire
        UF_Enreg_Prod.Hide
    Else
 
        MsgBox "Veuillez remplir le nom du produit"
 
    End If
End Sub

[cwain]

Dans ton SaveAs, mets peut-être directement le chemin en entier :

Filename : Argument de type Variant facultatif. Chaîne qui indique le nom du fichier à enregistrer. Vous pouvez inclure un chemin complet ; si vous ne le faites pas, Microsoft Excel enregistre le fichier dans le dossier en cours.

Tu es sûr que l'instruction d'avant change le dossier en cours ? Je ne connais pas cette instruction,, c'est pour ça je demande