Discussion :

[taurus]

bonjour, j'ai un programme sur vb qui vient remplir un fichier word et de faire une impression. Mon problème est que je n'arrive pas à gérer la fermeture de word car l'impression n'est pas terminé d'où message d'erreur " etes vous sûr de vouloir fermer word". Quel procédure serait aproprié à ce pb, une sorte de tempo je pense. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With MyWord
    .Documents.Open "\\Servfichier\Administ\Bureau\Service colis\Devis\" & fiche
    .Visible = True
    .ActiveDocument.PrintOut
    DoEvents
    DoEvents
    DoEvents
    DoEvents
    .ActiveDocument.Close
    DoEvents
    DoEvents
    .Application.Quit
End With

[ouskel'n'or]

Essaie déjà de placer "Application.DisplayAlerts = false" et même Application.ScreenUpDating = false avant de lancer l'impression.
Un doevents suffit
Après le DoEvents, remets Application.DisplayAlerts et Application.ScreenUpDating = true
Si tu as toujours un pb d'impression, dis-nous, on trouvera bien quelque chose

A+

[SfJ5Rpw8]

bonjour, j'ai un programme sur vb qui vient remplir un fichier word et de faire une impression. Mon problème est que je n'arrive pas à gérer la fermeture de word car l'impression n'est pas terminé d'où message d'erreur " etes vous sûr de vouloir fermer word". Quel procédure serait aproprié à ce pb, une sorte de tempo je pense. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With MyWord
    .Documents.Open "\\Servfichier\Administ\Bureau\Service colis\Devis\" & fiche
    .Visible = True
    .ActiveDocument.PrintOut
    DoEvents
    DoEvents
    DoEvents
    DoEvents
    .ActiveDocument.Close
    DoEvents
    DoEvents
    .Application.Quit
End With

tu peu essayer de changer la ligne :

Code :

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

.ActiveDocument.PrintOut (False)

ce qui devrai bloquer la macro tant que l'impression n'est pas terminée...

[taurus]

c'est bon avec le code suivant:

Code :

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

ActiveDocument.PrintOut (False)

merci bcq