XL 2010 Fichier impossible à ouvrir

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 :mad:
Fichier HS.JPG

Dès lors, j'ai tout essayé : :eek:
- 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...:oops:

Bon, ben là, je sais pu quoi faire....:(
Quelqu'un a une idée, siouplait ? ;)

Merci d’avance.
 

13GIBE59

XLDnaute Accro
Merci à tous pour vos efforts, mais cela ne donne rien. :mad:
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.
 

MJ13

XLDnaute Barbatruc
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:

13GIBE59

XLDnaute Accro
Oups ! j'avais oublié cette possibilité de démasquer les extensions...:p
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. :mad:
 

job75

XLDnaute Barbatruc
Bonjour Laeti :)
il y a bien quelqu'un qui va arriver a l'ouvrir:rolleyes::rolleyes:
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+
 

Discussions similaires

Réponses
3
Affichages
511
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 167
Messages
2 085 904
Membres
103 028
dernier inscrit
MLAGHITI