Bonjour,
j'essai sous Access 2010, de lire des tables pour les Ecrire sous excel 2003 (plusieurs onglet de data pour mettre a jour des tableaux dynamiques) . La fonction d'écriture marche très bien mais ma fonction de mise à jour des tableaux se plante une fois sur deux ( et marche une fois sur deux ) . J'ai un code erreur 462 :" Le serveur distant n'existe pas ou n'est pas disponible"
Si vous pouvez m'aider, je ne trouve aucune solution : voici mon code :
MERCI
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
19
20
21
22
23 Public Function maj_tdbd() Dim pvt As PivotTable Dim sh As Worksheet On Error GoTo ErrorHandler For Each sh In Worksheets If sh.PivotTables.Count >= 1 Then For Each pvt In sh.PivotTables pvt.RefreshTable Next pvt End If Next sh Exit Function ErrorHandler: Call gest_err("Mise à jour des TDB", "xls_liste_osg", Err.Number, Err.Description) End Function
Partager