XL 2016 VBA-Run time error 2147319767

[alexamel88]

Bonjour,

J'utilise un fichier excel depuis très longtemps, et je n'ai jamais eu de soucis jusque aujourd'hui. Quand j'ouvre le fichier , le script VBA m'indique une erreur:
Run-time error-2147319767(80028029): Automation error Invalid forward reference, or reference to uncompiled type.

Quand je clique sur Debug voici ce qui apparait:

'Boekingen_orders_Correctie_1
Sheets("Boekingen_orders_Correctie_1").Activate
ActiveSheet.Unprotect
ActiveSheet.Range("$A$1:$M$108").AutoFilter Field:=5

Je ne connais rien en VBA, c'est quelqu'un d'autre qui a fait le script, donc si vous pouvez m'aider ce serait super.

Merci à tous!!!!

 

[Ikito]

Bonjour,

Quelle ligne est surlignée quand tu lances le débug ?

 

[alexamel88]

Bonjour,

Quelle ligne est surlignée quand tu lances le débug ?

Hello c'est la ligne suivante:
Sheets("Boekingen_orders_Correctie_1").Activate

Merci d'avance

 

[Ikito]

La feuille Boekingen_orders_Correctie_1 a-t-elle été renommée à tout hasard ?

 

[alexamel88]

La feuille Boekingen_orders_Correctie_1 a-t-elle été renommée à tout hasard ?

non j'ai déja vérifié

 

[dysorthographie]

Bonjour,

J'utilise un fichier excel depuis très longtemps, et je n'ai jamais eu de soucis jusque aujourd'hui

Que c'est il passé aujourd'hui ?
Changement de machine, changement de version Windows et/ou Excel, une utilisation chez ton client ou sur un autre machine ?

Installation de mise à jour?

Quand ça fonctionne depuis très longtemps et que ça plante du jour au lendemain on peut penser à un bug environnementale !

 

[Dudu2]

Bonjour,.
Sheets("Boekingen_orders_Correctie_1").Activate
n'est pas qualifié correctement.
S'il y a un autre classeur actif, la feuille à activer n'est pas celle qu'on croit.
Même si ce n'est pas la cause du problème il faut toujours qualifier les objets par prudence.
Par exemple:
ThisWorkbook.Worksheets("Boekingen_orders_Correctie_1").Activate

 

[Dudu2]

ça semble être un problème VBA.
Essaie de remplacer:
Sheets("Boekingen_orders_Correctie_1").Activate
Par
Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets("Boekingen_orders_Correctie_1")
WS.Activate

 

[AMV2020]

Bonjour,
j'ai la même erreur :
Workbooks.Open Filename:=Sheets("CONSOLE").Range("C6").Value, UpdateLinks:=False
Set Templan = ActiveWorkbook

Templan.Activate <=== LA LIGNE SURLIGNEE lors du BUG

 

[AMV2020]

C'est bon problème résolu, j'ai rajouté un dim Templan as workbook