Aide sur macro

Bonjour le forum ,

J'ai une barre de progression sur ma macro dispatch, je souhaiterais la copier ma macro envoie HTML pour suivre l'envoi des mails

Merci d'avance

Bonjour,

tu fais comme pour le module 1 à savoir :

remplace

    For Each ws In Worksheets

par

    i = 0
    For Each ws In Worksheets

        i = i + 1
        BarreDeProgression (i / Worksheets.Count)

et ajoute au début de la macro

    BarreProgression.Show vbModeless
    BarreProgression.Caption = "Veuillez patienter..."

et à la fin

    Unload BarreProgression

Merci beaucoup