Discussion :

[YanLeFlan]

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.

[Valtrase]

Bonjour,

• Vérifier vos références dans Outils ~~> Références (si une bibliothèque est manquante la mettre à jour)
• Vérifier le code en faisant un débogage : Menu Débogage ~~> Compiller XXXX

Code :

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

1
2
Sheets("Cartouche").Cells(4, 7).Value = Now
Sheets("Cartouche").Cells(4, 7).NumberFormat = "dd/mm/yyyy"

Ici Sheets fait référence au classeur actif, Attention à cela. (Si plusieurs classeurs sont ouverts)

Juste en passant si vous n'utilisez que la date dans la cellule Cell(4,7). Un simple Date suffit en lieux et place de Now