(VBA-Word) Temporiser une macro [Résolu]

[Cercle]

Bonjour,

J'ai un Userform sous Word 2007 qui me permet d'imprimer une trentaine de documents Word. Le problème est que j'utilise une imprimante réseau qui commence à imprimer après avoir reçu une dizaine de fichiers environ et imprime le tout en désordre.

J'ai pensé à mettre une temporisation après l'envoi de chaque fichier du style "Application.wait" qui fonctione sous VBA-Excel.

Pour Word, j'ai trouvé ce code que je n'arrive pas à faire fonctionner

Code :

1
2
3
4
5
6
7
8
9
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Sub Sleep()
 
   Sleep (10000)   'Implements a 10 second delay
 
End Sub

Auriez-vous une autre suggestion à me faire.

Cordialement,

Cercle

[Heureux-oli]

Je pense à utiliser DoEvents, qui donne temporairement la main au système d'exploitation.

Dans la boucle d'impression, utiliser le DoEvents juste après l'envoi vers l'imprimante.

[Cercle]

Merci, je teste lundi et je reviens.

Cordialement,

Cercle

[Heureux-oli]

Envoyé par Cercle

Merci, je teste lundi et je reviens.

Cordialement,

Cercle

Lundi, on va devoir attendre alors!

[ouskel'n'or]

Envoyé par Cercle

Pour Word, j'ai trouvé ce code que je n'arrive pas à faire fonctionner

Code :

Auriez-vous une autre suggestion à me faire.

Oui, change le nom de ta procédure

Code :

1
2
3
Sub test()
   Sleep (10000)   'Implements a 10 second delay
End Sub

Juste pour info, DoEvents devrait suffire, comme le dit Euh ! Reuh !...

[Cercle]

Bonjour les amis du VBA,

Merci beaucoup pour vos réponses. J'ai testé le DoEvents aini que la macro modifiée pour le Sleep. Ca ma permis de faire des tests et de constater que vos suggestions fonctionnent bien.

Seulement voilà, je pensais qu'en donnant la main au système avec le DoEvents et en ralentissant la procédure avec le Sleep, cela libérerait le spool de l'imprimante. J'ai testé sur 2 pc et 3 imprimantes différentes et le résultat est désespérément le même; les impressions sortent dans le désordre.

Ce que je n'arrive pas à comprendre, c'est que j'ai le même Userform sur excel et l'impression démarre immédiatement.

J'ai cherché une solution partout sur le Web et comme personne ne rencontre le même problème, il faut croire que je n'ai pas de chance.

S'il s'agit de chance...

Je joins mon fichier en espérant que quelqu'un se prendra la tête à ma place. Pour ma part, je n'en peux plus..

Amicalement,

Cercle

[ouskel'n'or]

Bonsoir Cercle,
Je passais par là par hasard...
Pour ton pb, ajoute un DoEvents ici

Code :

1
2
3
    ActiveDocument.PrintOut
    DoEvents
    ActiveDocument.Close

Ensuite, pour HF, inutile d' en faire une fonction, une simple sub suffit.
Je n'ai pas plus creusé.
A+

[Cercle]

Bonsoir les amis du VBA,

Merci pour les réponses. J'ai réglé le pb en convertissant les fichiers doc en pdf et en utilisant un Userform sur excel.

J'aurais encore une question. Avec mes OptionButton, je lance chaque fois une macro différente alors qu'il n'y a que les fichiers à imprimer qui changent.

J'ai essayé après le "For i = 1 to Nbre" de faire des call sub. Ca ne fonctionne pas. Est-il possible de raccourcir ce code.

Merci d'avance à ceux qui voudront bien m'apporter leurs conseils.

Cordialement,

Cercle

P.S. Je me rends bien compte que ce n'est pas le bon forum, mais bon, comme j'ai commencé ici

[Heureux-oli]

Voilà le code que tu as pour chacune de tes procédures.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Sub PPF()
 
    Dim msg, titre As String
    Dim ret As String
    Dim vDossier As String
    vDossier = (ThisWorkbook.Path & "/")
 
    titre = " Impression en " & Nbre & " exemplaire(s) "
    msg = " Voulez-vous imprimer maintenant ? "
    ret = MsgBox(msg, vbYesNo, titre)
 
    If ret = vbYes Then
    Cancel = False
    End If
    If ret = vbNo Then
    Cancel = True
    Exit Sub
    End If
 
    For i = 1 To Nbre
    ShellExecute FindWindow("XLMAIN", Application.Caption), "print", _
    vDossier & "1.pdf", "", "", 1
    Next i
'
End Sub

Seule cette ligne change !
vDossier & "1.pdf", "", "", 1

Code :

1
2
3
4
5
Public Sub PPX(Fil as string)
...
...
...
vDossier & Fil, "", "", 1

Avec l'appel qui donne ceci :

Code :

1
2
3
If OptionButton1.Value = True Then Call PPX("1.pdf")
If OptionButton2.Value = True Then Call PPX("2.pdf")
....

Tu n'as qu'une seule procédure PPX.
....

Mais, je ne comprends as pourquoi tu fais une boucle pour l'impression !

Si tu utilises la méthode PrintOut, tu peux spécifier le nombre de copie que tu veux imprimer.

Code :

1
2
 
activeworkbook.PrintOut(,,nbreCopie)

Avec nbreCopie une variable qui contient le nombre de copies.

[Cercle]

Bonsoir les amis du VBA,

"Bien heureux les hommes qui comme vous, possèdent les connaissances"

Un grand merci à Heureux-oli et ouskel'n'or pour les réponses. J'ai fait les changements et ça fonctionne impec.

En ce qui concerne la boucle, je l'ai fait par facilité. Mais maintenant, j'ai mis une variable et c'est mieux.

Encore merci et A+

Cercle