Traiter une erreur de compilation en VBA

[tontonexcel]

Bonjour à tous,

Je suis en train de tester une macro qui doit fonctionner sous Excel 2007 et versions supérieures

Fonctionnement très simple : Désactiver l'affichage du volet dans un graphique croisé dynamique

Sur Excel 2007 : ActiveWorkbook.ShowPivotChartActiveFields = False

Sur Excel 2010 : ActiveChart.ShowAllFieldButtons = False

J'ai donc fait un petit test avec Application.Version pour tester la version d'Excel, mais le souci est que la syntaxe 2010 n'existe pas dans 2007 à l'exécution j'ai une erreur de compilation

Comment est-il possible de contourner cela ?

Je joins éventuellement le fichier la macro est événementielle dans la feuille Histogramme

Merci à vous

 

[Dranreb]

Re : Traiter une erreur de compilation en VBA

Bonjour.

Vous pouvez au moins limiter les dégâts (en termes d'adaptations à effectuer) à l'aide de directives de compilation conditionnelle #Const, #If, #ElseIf, #Else et #End If, même s'il n'existe hélas pas de constantes de compilation conditionnelles toutes prêtes dépendant de la version d'Excel, ce qu'il reste à vérifier. Il y en a qui dépendent de la version de VBA: VBA6, VBA7. À tester.

 

[tontonexcel]

Re : Traiter une erreur de compilation en VBA

Bonjour Dranreb

Je me doutais malheureusement que cela allait être un peu compliqué car effectivement le compilateur fait bien son travail (trop bien )... Peut-être dans une prochaine version !

Merci en tout cas pour la réponse !

 

[Dranreb]

Re : Traiter une erreur de compilation en VBA

Essayez quand même ça à tout hasard, au cas où ça résoudrait quand même le problème:

#If VBA7 Then
   ActiveChart.ShowAllFieldButtons = True
#Else
   ActiveWorkbook.ShowPivotChartActiveFields = True
#End If

Si ça ne le résout pas il restera toujours la possibilité d'utiliser un autre nom initialisé préalablement par #Const Vers2010 = 1

 

[tontonexcel]

Re : Traiter une erreur de compilation en VBA

Eh bien ça fonctionne Franchement je ne connaissais pas du tout ces conditions, juste pour ma connaissance et pour voir si j'ai bien compris, le # teste le code VBA en cours de compilation ?

Merci beaucoup dans tous les cas et bon dimanche !!

 

[Dranreb]

Re : Traiter une erreur de compilation en VBA

Oui, un peu. Ce sont des directives de compilation conditionnelles. Si l'expression (qui doit être composée de constantes de compilation conditionnelles) derrière un #If est nulle toutes instructions derrières le Then sont ignorées jusqu'à rencontre d'un #ElseIf, #Else ou #End If