Progressbar pour une copie

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:

---

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

salut
bien que je n'ai pas la réponse a ce que tu demande, je me permet quelque suggestions
le code que tu as est quasi immédiat; une progressbar te le ralentirais a mort puisque tu devrais passer sreenupdating a true pour la visualiser. benefice nul
tu copie ta feuille dans un autre fichier, puis tu reviens la supprimer, il vaut mieux la déplacer dans ce cas là. utilise move after

Code:

---

1 2	Workbooks("Essai.xls").Sheets(ComboBox1.Text).move After:=Workbooks("archive.xls").Sheets(Sheets.Count)

---

ce qui te donnerais

Code:

---

1 2 3 4 5 6

Application.ScreenUpdating = False Workbooks.Open "C:\Documents\archive.xls" Workbooks("Essai.xls").Sheets(ComboBox1.Text).move After:=Workbooks("archive.xls").Sheets(Sheets.Count) Workbooks("archive.xls").Close (True) Workbooks("Essai.xls").close (true)

---

Salut alsimbad

Bien vu !
Merci pour ce rafraichissement de mon code
A +

Citation:

---

Envoyé par kedas

Pour un fameux problème de PROGRESSBAR
...
Comment pourrais je y parvenir ?

---

Tu peux tester en utilisant "ontime". Je ne l'ai jamais fait et, au cours d'une copie, je ne sais pas ce que ça donnerait. Tu peux toujours essayer...
Si tu as besoin de précisions, après avoir consulté l'aide, tu dis, je tâcherai de voir ce qu'on peut faire.
A+

Edit
J'ai un peu modifié un code que j'avais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Fin As Boolean   Sub CopierAvecProgressBar() Fin = False FaitAvancer 'Ton code de copie DoEvents 'Fermeture du/des fichiers DoEvents Fin = True End Sub     Sub FaitAvancer() 'Code pour faire avancer le progressbar d'une fraction du tps de copie en secondes 'Max = Temps total d'une copie en seconde (mesuré ou estimé) '... 'Relance la pendule (mise à jour de OnTime) toutes les secondes If Not Fin Then Application.OnTime Now + TimeValue("00:00:01"), "FaitAvancer" End Sub

---

A+