Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA-Run time error 2147319767

alexamel88

XLDnaute Junior
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!!!!
 

dysorthographie

XLDnaute Accro
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 !
 
Dernière édition:

Dudu2

XLDnaute Barbatruc
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

XLDnaute Barbatruc
ç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

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…