Discussion :

[OCEANNE1988]

Bonjour le forum,

J'ai passé un bon bout de temps cet A.M. à trouver une solution à mon souci sans succès, je me décide à vous solliciter.
J'ai un document au format *.docm que je mets à disposition de différents utilisateurs.
Lorsque ceux-ci font un "enregistré sous", je souhaite qu'ils ne puissent pas changer l'extension (type) et les contraindre à rester au format *.docm
Et ceci sans même un message d'avertissement.
J'ai modifié les paramètres "options d'enregistrement" de mon document, afin que le format *.docm apparaisse par défaut lors d'un "enregistré sous", mais les utilisateurs peuvent choisir dans le menu déroulant un autre format de sortie, ce qui ne me convient pas. L'idéal serait que quel que soit le format sélectionné par l'utilisateur, le résultat de l'enregistrement soit toujours une extension *.docm

Merci pour votre aide

Océanne

[clementmarcotte]

Bonjour,

Ce ne serait pas plus simple de transformer ton fichier en modèle (dotm), que tes utilisateurs pourraient utiliser au lieu de "Normal"; ou encore, d'en faire un complément ?

[OCEANNE1988]

Bonsoir le Forum,

Une petite précision à l'attention de Monsieur Marcotte qui a eu la gentillesse de se pencher sur mon sujet.
Merci pour votre suggestion, mais la mise en oeuvre de modèle (dot) n'est pas envisageable dans mon exemple susmentionné, en effet le fichier *.docm en entrée est une figure imposée.
Je rajouterai que les macros contenues dans le fichier d'origine doivent être nécessairement maintenues dans les différents "enregistrés sous" réalisés par les utilisateurs.

Je creuse par macro évènementielle, mais pour l'instant toujours sans succès.

Bien cordialement

O.

[clementmarcotte]

Bonjour,

Il va falloir que j'y pense. Je ne pense pas que l'on puisse agir directement sur la boîte de dialogue. De but en blanc, tu pourrais mettre ta procédure d'enregistrement dans une boucle Do-Loop, et récupérer le nom du fichier et vérifier l'extension. Si c'est la bonne extension, il sort de la boucle. Sinon, il recommence.

Ou bien, tu te fais un User_Form "Enregistrer sous..." personnel qui fait la sourde oreille si l'extension n'est pas la bonne.

[OCEANNE1988]

Bonsoir le forum

Monsieur Marcotte,

Pour donner suite à notre échange bilatéral, j'ai un peu avancé sur mon sujet, mais non pas en forçant "l'enregistré sous" au format *.docm comme je le souhaitais initialement (pour mémoire, je voulais laisser à l'utilisateur le choix du nom du fichier ainsi que le choix du répertoire de destination et forcer l'enregistrement au format *.docm) mais simplement en avertissant l'utilisateur par un message retourné sur capture de l'évènement "enregistré sous" :

J'ai intégré dans un module de classe

Dim X As New EventClassModule
Sub AutoOpen()
Set X.App = Word.Application
End Sub

puis dans un module simple :

Public WithEvents App As Word.Application
'Public WithEvents AppWord As Word.Application

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then MsgBox "ATTENTION : Tout autre choix qu'un type d'enregistrement *.docm, va compromettre le fonctionnement de ce formulaire"
End Sub

Le message n'est retourné que lorsque l'utilisateur clique sur le menu "enregistré sous"

Bonne soirée à tous.

Mais je suis tenace et je creuse encore.

O.