Evenement saut de page

Résolu/Fermé

MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014 - 1 déc. 2014 à 15:33
MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014 - 4 déc. 2014 à 14:01

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

A voir également:

6 réponses

Réponse 1 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
4 déc. 2014 à 11:13

J'ai fait cela avec un timer, essaie le:

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

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
4 déc. 2014 à 13:31

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).

MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014
4 déc. 2014 à 14:01

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

Réponse 2 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
2 déc. 2014 à 10:11

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

MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014
Modifié par MathildeVBA le 2/12/2014 à 13:28

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

Réponse 3 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 déc. 2014 à 10:51

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

Réponse 4 / 6

MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014
3 déc. 2014 à 13:35

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

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

Posez votre question

Réponse 5 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 déc. 2014 à 15:22

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

Réponse 6 / 6

MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014
3 déc. 2014 à 15:59

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

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
3 déc. 2014 à 16:34

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+

MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014
Modifié par MathildeVBA le 4/12/2014 à 08:57

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

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
4 déc. 2014 à 09:30

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+

MathildeVBA Messages postés 19 Date d'inscription mercredi 26 novembre 2014 Statut Membre Dernière intervention 10 décembre 2014
4 déc. 2014 à 11:08

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

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
4 déc. 2014 à 11:46

Parfois il faut remettre en cause le cahier des charges...
Toutefois le fichier de cs_Le Pivert m'inspire quelque chose... à suivre.

Discussions similaires

Continuer numérotation des pages après saut de section

[PIX] Commencer chaque poème sur une nouvelle page

[référencement] Ne pas être référencé

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters