Discussion :

[Heathcliff_1]

Bonjour,

Je travaille sur un fichier qui permet de générer un tableau de bord dynamique à partir d'une source de données sur le réseau. Pour cela, j'ai créé une macro qui permet d'actualiser ces données de fichier avant de générer les graphiques.

Le problème c'est que la durée d'actualisation dure plus de 90s vu qu'il s'agit de presque de 300 000 lignes de données. Par suite, mon idée, c'est au lieu de laisser l'utilisateur avec la moulinette d'attente excel pendant ce temps, je voulais afficher une forme contenant un message de genre "Merci de patienter..". Pour faire ça, j'ai crée ma forme avec le message dans une autre feuille du classeur, et juste avant l'actualisation des données, j'appelle une macro qui copie cette forme et la colle sur la feuille du tableau de bord ....et une fois l'actualisation est faite, j'appelle une autre macro pour supprimer la forme.

Mon problème c'est que la première macro qui copie colle la forme ne marche pas ! Voici son code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Waiting()
 
    Sheets("Sht2").Select
    ActiveSheet.Shapes.Range(Array("MaForme")).Select
    Selection.Copy
    Sheets("Tableau_de_Bord").Select
    Range("J11").Select
    ActiveSheet.Paste
    ThisWorkbook.Sheets("Sht3").Activate
 
 
End Sub

C'est sur la "Sht3" que les données vont s'actualiser.

Code :

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

1
2
3
4
5
6
7
'Code pour activer la connexion avec la source de données
Call Waiting
 
    ActiveWorkbook.Connections("Table_BD_Semaines").Refresh
 
 
End Sub

J'espère trouver la solution chez vous.

Merci d'avance.

[EricDgn]

Bonjour,

Plutôt que de faire un copier-coller-supprimer, il serait sans doute plus simple de rendre une zone de texte visible le temps du Refresh:

Code :

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

1
2
3
4
 
ActiveSheet.Shapes("ZoneTexte 1").Visible = True
ActiveWorkbook.Connections("Table_BD_Semaines").Refresh
ActiveSheet.Shapes("ZoneTexte 1").Visible = False

Cordialement.

[Heathcliff_1]

Merci pour le retour, mais ça ne marche toujours pas même avec cette méthode de cacher et de faire apparaître la forme. En fait rien ne se passe à part la moulinette d'attente excel, comme si la macro n'existait pas.

[EricDgn]

Bonjour,

A tester: mettre le Refresh dans une autre routine:

Code :

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

1
2
3
4
5
6
7
8
9
...
ActiveSheet.Shapes("ZoneTexte 1").Visible = True
BDrefresh
ActiveSheet.Shapes("ZoneTexte 1").Visible = False
...
 
Sub BDrefresh()
    ActiveWorkbook.Connections("Table_BD_Semaines").Refresh
End Sub

Cordialement.

[Heathcliff_1]

Ça marche pas non plus..
C'est la ligne de code .Refresh qui cause problème, une fois activée la forme n’apparaît plus et je ne comprends pas pourquoi.

[EricDgn]

Pas vraiment d'autre idée sur ce sujet. Juste "comme ça":

Code :

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

1
2
3
4
5
6
7
...
ActiveSheet.Shapes("ZoneTexte 1").Visible = True
ActiveWorkbook.Connections("Table_BD_Semaines").BackgroundQuery = False
ActiveWorkbook.Connections("Table_BD_Semaines").Refresh
Application.CalculateUntilAsyncQueriesDone
ActiveSheet.Shapes("ZoneTexte 1").Visible = False
...

Cdt.

[Heathcliff_1]

Ca marche pas ..
La forme apparaît jusqu'à la ligne de .Refresh comme si c'est un bug qui la fait disparaître.

[Heathcliff_1]

Mon but est de laisser un message à l'utilisateur au lieu de le laisser tout seul avec la moulinette excel.
J'ai essayé même de créer une nouvelle feuille qui contient une forme avec le message, et j'ai tenté de sélectionner cette feuille avant le .Refresh et puis revenir au tableau de bord une fois l'actualisation terminée. Mais malheureusement ça ne marche pas non plus, la feuille d'attente n'est pas sélectionnée.

C'est un truc bizarre que je découvre aujourd'hui avec le VBA.

[Pierre Fauconnier]

Salut

Peut-être insérer Application.ScreenUpdating = False avant d'appeler la proc de refresh, car les lignes de Refresh utilisent les outils d'Excel et je me demande si ça ne prend pas la priorité au niveau de l'affichage.

Peut-être aussi mettre ActiveWorkbook.Connections("Table_BD_Semaines").BackgroundQuery = True et pas False, pour laisser la gestion de l'affichage à Excel et pas à la méthode de mise à jour

Sans certitude sur rien, mais ça prend 5 secondes à tester.