Discussion :

[Sebastien_INR59]

Bonjour,

J'ai sur une feuille Excel, un tableau croisé dynamique qui va chercher les données dans une table Access.

Cependant, je suis obligé à chaque ouverture du fichier Excel de mettre à jour le tableau manuellement via une barre d'outils.


Est-ce qu'il serait possible de mettre à jour ce tableau automatiquement à l'ouverture du fichier Excel ?

Pouvez-vous me dire comment faire en sachant que je suis débutant sur Excel ?


Cordialement.
Sébastien

[Sebastien_INR59]

Je ne trouve rien d'intéressant dans l'aide...

[ouskel'n'or]

T'as pas dû chercher beaucoup

Code :

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

1
2
3
4
5
6
7
sub calculAuto()
    with Application
        .calculation = xlAutomatic 'xlManual
        .MaxChange = 0
        .calculateBeforeSave = True     'False
    end with
End sub

Calculate : Cette méthode calcule tous les classeurs ouverts, une feuille de calcul particulière dans un classeur ou une plage de cellules déterminée dans une feuille de calcul, comme indiqué dans le tableau ci-dessous.
CalculateBeforeSave : Cette propriété a la valeur True si les classeurs sont calculés avant d'être enregistrés sur disque (si la propriété Calculation a la valeur xlManual)
Calculation : Objet Application*: renvoie ou définit le mode de calcul. Il peut s'agir de l'une des constantes XlCalculation suivantes*: xlCalculationAutomatic, xlCalculationManual, ou xlCalculationSemiautomatic.

Pour l'aide, ne pas se contenter de faire F1, F1 ne fait pas "Rechercher" à notre place

[Sebastien_INR59]

Bonjour,

Voila ce que j'ai mis dans un module :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Activate()
    With Application
        .Calculation = xlAutomatic 'xlManual
        .MaxChange = 0
        .CalculateBeforeSave = True     'False
    End With
End Sub

Cependant mes données externes ne sont pas rafraîchies au démarrage de l'application.

[Sebastien_INR59]

Les données externes dont je parle sont des données que j'importe d'une table Access.

Je n'est pas utilisé ActiveWorkbook... car mon classeur excel est en tache de fond.

Pour informations, j'ai donc ceci:

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
    ' Rafraîchir le classeur à l'ouverture
    ThisWorkbook.RefreshAll
 
End Sub