Evenement saut de page

Résolu
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai besoin de créer une fonction événementiel lors de la création ou de la suppression d'une page sous word 2007 en vba. Je cherche donc cette événement qui est introuvable.

Merci d'avance a ceux qui me réponderont.
Cordialement,
Mathilde

6 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
J'ai fait cela avec un timer, essaie le:

http://www.cjoint.com/data3/3LelsSj1cgV.htm
1
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Je crois qu'il faut utiliser ceci : wdNumberOfPagesInDocument
Mais je me suis largement inspiré de ton code pour produire ce fichier : https://www.cjoint.com/?DLenLZp9aOw
Bravo pour l'utilisation des timers, j'en garde un traumatisme vivace (on a vite fait de coder quelque chose qui tourne en rond avec ces bêtes-là).

Mathilde, je pense que le concept correspond à ton besoin (peut-être à la latence près).
0
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Ca me semble être la seul façon possible et si je met le timer toutes les 10 secondes, il y aura peu de problème de latence je pense et l'utilisateur ne s'en rendra pas forcément compte.
Oui les timers sont un véritable casse-tête.

Merci bien à vous deux.

Cordialement,
Mathilde
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Pour ajouter une page:

Selection.InsertNewPage


Supprimer la dernière page d'un document:

Sub delDernPage()
' Aller à la dernière page du document
Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=Selection.Information(wdNumberOfPagesInDocument)
' Déplacement d'un caractère
Selection.MoveLeft unit:=wdCharacter, Count:=1
' Sélection de la fin du document
Selection.EndKey unit:=wdStory, Extend:=wdExtend
' suppression
Selection.Delete
 End Sub

0
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Tout d'abord merci de ta réponse.

Certe je suis bien d'accord avec ces fonctions mais je ne cherche pas à ajouter ou à supprimer une page, c'est pour pouvoir faire appel a une macro a chaque fois que l'un de ces évenements se produit que j'ai un soucis.

Cordialement,
Mathilde
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Voici un programme qui annonce a la fermeture le nombre de pages différentes de l'ouverture. Il n'y a pas d'évènement comme dans Excel sur la page

http://www.cjoint.com/data3/3Ldk3hyIvY3.htm
0
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Ah d'accord je vais donc devoir trouver une parade.
Merci d'avoir pris le temps de réfléchir à ma question.

Cordialement,
Mathilde
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
J'ai trouvé comment afficher un message à l'insertion d'une nouvelle page:

http://www.cjoint.com/data3/3LdpsLMvRUl.htm

Marche à suivre:

Cliquez dans le ruban sur Developpeur et sur macros:

Commandes Word et sélectionnez InsererNouvellePage



Cliquez sur Commandes Word et sélectionnez votre document



Cliquez sur Créer à droite, vous avez accès à l'éditeur comme ci-dessous et vous mettez le texte que vous voulez



Je n'ai pas trouvez de macro pour la suppression
0
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Cette fonction doit obligatoirement être appeler pour insérer une page et afficher un message.

Je vais être plus précis sur ce que je recherche :
Il faut qu'à chaque fois qu'une page est ajouter via la touche entrée directement sur le document sans passer par macro, une macro de mise à jour de champs (que j'ai déjà faite) ce lance. De même que lorsque l'utilisateur utilise la touche "delete" et que cela supprime une page, la macro se lance.

Je viens de penser a une option qui serait de tester si le point d'insertion se trouve au niveau du premier caractère et si la touche "delete" est actionner cela enclenche ma macro.
De même si le point d'insertion se trouve sur la dernière ligne et que l'utilisateur appuie sur "entrée", cela lance la macro.
C'est une piste que je vais creuser mais le problème serait qu'il faudrait faire ces tests en permanence ce qui alourdirait le fichier.

Si d'autres pistes vous viennent à l'esprit merci de me les faire parvenir.

Cordialement,
Mathilde
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

Ci-après un document décrivant les macros événementielles en Word... http://www.faqword.com/evenements/evenements.pdf
C'est moins intuitif que sous Excel.
J'aurais bien vu un test à chaque événement (nb de pages avant événement=nb de pages après événement ?), mais ça me paraît compromis.

A+
0
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

J'ai déjà étudié cette faq et je n'ai rien trouvé pouvant résoudre mon problème.

Justement la réponse que je cherche est l'événement en question.

Cordialement,
Mathilde
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

J'avais bien compris, mais les événements disponibles me paraissent trop congrus pour correspondre à ce que tu décris.
En relisant ton besoin, je me demande pourquoi tu ne te satisfais pas de la mise à jour des champs lors de la sauvegarde.

A+
0
MathildeVBA Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

Cela ne me satisfaisait pas à cause du cahier des charges que je dois respecter.
Mais je crois que je ne vais pas avoir d'autres choix en effet.
Merci à vous deux d'avoir pris le temps d'étudier mon problème.

Mathilde
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Parfois il faut remettre en cause le cahier des charges...
Toutefois le fichier de cs_Le Pivert m'inspire quelque chose... à suivre.
0