Fichier en "sous-marin" et rafraîchissement auto

Bonjour,

Au travail j'ai un fichier qui tourne a part, et qui se met a jour automatiquement.

Mais cette mise a jour implique que mon fichier excel revient en premier plan de l'écran

....
....
Dim topdec As Date, topatt As Date, topdiff As Date
topdec = Time

Dim unemin As Date
unemin = "00:01:00"

If Range("P1") <> "Dernier refresh à" Then GoTo line2

Workbooks("TEST.XLS").Activate
Sheets("TEST").Activate

'On ne lance un  refresh que si le dernier date d'il y a plus d'une minute

If Time() <= Range("Q1") + unemin And Time() >= Range("Q1") Then End
hrTop = Time()
...
...
...

Workbooks("TEST.XLS").Activate

Sheets("TEST").Activate

ces deux lignes mettent mon fichier excel en premier plan

Comment faire pour que ma macro tourne correctement ("en sous marin") sans mettre le fichier au premier plan.

Désolé pas de fichier il tourne avec un serveur.....

Merci pour vos réponse

Bonjour,

Tu supprimes les Select et Activate et tu remplaces par ceci :

With Workbooks("TEST.XLS").Sheets("TEST")
    If Time() <= .Range("Q1") + unemin And Time() >= .Range("Q1") Then End
End With

Bonjour,

Salut Theze !

Je pense que Exit Sub serait plus approprié que End...

(A la suite des modifs proposées par Theze, cela va de soi !)

Cordialement

Bonjour,

Sub Macro1()
Dim topdec As Date, topatt As Date, topdiff As Date
Dim unemin As Date, wk As Workbook, sh

Set wk = Workbooks("TEST.XLS")
Set sh = wk1.Sheets("TEST")

topdec = Time
unemin = "00:01:00"

If sh.Range("P1") <> "Dernier refresh à" Then GoTo line2

'On ne lance un  refresh que si le dernier date d'il y a plus d'une minute

If Time() <= sh.Range("Q1") + unemin And Time() >= sh.Range("Q1") Then End
hrTop = Time()

End Sub

Hello MFerrand !

Tu as tout à fait raison, je n'ai pas rectifié mais quand je vois des "GoTo line2" que je n'emploi jamais (pas plus que "End" d'ailleurs !) à par pour un gestionnaire d'erreur, je n'e me suis pas plus creusé la tête pour le reste du code

Il est vrai qu'il n'y a qu'un fragment, donc... ?

Mais End, que je déconseillerais aussi d'utiliser, se révèle avoir souvent des effets qu'on n'attend pas et qui font pas mal chercher...

salut merci pour vos réponses

le code n'ai pas entier bien sur, j'ai pris juste le fragment que je n'arrivais pas a modifier

Merci encore pour vos réponse