Bonjour,

Je rencontre une erreur d'automation sur un fichier qui fonctionnait bien jusque là.
L'erreur est la suivante :
Erreur d'exécution '-2147319767 (80028029)' :

Erreur Automation
Référence future non valide, ou référence à un type non compilé
Ca arrive sur mes différentes macro, dont celle-ci, toute simple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
 
Sheets("Cartouche").Cells(4, 7).Value = Now
Sheets("Cartouche").Cells(4, 7).NumberFormat = "dd/mm/yyyy"
 
End Sub

Ou, dans cet extrait d'une macro un peu plus longue, dès le démarrage (le tableau en question, nommé Tab_VRP est filtré, pour voir si la "défiltration" fonctionne) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Transfert()
 
Dim Tournée As String, ToDo As String
 
' DEFILTRAGE TABLEAU RECAP
With Sheets("SuiviAVP")
    If .AutoFilterMode Then
        .Cells.AutoFilter
    End If
End With
 
[...]
L'erreur arrive à la ligne "If . AutoFilterMode Then".

Auriez-vous des pistes pour moi ? D'avance, je vous remercie.