OVH Cloud OVH Cloud

Lancer une macro automatiquement à l'impression ?

4 réponses
Avatar
o.0
Bonjour à tous les accros de Word,

J'ai une macro que Géo, le grand ou la grande Géo m'a faite sur mesure
destinée à l'impression des docs ds les bacs 1 et autres en fonction des
sauts de section présents au sein d'un doc.

J'aimerais que cette macro se lance automatiquement à l'impression, afin que
son utilisation soit transparente...

Etant un novice absolu en VBA, je fais appel à vos compétences afin de
m'aider,

Merci beaucoup.

4 réponses

Avatar
Circé
Bonjour !!!

o.0 wrote:
|| Bonjour à tous les accros de Word,
||
|| J'ai une macro que Géo, le grand ou la grande Géo m'a faite sur
|| mesure

Hi Hi Hi !!!! ptdr !!!!

Je connaissais la grande Zoa mais pas la Grande Geo !!!

"Y en a qui marmonnent
Que la grande Geo
Ce serait un homme
On dit ça !
...
Y en a qui racontent
Que dans sa famille
On a parfois honte
Quand elle se maquille"

J'espère que la grande Geo va pas se faire manger par son boa !!! mdr !!!!

Au fait tu dois nommer ta macro :
AutoOpen, pour démarrer à l'ouverture du document en question
AutoExec, pour démarrer à l'ouverture de Word
AutoNew, pour démarrer à la création d'un nouveau document

Circé
http://faqword.free.fr


|| J'aimerais que cette macro se lance automatiquement à l'impression,
|| afin que son utilisation soit transparente...
||
|| Etant un novice absolu en VBA, je fais appel à vos compétences afin
|| de m'aider,
||
|| Merci beaucoup.
Avatar
Geo
Bonjour Circé


[...]
Au fait tu dois nommer ta macro :
AutoOpen, pour démarrer à l'ouverture du document en question
AutoExec, pour démarrer à l'ouverture de Word
AutoNew, pour démarrer à la création d'un nouveau document


Voilà ce que c'est d'être déconcentrée, on répond à côté de la
question.

Bon j'ai répondu dans la conversation précédente, mais après mure
réflexion,
- et c'est très difficile ce soir - ,
je me dis qu'il est aussi simple de mettre le code directement.
Éventuellement pour la faq on pourrait reprendre les explications de
Frédéric Sigonneau (s'il est d'accord bien sûr) en détaillant un peu
le code et son emplacement :

Module de classe Classe1 obtenu par insertion Module de Classe :
Option Explicit

Public WithEvents appWord As Word.Application
Private Sub appWord_DocumentBeforePrint( ByVal Doc _
As Document, Cancel As Boolean)
' code à exécuter avant d'imprimer.
' Cancel = True empêchera l'impression elle-même
' on peut donc conditionner l'impression grâce
' à cette macro
' qui n'apparaît pas Dans Outils macros
' hé hé hé
' exemple : Msgbox "Bonjour Marlène"
End Sub

Module "normal" obtenu par insertion Module
Option Explicit
'Variable de la classe Classe1
Dim W As New Classe1

Sub Enregistrer_AppWord_Events()
Set W.appWord = Word.Application
End Sub

Sub AutoExec()
Enregistrer_AppWord_Events
End Sub

Il faut relancer word ensuite.

--

A+

Avatar
Anacoluthe
Bonjour !

'Geo' nous a écrit ...
Éventuellement pour la faq on pourrait reprendre les explications de
Frédéric Sigonneau (s'il est d'accord bien sûr) en détaillant un peu


Dans la FAQ y'a déjà ce lien là :
http://minilien.com/?9fIHBK5shk

s'cuse-moi j'ai décroché depuis longtemps de ton problème
de bac et puis tu t'en sorts si bien, la grande ;-) Si les
événements vous posent problème, surchargez FilePrint.
A+

Anacoluthe
« L'événement c'est comme la plomberie,
une affaire de spécialiste. »
- Daniel SCHNEIDERMANN

Avatar
Geo
Bonjour Anacoluthe

J'espérais bien que tu pointerais le nez pour le beforePrint qui t'est
si cher :-)

Dans la FAQ y'a déjà ce lien là :
http://minilien.com/?9fIHBK5shk


effectivement, mais quel baratin !
les commentaires du code sont en anglais :-D
et quand on trouve un exemple c'est :
Private Sub
AppThatLooksInsideThisEventHandler_DocumentBeforePrint(ByVal Doc As
Document, Cancel As Boolean)

Il y a de quoi dégoutter plus d'un macroteur.
C'est vraiment pas fait pour une application directe et pratique comme
on en trouve dans la faq.

s'cuse-moi j'ai décroché depuis longtemps de ton problème
de bac et puis tu t'en sorts si bien, la grande ;-) Si les
événements vous posent problème, surchargez FilePrint.


On a traversé le gué, mais les utilisateurs veulent que la c.....ie de
HP soit transparente.
Z'ont qu'à assumer les choix de la direction informatique comme
partout !
M'enfin !
Bon j'irais pas jusqu'à dire d'aller se plaindre chez HP, c'est le
domaine réservé de l'informatique ça.
J'ai bien pensé à ce fileprint (qu'on trouve aussi dans la faq), mais
il faut rajouter un print à la macro et ça fait dégringoler les
conditions de non exécution de la macro qui ont été rajoutées à cause
de marlène et ses copines.
Bref je trouve le Before print plus "propre".

« L'événement c'est comme la plomberie,
une affaire de spécialiste. »
- Daniel SCHNEIDERMANN


Je ne sais pas si son émission le dimanche midi sur la 5 va durer, il
dérange beaucoup de monde, mais ça aide à recevoir les informations
des médias tout autrement.

--

A+