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