[VBA-E] : Excel et word (Zone d'impression)

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:

---

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:

---

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.:mouarf:

Merci d'avance pour vos réponses.
Geoffray

essai

Code:

---

w.DisplayAlerts = WORD.wdAlertsNone

---

ou

Code:

---

w.DisplayAlerts = 0

---

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

Citation:

---

Envoyé par Geoffray

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

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:

---

1 2	w.DisplayAlerts = WORD.wdAlertsNone

---

ca fait planter la macro

et

Code:

---

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 :lol:

Bonne journée
Geoffray