2 msgbox a suivre

J

JACQUES

Guest
bonsoir
j'ai deux msgbox à suivre pour bien confirmer une tâche ( impression de plus de 35 feuilles )
lorsque la premiere est confirmée elle reste à l'écran et la seconde se superpose dessus

comment faire pour que la première disparaisse de l'écran pour ne laisser que la seconde visible

voici une extrait de la macro :

Sub IMPRIMETOUT()
Application.ScreenUpdating = False
If MsgBox('ETES VOUS SUR DE VOULOIR IMPRIMER TOUS LES CUMULS ANNUELS DE TOUS LES EMPLOYES?', vbYesNo ) = vbYes Then
End If


If MsgBox('MERCI DE BIEN VOULOIR CONFIRMER L'IMPRESSION ....', vbYesNo) = vbYes Then
Application.Run ''SUIVI (version 1).xls'!n'
Application.Run ''SUIVI (version 1).xls'!E'
Application.Run ''SUIVI (version 1).xls'!u'
Application.Run ''SUIVI (version 1).xls'!y'
Application.Run ''SUIVI (version 1).xls'!charr'
Application.Run ''SUIVI (version 1).xls'!vez'
Application.Run ''SUIVI (version 1).xls'!loux'
Application.Run ''SUIVI (version 1).xls'!per'
Application.Run ''SUIVI (version 1).xls'!que'
Application.Run ''SUIVI (version 1).xls'!vin'
Application.Run ''SUIVI (version 1).xls'!bot'
Application.Run ''SUIVI (version 1).xls'!glou'
Application.Run ''SUIVI (version 1).xls'!lef'
Application.Run ''SUIVI (version 1).xls'!remp1'
Application.Run ''SUIVI (version 1).xls'!tran'
Application.Run ''SUIVI (version 1).xls'!ker'
Application.Run ''SUIVI (version 1).xls'!ux'
Application.Run ''SUIVI (version 1).xls'!remp2'
Application.Run ''SUIVI (version 1).xls'!remp3'
Application.Run ''SUIVI (version 1).xls'!remp4'
Application.Run ''SUIVI (version 1).xls'!remp5'
Else

End If



End Sub

merci de votre aide
bonne soirée
jacques
 

Creepy

XLDnaute Accro
Bonsoir le forum,

Normal que ta fenêtre ne se ferme pas tu as mis un :

Application.ScreenUpdating = False

Donc l'affichage de excel ne se réactualise pas !!

Enleve cette ligne et ca devrait rentrer dans l'ordre.

tu peux aussi rajouter entre tes deux lignes suivantes :

End If

If MsgBox('MERCI DE BIEN VOULOIR CONFIRMER L'IMPRESSION ....', vbYesNo) = vbYes Then

un Doevents pourque windows actualise la mémoiremais ce ne devrait pas être nécéssaire !!

++

Creepy
 

Statistiques des forums

Discussions
312 103
Messages
2 085 319
Membres
102 862
dernier inscrit
Emma35400