Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1632 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème sur une boucle

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème sur une boucle

n°1009242
armo68
Posté le 11-03-2005 à 09:19:43  profilanswer
 

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)

mood
Publicité
Posté le 11-03-2005 à 09:19:43  profilanswer
 

n°1009262
galopin01
Posté le 11-03-2005 à 09:42:26  profilanswer
 

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
n°1009271
armo68
Posté le 11-03-2005 à 09:52:03  profilanswer
 

MErci GALOPIN01 çà marche Impec


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème sur une boucle

 

Sujets relatifs
[PHP] Problème avec une boucle (RESOLU)Probleme perte de variable en sortie de boucle
problème de boucle[PHP] Problème avec une boucle
[C] problème de boucle[PHP] Problème boucle while et "continue;"
Problème avec un boucle For Each et une fonction recursiveProbleme boucle while[Résolu]
[Firefox et Javascript] Problème avec history.back() qui boucle !Problème avec un boucle
Plus de sujets relatifs à : Problème sur une boucle


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR