Barre de progression et Private Sub Workbook_BeforeClose(Cancel As Boolean)

[Nonno 94]

😕 😕 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 ?

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.

 

[Nairolf]

Re : Barre de progression et Private Sub Workbook_BeforeClose(Cancel As Boolean)

Salut Nonno 94,

Dirige-toi vers ce post et peut-être que tu trouveras ton bonheur:
https://www.excel-downloads.com/threads/creer-une-barre-de-progression-avec-un-userform.191908/

 

[Nonno 94]

Re : Barre de progression et Private Sub Workbook_BeforeClose(Cancel As Boolean)

Merci d'avoir répondu.

dans ces exemples, il y a des "progressions" ou des boucles; ce qui n'est pas le cas lorsque l'on enregistre, copie et ferme un fichier comme dans le code que j'ai communiqué.
Ce que je souhaite est une barre de progression plus performante que celle d'Excel qui s'affiche en bas, à gauche de l'écran pendant ce traitement.

Nonno 94.

 

[Nairolf]

Re : Barre de progression et Private Sub Workbook_BeforeClose(Cancel As Boolean)

Bon, j'ai pas mal cherché mais pour l'instant je sèche.

Tu peux essayer de chercher vers les pistes suivantes:
- MS progressbar
- statusbar

 

[Nonno 94]

Re : Barre de progression et Private Sub Workbook_BeforeClose(Cancel As Boolean)

Bonjour Nairolf et merci pour vos recherches.

Je me remets "au travail" ce matin et vais explorer les pistes que vous me proposez. Je vous tiendrai in formé de mes "avancées !!".

Bonne journée.
Cordialement.

Nonno 94.