[RÉSOLU]Gestion de contenu illisible sous VBA pour ouvrir un fichier (erreur 1004)

  • Initiateur de la discussion Initiateur de la discussion tashiqi
  • 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 !

tashiqi

XLDnaute Occasionnel
Bonjour,

Je rencontre actuellement un petit problème dans un programme VBA. J'ai une macro supposée ouvrir des fichiers pour les modifier, mais je rencontre un problème avec certains fichiers. En effet, VBA n'arrive pas à les ouvrir, et m'affiche un message d'erreur. Avant, cette opération se faisait à la main, et le message :
"Excel a rencontré un contenu illisible dans le "xxxxx.xlsx". Voulez vous récuperer le contenu de ce classeur ? Si la source de ce classeur est fiable, cliquez sur oui."
apparaissait. il suffisait d'appuyer sur oui pour résoudre le problème, le fichier s'ouvrait et précisait le changement :
"Enregistrements réparés: Filtre automatique dans la partie /xl/worksheets/sheet3.xml"
Actuellement, j'ai ajouté un message d'erreur demandant à l'utilisateur de réenregistrer le fichier source, mais je me demandais si ce problème de contenu corrompu contre lequel je ne peux malheureusement pas lutter à la source pouvait être directement géré par VBA.

Merci d'avance :3
Tash
 
Dernière édition:
Re : Gestion de contenu illisible sous VBA pour ouvrir un fichier

Bonjour,

peut être avec ceci... sans garantie...
Code:
Application.DisplayAlerts = False
'ton code d'ouverture
Application.DisplayAlerts = True
bon après midi
@+
ça ne foncionne pas :/

Chose importante que j'ai oublié de préciser, j'ai une erreur VBA en fait :
"Erreur d'exécution '1004':
La méthode 'Open' de l'objet 'Workbooks' a échoué"

Merci d'avance
 
Re : Gestion de contenu illisible sous VBA pour ouvrir un fichier

Bonjour
C'est justement ce que je viens de voir xD
je met la solution claire ici, car j'ai trouvé beaucoup de fils non résolu sur google ...
Il suffit d'utiliser cette syntaxe :
Code:
Application.DisplayAlerts = False
        Workbooks.Open Filename:="chemin&nom_du_fichier", corruptload:=xlRepairFile
Application.DisplayAlerts = True

(merci ^^)
@+
 
- 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

Discussions similaires

Réponses
10
Affichages
4 K
Retour