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

Erreur d'éxécution 458

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mr.Lionel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mr.Lionel

Guest
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

HTML: 
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
 
Trier par date Trier par votes
Re : Erreur d'éxécution 458

Bonjour,

Peut-être en utilisant la ligne de code suivante
Code: 
If tableau(x) <> ThisWorkbook.Name & ".xls" Then Y = Y + 1

???

Cordialement.

PMO
Patrick Morange
 
Vote positif 0 Vote négatif
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.
 
Dernière édition:
Vote positif 0 Vote négatif
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.
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 ?
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
XL 2021 Code VBA qui ne fonctionne pas
Réponses
2
Affichages
200
crocrocro
C
  • Question Question
XL 2021 Erreur "l'indice n'appartient à la selection"
Réponses
10
Affichages
764
treza88
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
938
n_turf
N
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
556
youguybass
Y
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
247
treza88
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
768
patricktoulon
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
140
Eric 888
Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
151
youguybass
Y
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
339
patricko-13
P
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
542
dysorthographie
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
293
PORCHER
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
275
LaurentVasseur
L
  • Question Question
XL 2019 Erreur d'exécution "13"
Réponses
1
Affichages
360
sylvanu
  • Question Question
XL 2019 [VB] Organisation et gestion du ménage et de l'entretien global (à améliorer)... Comment procéder ?
Réponses
13
Affichages
528
anthoYS
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
  • Question Question
XL 2016 Changer Couleur série d'un graphique
2
Réponses
26
Affichages
528
KTM
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
570
mikeduff
M
P
  • Résolu(e)
Microsoft 365 Dateur Patricktoulon
2 3
Réponses
41
Affichages
1 K
Piment
P
  • Question Question
XL 2016 Gestion des erreurs avec la fonction RechercheV
Réponses
5
Affichages
418
KTM
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
738
kiki29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…