Discussion :

[Geoffray]

Bonsoir,

Il y a quelques temps je postais pour obtenir un code me permettant d'imprimer une page en particulier d'un fichier word à partir d'excel. J'ai obtenu ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
...
  Case "doc"  'Impression des fichiers word
                    If Dir(CheminFichier) <> "" Then
                        Set Doc = w.Documents.Open(Filename:=CheminFichier)
                        w.Visible = True
                        Doc.PrintOut , Range:=4, Pages:=CStr(NumPage)
                       ' OU BIEN Doc.PrintOut , Range:=3, From:=CStr(NumPage), to:=CStr(NumPage)
                        Doc.Close False
                        w.Quit
...

Je n'ai rencontré aucun problème de chez moi. Par contre au travail word ne veut pas s'exécuter dès lors que j'utilise des marges en dehors de la section, ce qui est le cas de la quasi totalité de mes documents. J'obtiens une boite de dialogue m'invitant à annuler l'impression, c'est tout !
J'aimerais au moins obtenir une boite m'avertissant que les marges sont en dehors de la section avec la possibilité d'imprimer ou non comme c'est le cas généralement.

Je me suis dit qu'en rajoutant ce code ca changerait quelque chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
w.DisplayAlerts = wdAlertsNone ' Supprime les alertes de word

Ca ne change rien

Si quelqu'un a une idée il me fera économiser environ 36h à l'année ce qui est loin d'être négligeable.

Merci d'avance pour vos réponses.
Geoffray

[SfJ5Rpw8]

essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

w.DisplayAlerts = WORD.wdAlertsNone

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

w.DisplayAlerts = 0

[Geoffray]

J'essaie ca dès lundi. Ce que je n'arrive pas à comprendre, c'est que chez moi je n'ai jamais de message me disant que mes marges sont en dehors de la section (je vous donnerai le message d'erreur précis).
Je me demande si ca ne vient pas tout simplement d'une option de word voire d'une option de mon imprimante.

Geoffray

[ThierryAIM]

...voire d'une option de mon imprimante.
Geoffray

Peut-etre pas une option, mais la config, si tu testes avec des imprimantes différentes
(une imprimante HP a une marge minmum basse, due au système de chargement par dessous, que n'a pas une Cannon à chargement par le dessus, par exemple)

[Geoffray]

Bonjour à tous,

J'ai résolu mon problème en rajoutant une pause dans ma macro. Ca me permet d'avoir le message m'invitant à imprimer ou non malgré que les marges soient en dehors de la zone d'impression.

j'ai testé par ailleurs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
w.DisplayAlerts = WORD.wdAlertsNone

ca fait planter la macro

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
w.DisplayAlerts = 0

qui a surement un effet mais pas celui escompté.

En tout cas merci ca m'a éclairé et permis de trouver

Bonne journée
Geoffray