Problème sur une boucle

Problème sur une boucle - VB/VBA/VBS - Programmation

Marsh Posté le 11-03-2005 à 09:19:43    

Bonjour à tous
J'ai fait une p'tite boucle qui m'imprime et ferme tous les documents ouverts sous Word. le problème, c'est quand y'a plus de docs, la macro plante alors que je voudrais qu'elle ferme WORD. Elle se présente comme suit :
 
Sub impr()
     While ActiveDocument <> ""
       ActiveDocument.PrintOut
       ActiveDocument.Close
     Wend
        Application.Quit
End Sub
 
Merci de me dire où est le problème (comme vous le voyer je débute en VBA)

Reply

Marsh Posté le 11-03-2005 à 09:19:43   

Reply

Marsh Posté le 11-03-2005 à 09:42:26    

Bonjour,
je ne peux pas te dire ou est le problème, car je ne bricole pas trop avec Word.
Mais la solution en VBA me semble polyvalente
 
Sub impr()  
On Error GoTo GESTERR
While ActiveDocument <> ""  
ActiveDocument.PrintOut  
ActiveDocument.Close
Wend
Application.Quit  
Exit Sub
GESTERR:
Application.Quit
 
End Sub
Ok ?


Message édité par galopin01 le 11-03-2005 à 09:42:56
Reply

Marsh Posté le 11-03-2005 à 09:52:03    

MErci GALOPIN01 çà marche Impec

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed