IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

[VBA-W] Mettre à Zéro le champ RevisionNumber


Sujet :

VBA Word

  1. #1
    Membre actif
    Avatar de fabou3377
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    182
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2006
    Messages : 182
    Points : 280
    Points
    280
    Par défaut [VBA-W] Mettre à Zéro le champ RevisionNumber
    Bonjour,

    je désire mettre à zéro le code dans un document *.dot Word. Le code ci-dessous n'a aucune influence... Merci pour votre aide..


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub ResetRevisionNumber()
    ' ResetRevisionNumber Macro
     
    ActiveDocument.BuiltInDocumentProperties("Revision Number").Value = 0
     
    MsgBox (ActiveDocument.BuiltInDocumentProperties("Revision Number").Value)
     
    End Sub

  2. #2
    Membre actif
    Avatar de fabou3377
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    182
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2006
    Messages : 182
    Points : 280
    Points
    280
    Par défaut Revision Number champ RevisionNumber
    Bonjour,

    N'ayant pas trouvé de solution à mon problème, je me permet de remettre à jour ce sujet.

    J'ai créer un modèle word *.dot où l'entête du document possède le champ revision number afin que lorsque les utilisateurs utiliseront ce modèle les versions du document soient incrémentés.

    Le problème vient du fait qu'avant de mettre à disposition ce fichier modèle aux utilisateurs, j'aimerais que le champ révision number soit à zéro et non égale aux nombres de modifications exécutés sur le modèle.

    Merci d'avance pour votre aide.

  3. #3
    Membre actif
    Avatar de fabou3377
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    182
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2006
    Messages : 182
    Points : 280
    Points
    280
    Par défaut
    Bonjour,

    je n'ai vraiment pas de solution. Merci de m'aider..

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2006
    Messages
    393
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2006
    Messages : 393
    Points : 451
    Points
    451
    Par défaut
    Je ne comprends pas trop; j'ai essayé ce que tu as dit :
    un modele.dot ayant comme "Revision Number" = 9.
    Quand je double-clique dessus, il m'ouvre un nouveau fichier à partir de ce modèle, qui a un "Revision Number" = 1.

    Maintenant je n'ai pas inséré de champ qui y fait référence. Mais certainement ce champ ne doit pas être mis à jour automatiquement quand tu ouvres ce nouveau document. Je pense que tu as besoin de mettre à jour le champ dans l'entête et non pas le valeur de la propriété "Revision Number".

Discussions similaires

  1. [VBA-E] Mettre en gras une partie du texte d'une cellule
    Par clochardevobsy dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 05/05/2006, 16h25
  2. Réponses: 7
    Dernier message: 02/05/2006, 16h28
  3. [VBA-W] Mettre des couleurs ds un label
    Par jagdjg dans le forum VBA Word
    Réponses: 6
    Dernier message: 30/03/2006, 15h19
  4. [VBA][Excel]Mettre un bouton d'aide sur un userform
    Par delamarque dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 03/01/2006, 18h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo