Discussion :

[GorMsoN]

Bonjour (encore )

j'ai un nouveau soucis, j'ai dans ma base un extract à partir de fichier excel à réaliser. Ces extracts peuvent prendre du temps donc j'ai créé un formulaire avec 3 progressbar.

Pour cela j'ai ajouter un objet "Microsoft ProgressBar Control, Version 6.0".

Je fouine sur le site developpez... et je trouve une explication http://access.developpez.com/faq/?pa...rs#ProgressBar et je me dit super simple let's go.

Premier probleme lorsque dans mon code VBA j'appel mon control ( MonFormulaire.MaProgressBar) la liste des propriétés ne me propose pas de définir les valeur min et max... comble du truc, la mise en forme auto de vba me donne le résultat suivant :

Code :

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

1
2
3
Form_ProgressStatus.ProgressTotal.min = 0
Form_ProgressStatus.ProgressTotal.Max = oRset.RecordCount

Remarquez que la majuscule n'est pas présente sur le .min...

Bref, lors du premier test (oui je laisse tout comme ça) je lance la routine, et tout marche mes progress bar reflètent parfaitement l'exécution de mon code je suis heureux... je decide d'alléger mon code en reduisant le nombre de mise à jour du formulaire (je sors le .recalc d'une boucle for) et là tout merdouille... plus d'affichage alors que la valeur envoyée à la progressBar evolue bien, que le .recalc est toujours là et que le doevents aussi.

J'en viens à me demander si il n'y a pas une référence particulière à ajouter à VBA pour que cela marche mais je n'ai rien trouvé.

Est ce que la progressbar que j'utilise n'est pas la bonne ? est ce que les borne min et max sont inaccessible? bref... chuis paumé

Merci d'avance de votre aide.

[nico84]

Bonjour (encore aussi )

Plus simple quoique probablement moins joli, j'utilise pour cela syscmd :

Code :

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

1
2
3
r = SysCmd(1, "Export vers excel", rst.RecordCount) 'initialise
r=syscmd(2,i) 'progression
r=syscmd(3) 'fini

[GorMsoN]

bonjour,

J'avais vu cette méthode aussi mais je préfère le rendu d'une progressbar pour ce que j'ai à en faire.

Sinon dans la série je pige vraiment plus rien, ce matin je relance mon programme avec à la suite du form.recalc un tit form.repaint et là tout fonctionne.... MAIS car il y a toujours un mais, je déleste mon code en sortant le tout d'une boucle for et pouf... marche plus encore une fois...

Je vais devenir fou...

[GorMsoN]

Bon je pense avoir réussi à atteindre une version stable.

Mon instruction :

Code :

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

DoCmd.OpenForm "ProgressStatus", , , stLinkCriteria

doit intervenir avant toute modification de propriétés des progressbar contenues dans le-dit formulaire.

C'est en faisant ça que les progressbar evoluent correctement.

Si quelqu'un est capable de confirmer ou justifier je suis preneur.

A++