XL 2016 VBA-Run time error 2147319767

Ikito

XLDnaute Occasionnel

• 19 Février 2020

• #2

Bonjour,

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

 

Vote positif 0 Vote négatif

A

alexamel88

XLDnaute Junior

• 19 Février 2020

• #3

Ikito à dit:

Bonjour,

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

Cliquez pour agrandir...

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

Merci d'avance

 

Vote positif 0 Vote négatif

Ikito

XLDnaute Occasionnel

• 19 Février 2020

• #4

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

 

Vote positif 0 Vote négatif

A

alexamel88

XLDnaute Junior

• 19 Février 2020

• #5

Ikito à dit:

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

Cliquez pour agrandir...

non j'ai déja vérifié

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 19 Février 2020

• #6

Bonjour,

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

Cliquez pour agrandir...

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: 19 Février 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Février 2020

• #7

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Février 2020

• #8

ç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

 

Vote positif 0 Vote négatif

A

AMV2020

XLDnaute Nouveau

• 22 Mars 2021

• #9

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

 

Vote positif 0 Vote négatif

A

AMV2020

XLDnaute Nouveau

• 22 Mars 2021

• #10

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

 

Vote positif 0 Vote négatif