Bonjour le Forum,
ne parvenant pas, malgré tous mes efforts, à trouver la solution, pouvez-vous m'indiquer quelle modification de code permettra d'afficher une barre de progression pendant l'exécution de la la macro dont code ci-dessous ?
Je vous remercie par avance pour vos réponses et vous souhaite une bonne journée.
Cordialement.
Nonno 94.
ne parvenant pas, malgré tous mes efforts, à trouver la solution, pouvez-vous m'indiquer quelle modification de code permettra d'afficher une barre de progression pendant l'exécution de la la macro dont code ci-dessous ?
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Cours 3 mois").Visible = False
Sheets("Objectifs JDF 3 mois").Visible = False
Sheets("Consensus").Select
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Edmond\Documents\Médoc (Excel 2003)\R'sIG\Copies et Matrices (Excel 2003)\Copies\Consensus - Potentiels 3 mois Copie.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'Range("A1").Select
Dim sht As Worksheet
Dim MotPass
MotPass = InputBox("Saisissez le mot de passe :", "R'sIG")
Dim bonjour As String
bonjour = MsgBox(prompt:="Le R'sIG vous remercie de votre visite et espère vous revoir bientôt.", Title:="Espace 'Rékia's I G'")
'décommenter la ligne suivante pour que le programme se termine après l'affichage du message
'unload me
End Sub
Je vous remercie par avance pour vos réponses et vous souhaite une bonne journée.
Cordialement.
Nonno 94.