Discussion :

[Kezotett]

Bonjour,

Voici mon problème:

Je génère des fichiers Word depuis une base de données Acces, ces fichiers sont basés sur des modèles de documents.
Les documents Word sont affichées à l'écran pour être vérifié et(ou) modifié par l'utilisateur. L'utilisateur peut para la suite enregistrer le document.
Mon problème c'est que le nom du document est "document#.doc" et au moment de l'enregistrement le nom prend les premiers mots du documents, moi ce que je veux c'est pouvoir changer le nom du document au moment de ça génération.

PS: Si le problème a déjà été posté ou s'il existe un faq merci de m'y redirigé, après plusieurs recherches je n'ai pas trouvé.

Ma fonction:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Public Function PrintDocument() As Boolean
    Dim rs As Recordset
 
    Dim szDocumentPath As String
    Dim szDocumentName As String
    Dim szDocumentPathName As String
    Dim szDocumentTarget As String
    Dim szDocumentID As String
    Dim pathDossierTraites As String
 
 
    szDocumentPath = "C:\Test\"
    szDocumentName = "FichierTest.dot"
    szDocumentPathName = szDocumentPath & szDocumentName
 
    'Répertoire d'enregistrement des documents
    pathDossierTraites = "C:\Save\"
 
    If FileExists(szDocumentPathName) Then
 
        objWord.Documents.Add (szDocumentPathName) ' Ouvertur du modèle de document
 
        Options.DefaultFilePath(wdDocumentsPath) = pathDossierTraites ' Indication du répertoire d'enregistrement
 
        'Merge Data
        If MergeData() Then 
                PrintDocument = True
        Else
            MsgBox "Merge Error"
        End If
 
        'Set focus on WinWord
        objWord.Visible = True
        objWord.Activate
 
    Else
        MsgBox "Impossible de localiser le template : " & szDocumentPath
        'LogDocument DocumentID, "Error : Template Not found"
        Set objWord = Nothing
    End If
 
End Function

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Je vais te donner deux liens vers des tutoriels sur le publipostage.

http://heureuxoli.developpez.com/off.../publipostage/

http://heureuxoli.developpez.com/publipostage/

L'enregistrement des fichiers y est abordé.

[Kezotett]

Merci pour la réponse mais après avoir lu les documents, les solutions apportés ne répondent pas à mes besoins.
Ce qui est proposé dans les solutions c'est d'enregistrer les documents par la base access.
Ce que je souhaite c'est définir le nom du document mais laisser libre choix à l'utilisateur d'enregistrer ou non le document.

D'autre suggestions de la communauté ?

[Heureux-oli]

Mon problème c'est que le nom du document est "document#.doc" et au moment de l'enregistrement le nom prend les premiers mots du documents, moi ce que je veux c'est pouvoir changer le nom du document au moment de ça génération.

C'est donc après la génération que tu veux enregistrer le document et pas au moment de la génération.

Il suffit d'utiliser une boîte de dialogue.

Code :

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

1
2
3
Dim Dlg as FileDialog
 
Set Dlg = Application.FileDialog(msoFileDialogSaveAs)

[Kezotett]

Ach, c'est proche mais c'est pas encore ça.

Dans mon idée c'est réellement l'utilisateur qui est à l'origine de l'action d'enregistrement.
L'application ne génère que le documents avec le bon nom.

[Heureux-oli]

Reprenons :

Tu veux que le nom du document soit préétabli, mais la sauvegarde pas encore effectuée.
Au moment de la sauvegarde, le nom de la génération est proposé par défaut, mais l'utilisateur doit pouvoir le changer ?

[Kezotett]

Tu veux que le nom du document soit préétabli, mais la sauvegarde pas encore effectuée.
Exactement

Au moment de la sauvegarde, le nom de la génération est proposé par défaut, mais l'utilisateur doit pouvoir le changer ?
Si possible (pas de VB dans le document word )

Je sais que ce n'est pas habituel comme développement.
Mais j'ai cherché partout et soit je crée mal mon document, soit c'est pas possible, soit j'ai pas bien cherché

[Heureux-oli]

Sans VB, c'est pas facile, mais avec une ruse peut-être.
Ce sont en général les premiers mots qui sont pris en comptes.

Comme premiers mots, essaie de mettre les mots que tu veux avoir, diminue la police et met là en blanc !

Je ne vois que cette solution.

Tu as aussi la possibilité de mettre ce que tu veux dans les propriétés de ton document et utilise la propriété Sujet.

Code :

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

ActiveDocument.BuiltInDocumentProperties("Subject") = mavaleur

[Kezotett]

Je cherchais pendant que tu as posté, j'ai trouvé :

ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = value

ça marche presque mais ma valeur n'est pas prise en compte comme il faut.

J'ai bien la propriété qui vaut "value" mais quand je fais enregistrer-sous ça donne rien.
Dans le document ouvert quand je fais Propriété-> OK, la "value" est bien prise en compte et mon enregistrer-sous vaut bien "value", c'est bizarre comme réaction de word.

Je continu mon investigation.

Merci pour ton aide, les choses avances.

PS: Après recherche le document prend en compte une autre valeur.
Propriété du document / Onglet Contenu / Titre