Discussion :

[kedas]

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

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ce qui te donnerais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[kedas]

Salut alsimbad

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+