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 :

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
MERCI