Discussion :

[franz.moraine]

Bonjour,

J'en perd un Latin que je n'ai jamais appris...

Pour piloter de A à Z l'enregistrement d'un fichier Word en VBA (nommage et répertoire), j'utilise le code suivant dans un module "NewMacros" :

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
 
Sub FichierEnregistrer()'
' FichierEnregistrer Macro
' Enregistre le document ou le modèle actif
'
    Dim Chemin As String
    Dim Nom As String
    Dim Prenom As String
    Dim DocName As String
    Dim RegDate As String
    Dim RegPath As String
 
    RegDate = Format(Date, "yyyymmd")
    Nom = ThisDocument.LASTNAME.Value
    Prenom = ThisDocument.FIRSTNAME.Value
    Chemin = "S:\[...chemin\...répertoire\...dossier]\"
    DocName = Nom & " " & Prenom & " " & RegDate & ".docx"
    RegPath = Chemin & DocName
    ActiveDocument.SaveAs2 RegPath
    ActiveDocument.Close
 
 
End Sub

Quand je travaille à partir du modèle [MonFichier].dotm, mes textbox LASTNAME et FIRSTNAME sont correctement définies. L'enregistrement est bon.
Quand je travaille à partir du document1.docx issu du modèle [MonFichier].dotm, mes textbox LASTNAME et FIRSTNAME ne sont plus définies !!???

Pouvez-vous m'aider à comprendre ce mystère, SVP ?

[clementmarcotte]

Bonjour,

J'ai comme qui dirait l'impression que tu es tombé dans la mauvaise marmite.

ThisDocument représente toujours le document qui contient la macro. Dans ce cas-ci, le document qui contient la macro c'est le modèle.

Il faut être très prudent dès que l'on utilise ThisDocument, ActiveDocument (Word), thisWorkbook, activeworkbook (Excel) et tous les autres machins de ce genre; surtout quand on doit avoir plusieurs fichiers d'ouverts.

Une des rares bonnes raison d'utiliser, parcimonieusement, quand même, Activate c'est de le faire (une seule fois) pour être sur que le ActiveDocument est bien le document que l'on veut et non pas un autre document utilisé précédemment.

Également, personne ne devrait se plaindre de la bonne habitude de désigner les documents par leur nom dans les instructions.

[franz.moraine]

Merci clementmarcotte pour ce coup de pouce utile !

Document1.[MaVariable] ne fonctionnant pas, j'ai finalement remplacé ThisDocument par ActiveDocument.[MaVariable] : tout fonctionne parfaitement.

Bonne journée.