Erreur d'éxécution 458

[mr.Lionel]

Bonjour,

Depuis la ré-installation de mon ordinateur, j'ai un petit problème sur mon application du genre :

"Erreur d'éxécution 458" et bug.

Mon code

Sub chercheFichiersFermesV03()
Dim x As Integer, nbFichiers As Integer, Y As Integer
Dim tableau() As String
Dim Direction As String

Application.ScreenUpdating = False
Direction = Dir("D:\DEVIS\*.xls")

Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve tableau(1 To nbFichiers)
tableau(nbFichiers) = Direction
Direction = Dir()
Loop

If nbFichiers > 0 Then
For x = 1 To nbFichiers
If tableau(x) <> ThisWorkbook.Name Then ****PROBLEME****
Y = Y + 1
etc .....

Problème sur la ligne : "If tableau(x) <> ThisWorkbook.Name Then", je ne comprends pas.
Je vous remercie de vos explications ou corrections

Cordialement,
Lionel

 

[PMO2]

Re : Erreur d'éxécution 458

Bonjour,

Peut-être en utilisant la ligne de code suivante

If tableau(x) <> ThisWorkbook.Name & ".xls" Then Y = Y + 1

???

Cordialement.

PMO
Patrick Morange

 

[Catrice]

Re : Erreur d'éxécution 458

Bonjour,

Le morceau de code donné fonctionne bien chez moi.

Peux tu montrer ce qu'il y a apres le Then ?
Ca plante sur quelle ligne exactement ?

Si tu execute en pas à pas, est-ce que tableau(x) se rempli bien ?
Que valent les variables à ce moment ? tableau(x) ? et ThisWorkbook.Name ?

En testant le code, tableau(x) me renvoie une liste de fichiers .xls et ThisWorkbook.Name renvoie le nom du fichier actuel .xls (si celui-ci a été enregistré).

NB - A priori, il n'est pas necessaire de concatener le ".xls" comme le propose PMO

L'erreur 458 est à priori une erreur de type de variable.

Extrait de l'aide :
Cette variable utilise un type non géré par Visual Basic (erreur 458)
Certaines variables apparaissant dans une bibliothèque de types ou une bibliothèque d'objets ne peuvent pas être utilisées par tous les langages de programmation. Cause et solution de cette erreur :
Vous avez tenté d'utiliser une variable définie dans une bibliothèque de types ou une bibliothèque d'objets ayant un type de données non géré par Visual Basic.
Vous ne pouvez pas utiliser une variable d'un type non reconnu par Visual Basic dans un programme Visual Basic.

Essaie en mettant tes Dim en remarque.

 

[Catrice]

Re : Erreur d'éxécution 458

Re,

J'avais testé l'histoire des extensions.
Le fait de modifier les parametres dont tu parles n'a pas d'incidence.
De plus, je ne crois pas que ça puisse engendrer une erreur 458 ...

Si il y avait probleme d'extension, tableau(x) <> ThisWorkbook.Name renverrait "True", c'est tout.

 

[mr.Lionel]

Re : Erreur d'éxécution 458

Bonjour,

J'ai corrigé selon PMO2 et c'est ok, vraiment merci à PMO2, CATRICE et JEAN MARCEL.
Je n'ai pas fait le moindre rapprochement entre ma nouvelle configuration de mon ordinateur et mon code, quelle erreur !!

Encore merci et bonne journée ...

Cordialement,
Lionel

 

[Catrice]

Re : Erreur d'éxécution 458

Bonjour,

Ca restera un mystere pour moi !?
1/ ThisWorkbook.Name me renvoie l'extension .xls
2/ je ne vois pas pourquoi on obtiendrait une erreur sur ce test ...

Quelle est ta version d'Excel ?

 

[mr.Lionel]

Re : Erreur d'éxécution 458

Re,

CATRICE : ma version d'excel la "2003", malheureusement beaucoup d'erreur sur excel dernière monture.

JEAN-MARCEL : non pas de modification, par contre je pense avoir modifié ma config sur l'ancienne, faire apparaître l'extension.

Je vais essayer de remettre le code de départ (soit sans .xls) et modifier ma config et je vous informerais des resultats.

Cordialement,
Lionel