[VBA-Excel] Message d'avertissement "You must select a shape"

Invité · 27/11/2006, 18h00

Bonsoir à tous,

j'ai un petit problème avec la fonction refreshall.

Je l'utilise pour rafraîchir tous les pivots d'un classeur et lorsque que je lance la macro qui contient cette fonction il me renvoie ce message à chaque fois qu'il met à jour un pivot (enfin, j'ai l'impression).

D'autre part, j'ai spécifié que je ne voulais pas de message d'alerte durant l'execution de la macro :

Code :

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

Application.DisplayAlerts = False

C'est trés curieux. Je ne comprend pas où est l'erreur.

J'utilise des boutons pour lancer diverses macro dans mon classeur.

Quelqu'un sait d'où peut venir le problème ?

**ouskel'n'or** · 27/11/2006, 18h44

Si le message que tu as provient d'une erreur, Application.displayAlerts ne l'empêchera pas.
Tu peux montrer ton code ?
A+

Invité · 27/11/2006, 19h52

Hum ça na pas l'air d'être une erreur, la boîte de dialogue me permet de cliquer sur "OK" et la macro continue normalement.

Mon code contient simplement les lignes suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Update()
 
Pivots = MsgBox("Do you want to refresh the data ?")
 
If Pivots = vbYes Then
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
ThisWorkbook.RefreshAll
 
End if
 
Application.DisplayAlerts = True
Application.ScreeUpdating = True
 
End Sub

**ouskel'n'or** · 27/11/2006, 21h57

Chez moi (VBA97) pas de pb, aucun message. Si tu es sur VBA2003, peut-être un problème de niveau de sécurité.
Essaie aussi d'enlever

Application.ScreenUpdating = False

A tout hasard
Je fais un essai sur VBA2003
A+

Ok aussi sur VBA2003. A défaut d'une autre explication, j'en reviens à mon hypothèse de niveau de sécurité