Discussion :

[jérémyp8]

Bonjour,

Je pense que mon Pb a été déjà évoqué et même résolu plusieurs fois ici mais j'ai pas trouvé un exemple qui répond vraiment à mon besoin

Ce que je souhaite faire c'est évidement d'afficher un message d'attente avec une image (un sablier pour représenter le temps qui coule) et cela avec une vue agréable un peu grande sur l’écran pour l'utilisateur qui attend en utilisant bien sur un UserForm



Merci

[PMO2017]

Bonjour,

Je crois que c'est impossible, Excel ne peut traiter 2 procédures simultanément.
Puissent les contributeurs me démentir.
****
Cependant, il existe une piste envisageable en passant par un HTA (fichier HTML Application).
Faites moi signe si cela vous intéresse, j'ai un exemple tout fait d'une barre de progression qui utilise cette technique et je peux le mettre en pièce jointe. C'est compliqué et cela ne fonctionnera que sur un PC mais vous aurez le pied à l'étrier pour le parfaire selon votre idée.

[EngueEngue]

Tu peux faire avancer un compteur pendant ta Routine...

Code :

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

1
2
3
4
5
For i = 1 to 1000000
'tescalculs
Compteur=compteur+1
Textbox = compteur/1000000 & "%"
Next i

Mais ce que tu gagnes en joli, tu le perds en rapidité puisqu'il fera 1000000 opérations inutiles et 1000000 actualisations de la carte graphique :S Donc affiche un userform avec une image calcul en cours en GIF si tu veux que ce soit stylé et basta

[Marc-L]

Bonjour,

c'est possible via un UserForm en mode non modal …

[jérémyp8]

Bonjour PMO2017

Merci pour ta réponse

Oui oui donne moi STP cet exemple et si c'est possible explique moi un peu comment le mettre en place

Mercii

[PMO2017]

Voilà le bébé.

[jérémyp8]

Re PMO2017

Ton exemple est super intéressant, c'est ce que je voulais faire mais je ne sais pas comment l'adapter à ma macro qui se trouve dans mon fichier Excel A

Je m'explique :
Dans mon fichier Excel A j'ai une macro qui serre a ouvrir un autre fichier Excel B
A l'ouverture de ce fichier Excel B par la macro du fichier Excel A il fait un traitement de données avec une macro puis il se ferme

Ce que je veux faire c'est d'afficher le message d'attente que tu m'as passé durant tout le temps que le fichier B reste ouvert puis disparait a sa fermeture

Voilà ma macro

Code :

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

1
2
3
4
5
6
7
8
Sub MonTraitement()
Dim wb As Workbook
Dim ws As Worksheet
'Set wb = Workbooks.Open("C:\Users\SDVS1733\Desktop\Mondossier\FichierExcelB.xlsm")
Set ws = wb.Worksheets(1)
wb.Saved = True
wb.Close
End Sub

Merci

[PMO2017]

Bonjour jérémyp8,

Ce que j'ai compris :
1) un classeur maître qui ouvre un classeur secondaire
2) un classeur secondaire qui lance une macro à son ouverture
Une fois le traitement de cette macro achevé, le classeur secondaire se ferme et rend la main au classeur maître.

Si c'est bien cela, alors une piste avec l'exemple en pièce jointe.
Il faudra adapter le chemin et le nom du classeur secondaire dans l'instruction suivante

Code :

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

Set WB = Workbooks.Open("C:\B.xlsm")   'chemin et nom du fichier à adapter

Il est impératif de faire une gestion d'erreur. Ceci est expliqué dans le code du module mod_Traitement

Bon courage et à plus.

[jérémyp8]

Bonjour PMO2017

Un grand merci pour toi ....C'est tout à fait ce que je voulais faire

Juste une dernière petite chose
Es ce que c'est possible d'exécuter ma macro pour ouvrir le fichier B ainsi que le message d'attente automatiquement quand j'ouvre le fichier A


Quand j'exécute manuellement la macro tout ce passe bien c'est-à-dire que le fichier B s'ouvre avec le message d'attente pendant le traitement mais quand je veux exécuter la macro automatiquement quand j'ouvre le fichier A le traitement se fait mais sans le message d'attente

Jai essayé toutes ces possibilités

Code :

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

1
2
3
4
5
 
Private Sub Workbook_Open()
'Call LanceTraitementAvecProgressionbarre
'Call MonTraitement
End Sub

Merci

[PMO2017]

Bonjour jérémyp8,

Essayez plutôt ceci pour la raison qui est signalée dans le code

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
'--- On est obligé de diffèrer la procédure de traitement ---
'--- pour l'obtention du rafraîchissement des fenêtres    ---
Application.OnTime Now + TimeValue("00:00:01"), "LanceTraitementAvecProgressionbarre"
End Sub

[jérémyp8]

C'est Génial

Encore une fois un enorme Merci pour toi...Porte toi bien

[patricktoulon]

Bonjour PMO2017

exellent ton idée de progressbar dans un hta dynamique
avantage 1 independante de l'application excel
avantage 2 possibilité de la transformer avec les apis
un shell pour demarer
un sendmessage pour fermer
un kill pour jetter le fichier

rien a dire sinon que +2 points

un tout petit regret cependant

je regrette que tu ne soit pas aller plus loin dans la construction de ton hta
avec un peu de CSS
on pourrait faire un jolie truc

Au plaisir

[PMO2017]

Salut patricktoulon,

un tout petit regret cependant

je regrette que tu ne soit pas aller plus loin dans la construction de ton hta
avec un peu de CSS
on pourrait faire un jolie truc

Je suis plutôt du genre cambouis. Je m'intéresse plus à la motorisation et il est vrai que je ne fait pas dans la joliesse.
Maintenant, à chacun de faire évoluer selon son sens et ses goûts esthétiques.

Merci pour l'attribution des points et à plus.