[VBA-E]Exécution d'une macro en arrière-plan

Version imprimable

24/04/2006, 18h45
Mirx1

[VBA-E]Exécution d'une macro en arrière-plan

Bonjour,

Mon problème est le suivant :
J'ai un onglet "Interface" comprenant des boutons qui lancent plusieurs macros, celles-ci s'exécutant dans un autre onglet.
Quand la macro se lance, le focus se met sur l'onglet où la macro s'exécute et je n'arrive pas à le faire rester sur le 1er onglet .... (Notamment pour afficher une progression du calcul)

D'avance merci !
24/04/2006, 18h54
Vesta

Tu remet juste apres le lancement de la macro le focus sur l'onglet souaité...

Feuil2.Select

Mais attention que la marco ne contienne pas de ActiveSheet sinon ca ne marchera pas
24/04/2006, 20h57
Mirx1

Citation:

Envoyé par Vesta

Mais attention que la marco ne contienne pas de ActiveSheet sinon ca ne marchera pas

c'est rapé alors ....

merci quand même

tu peu bloquer l'affichage sur feuille initiale et utiliser la barre de status pour afficher la progression ... voir exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
'Bloque l'affichage avant le lancement de la mcro
 Application.ScreenUpdating = False
 Sheets(2).Activate
 For i = 1 To 1000
  Application.StatusBar = i
  DoEvents
 Next
 
 '--- Fin de la macro reviens sur feuille initiale
 ' et libére l'affichage
 Sheets(1).Activate
 Application.StatusBar = False
 Application.ScreenUpdating = True
End Sub

24/04/2006, 23h38
Vesta

Ou alors dans ta macro change tout les références a activesheet en feuil2 (ou le nome de ta feuille) ou se passe la macro
24/04/2006, 23h41
Mirx1

Merci je vais tester ça !
25/04/2006, 17h55
Mirx1

Après essai au taf (et oué pas internet ...) ça marche merci !

Par contre autre problème dans le même genre : une des macros que j'aimerais exécuter en arrière plan ouvre 2 fichiers. Quand je laisse Application.ScreenUpdating à True la macro s'exécute en 30 secondes (2 gros fichiers + de la copie de données ...). Par contre si je le passe à False pour masquer les opérations, le focus reste bien sur mon onglet "Interface" mais la macro met près de deux minutes à se dérouler .... Des idées ?
25/04/2006, 22h54
Mirx1

désolé pour l'up mais pas internet au taf donc pas moyen de voir des réponses demain .... :)
25/04/2006, 23h00
Vesta

Lors de l'ouverture tu devrait pouvoir les ouvrir caché non?

Sinon tu fais

Code:

application.Visible=false

ou qqch comme ca
peu etre que ca marche meme avec le Workbook...
25/04/2006, 23h13
Mirx1

J'arrive à les ouvrir cachés pas de pb ... mais c'est bcp plus lent !
J'essayerai le

Code:

Application.Visible = False

à la place de

Code:

Application.ScreenUpdating = False

pour voir .... C'est pas vraiment la même chose c'est vrai