progressbar pendant calcul

Bonjour,


J'ai un fichier ppt dans lequel l'utilisateur entre des valeurs puis lance une macro qui va ouvrir un fichier excel en arrière plan et lancer un macro de ce fichier excel. cette dernière macro (excel ) calcul plusieurs coordonnées de points et importe ensuite les valeurs calculées dans le fichier ppt initial.

Voici mon pb:
la macro excel fait beaucoup de calcul et peut durer 20min, et pour ne pas que l'utilisateur pense qu'il ne se passe rien en arrière plan et que l'ordinateur a planté, je voudrai faire apparaitre une progressbar qui s'incrémente à chaque étape du calcul (de la macro excel).

Je sais comment créer une userform avec une progressbar, et je sais comment la faire évoluer

Initaialement j'avais essayé de faire cette progressbar dans une userform du ppt et de l'incrémenter depuis la macro ppt, mais vu que le calcul se fait dans excel je ne pouvais pas faire les deux en simultané.

Mes questions:
on m'a donc deja di qu'il fallait que je mette les ligne de commande qui incrémentent ma progressbar dans la macro excel.
- je ne sais pas si il faut quand même que je mette ma progressbar dans le ppt ou alors si je la met dans une userform excel et la faire s'afficher par dessus mon ppt?
- mais si je laisse ma progressbar dans la userform ppt et que je la commande depuis la macro excel, comment est ce que je dois faire pour commander la la valeur de la progressbar ppt depuis excel?


voici ce que je faisais pour commander la valeur de la progressbar (ppt) depuis la macro ppt:

Code:

---

1 2 3 4 5 6

Dim frm As New Progress_Bar frm.Show vbModeless   'A chaque étape de calcul, je voudrais mettre : frm.ProgressBar1.Value = frm.ProgressBar1.Value + 1 frm.ProgressBar1.Refresh

---

Merci d'avance

Yves

Bonjour,

j'ai essayé de faire affiché la userform avec la progressbar depuis la macro excel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim objPPTApp As PowerPoint.Application Dim objPPT As PowerPoint.Presentation   Dim Nom_Fichier As Variant   Nom_Fichier = ActiveWorkbook.Path & "\Cinematique.pps"   Set objPPTApp = GetObject(, "Powerpoint.Application")   Set objPPT = objPPTApp.presentations(Nom_Fichier)   objPPTApp.Run "LancementProgressBar"

---

elle s'affiche bien par contre j'ai l'impression qu'elle devient active et donc que la macro excel ne coninue pas après le bout de macro ci-dessus, car ensuite j'ai mis ce bout de code pour voir si je peu faire évoluer la valeur de la progressbar:

Code:

---

1 2 3 4 5 6 7 8 9

Dim frm As Variant frm = objPPTApp.VBE.ActiveVBProject.VBComponents.Progress_Bar Dim MaxCount As Variant MaxCount = 18 frm.ProgressBar1.Max = MaxCount frm.ProgressBar1.Value = frm.ProgressBar1.Value + 1 frm.ProgressBar1.Refresh

---

mais rien ne se passe, même si je me doute que la ligne souligné ne doit pas etre la bonne.

Merci de m'aider...

Yves

Bonjour

Je me demande si ce n'est pas un problème d'exécution des affichages...

Essaye de mettre

Code:

---

DoEvents

---

Avant le code qui doit être "prioritaire" c'est à dire :

Code:

---

1 2	DoEvents objPPTApp.Run "LancementProgressBar"

---

Ou alors:

Code:

---

1 2 3

DoEvents frm.ProgressBar1.Value = frm.ProgressBar1.Value + 1 frm.ProgressBar1.Refresh

---

Enfin, j'dis ça, j'dis rien ...

bonjour,

ca ne marche pas, mais en plus du "do events" la ligne de code:

Code:

---

frm = objPPTApp.VBE.ActiveVBProject.VBComponents.Progress_Bar

---

n'est surement pas bonne. En fait je n'arrive pas a atteindre la valeur de la progressbar du ppt