XL 2010 Fichier impossible à ouvrir

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

13GIBE59

XLDnaute Accro
Bonjour le forum.
Tout est dans le titre : fichier impossible à ouvrir.
J'ai créé un fichier Excel 2010 sur un PC Windows 10 64 bits. J'ai changé de PC, en prenant soin d'effectuer une double sauvegarde de ce fichier, sur disque dur externe + clé USB.
En tentant de l'ouvrir sur mon nouveau PC Windows 10 64 bits avec Excel 2010, j'ai l’avertissement joint 😡
Fichier HS.JPG

Dès lors, j'ai tout essayé : 😱
- ouvrir en réparant
- ouvrir avec Word
- ouvrir avec Open office
- ouvrir avec Excel viewer
- ouvrir avec Google docs
- ouvrir avec Excel 2007
- réparer avec Excel recovery Toolbox
- réparer avec S2 Recovery Tools for Microsoft Excel.

Tout cela en vain, bien sûr...😳

Bon, ben là, je sais pu quoi faire....🙁
Quelqu'un a une idée, siouplait ? 😉

Merci d’avance.
 
Merci à tous pour vos efforts, mais cela ne donne rien. 😡
Opération de la dernière chance :
J'ai installé Excel 2016 sur mon PC, et j'ai testé cette macro, dénichée chez Silky Road :

Sub FeuillesExcelVersFichierTexte()
'
'Nécessite d'activer la référence Microsoft ActiveX Data Objects 2.x Library
'Nécessite d 'activer la référence Microsoft ADO Ext 2.7 for DLL and Security
'
Dim Cn As ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Feuille As ADOX.Table
Dim Cat As ADOX.Catalog
Dim xConnect As String, xSql As String, Fichier As String

'Le chemin complet vers le claseur endommagé
Fichier = "C:\Users\JBL\Desktop\Listing.xlsm"

xConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";" & _
"extended properties=""Excel 8.0;HDR=NO;IMEX=1"""

Set Cat = CreateObject("ADOX.Catalog")
Set Cn = CreateObject("ADODB.Connection")

'Connexion au classeur fermé
Cn.Open xConnect
Set Cat.ActiveConnection = Cn

'Boucle sur les feuilles du classeur fermé
For Each Feuille In Cat.tables
Set Rs = New ADODB.Recordset

'Création de la requête pour récupérer le contenu des cellules
xSql = "SELECT * FROM [" & Feuille.Name & "];"
Rs.Open xSql, xConnect, adOpenForwardOnly, adLockReadOnly, adCmdText

'Les données vont être importées dans des fichiers txt à la racine C:\
Open "C:\" & Left(Feuille.Name, Len(Feuille.Name) - 1) & ".txt" For Output As #1
Do Until Rs.EOF
'ColumnDelimiter: ";"
'RowDelimiter: vbCrLf
'NullExpr: ""
Print #1, Rs.GetString(, , ";", vbCrLf, "");
Loop
Close #1
Rs.Close
Next Feuille

Cn.Close
End Sub


J'ai bien tout activé les compléments idoines, mais malheureusement, la macro bloque sur
Cn.Open xConnect

avec la msgbox suivante :
Bug.JPG

un crack en vba peut-il m'aider à distance ?

Merci d'avance.
 
Bonjour à tous

J'ai du mal à comprendre que tu ne puisses pas renommer un fichier via l'explorateur, tu tapes F2 quand tu es sur le nom du fichier, puis tu rajoutes l'extension .xlm par exemple, sinon dans les options de l'explorateur, il faut décocher masquer les extensions.
 
Dernière édition:
Oups ! j'avais oublié cette possibilité de démasquer les extensions...😛
Cela dit, je l'ai converti en xls, j'arrive à l'ouvrir, avec Excel 2016, 2010, et 2007. Il est vide...Aucune donnée, aucune macro.
C'est très bizarre. 😡
 
bonjour toutes 🙂🙂 & tous 🙂🙂

le mieux c'est mettre ton fichier il y a bien quelqu'un qui va arriver a l'ouvrir🙄🙄
attention ....il peut faire 2.8 mo mais être vide
enfin!!!!! si données confid... va poser egalement pb....
 
Bonjour Laeti 🙂
il y a bien quelqu'un qui va arriver a l'ouvrir🙄🙄
Cela m'étonnerait...

Ce matin j'ai eu un écran bleu sur mon ordi (ça arrive de temps en temps) qui a entrainé un redémarrage.

Ensuite j'ai fait un copier-coller d'un fichier .xlsm existant sur le bureau.

Eh bien en ouvrant la copie j'ai eu le même message que 13GIBE59.

J'ai bien sûr supprimé ce fichier et recommencé l'opération, cette fois sans problème heureusement.

A+
 
- 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
8
Affichages
868
Réponses
2
Affichages
3 K
Retour