Bonjour à tout le forum

Pour un fameux problèmes de PROGRESSBAR j'ai essayé de faire des recherches sur le forum, mais j'ai eu comme impression que cette fonction n'est applicable que sur des calculs.

J'espère que ce n'est qu'une impression de ma part car j'aimerais associé une barre de progression à l'exécution du code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Application.ScreenUpdating = False
Workbooks.Open "C:\Documents\archive.xls"
Workbooks("Essai.xls").Sheets(ComboBox1.Text).Copy After:=Workbooks("archive.xls").Sheets(Sheets.Count)
Workbooks("archive.xls").Close (True)
Application.DisplayAlerts = False
Workbooks("Essai.xls").Sheets(ComboBox1.Text).Delete
Application.DisplayAlerts = True
Comment pourrais je y parvenir ?

Merci et à Bientôt