XL 2010 Fichier impossible à ouvrir

job75

XLDnaute Barbatruc

• 4 Mai 2017

• #16

Salut cathodique,

cathodique à dit:

Salut Job75, super si tu as la solution.

Cliquez pour agrandir...

Pas de solution miracle, mais si le fichier pèse 0 octet inutile de se fatiguer.

A+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 4 Mai 2017

• #17

Pour info : 2,80 Mo...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Mai 2017

• #18

Re 13GIBE59,

13GIBE59 à dit:

Pour info : 2,80 Mo...

Cliquez pour agrandir...

C'est beaucoup pour seulement 30 000 cellules, c'est peut-être pour cela qu'il est vérolé.

A+

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 5 Mai 2017

• #19

13GIBE59 à dit:

Pour info : 2,80 Mo...

Cliquez pour agrandir...

Si tu veux vraiment récupérer tes données tu peux mettre ton fichier sur l'un des 2 sites ci-dessous et insérer le lien ici. Job75 (salut) pourrait le dévéroler.

https://www.transfernow.net/
ou
http://www.cjoint.com/?BLrwvewL5xO

Bonne journée.

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 6 Mai 2017

• #20

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 :


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

Merci d'avance.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 7 Mai 2017

• #21

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: 7 Mai 2017

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 7 Mai 2017

• #22

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.

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 7 Mai 2017

• #23

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....

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 7 Mai 2017

• #24

J'ai trouvé ce tutoriel
Pour récupérer les données.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Mai 2017

• #25

Bonjour Laeti

laetitia90 à dit:

il y a bien quelqu'un qui va arriver a l'ouvrir

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 7 Mai 2017

• #26

cathodique à dit:

J'ai trouvé ce tutoriel
Pour récupérer les données.

Cliquez pour agrandir...

Déjà essayé !
Merci.
JB

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 8 Mai 2017

• #27

Bonjour à tous

Sinon, tu as essayé de mettre le fichier en .zip.

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 9 Mai 2017

• #28

Bonjour MJ,

Oui, j'ai essayé. sans succès
J'abandonne...
Je vais essayer de retrouver mes données en reconstituant le fichier...
Merci à tous.

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 10 Mai 2017

• #29

Bonjour,
En mettant le fichier en .zip, on doit retrouver le .xml qui contient les données et le traiter avec un éditeur de texte de type Notepad++

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 10 Mai 2017

• #30

Bonjour à toutes et à tous,

J'aimerais tenter d'aider notre ami malgré mes faibles connaissances (mais je suis débrouillard LOL).
13GIBE59 : Pourrait-on avoir le fichier sur le site ou un lien qui nous permette de le télécharger ?
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif