Je ne comprends pas pourquoi depuis que j'ai installé Office 365 (licence officielle payée).
Dois-je contacter le support Microsoft ?
Mon fichier apparaît comme "Réparé" chaque fois.
Comment faire en sorte qu'il ne soit plus endommagé ou autre... ?
Pour quelles raisons apparait-il comme ça (il se répare chaque fois) ?
Ce fichier comporte beaucoup d'onglets...
@anthoYS
Au message#23, je te disais de travailler sur le disque dur (juste le temps de faire toutes ces opérations de sauvegarde)
Si tu ne suis pas le mode opératoire que je te décris, c'est normal que cela coince.
Tu as un grand nombre de pistes dans cette discussion pour récupérer un maximum de données d'un classeur "abimé"
A toi d'être vigilant et de faire précisément ce que j'explique pour qu'on arrive au même point.
Sur mon classeur de test (qui est "faussement abimé), j'en suis à :
ETAPE SAUVEGARDE
1) Export du VBA -> OK
2) Copie en *.xlsx -> OK
3) Export des feuilles en CSV -> OK
Les étapes suivantes (qui restent à faire)
Lister les noms dans le classeur
Lister toutes les formules
Alors essais ceci:
Ouvres Copie_SANSMACROS.xlsx et réponds Oui
Dans ce classeur, insères un module et copie la macro ci-dessous
VB:
Sub SVG_DONNEES_SEULES()
Dim WS As Excel.Worksheet
Dim DOSSIER As String
DOSSIER = ThisWorkbook.Path & "\"
For Each WS In ThisWorkbook.Worksheets
WS.SaveAs DOSSIER & WS.Name & ".csv", xlCSV, Local:=True
Next
End Sub
Tu obtiendras une copie de chaque feuille au format CSV dans le dossier où est stocké Copie_SANSMACROS.xlsx
(Si cela fonctionne tu auras récupéré au moins les données, et tu pourras les utiliser pour reconstruire ton classeur.
Alors essais ceci:
Ouvres Copie_SANSMACROS.xlsx et réponds Oui
Dans ce classeur, insères un module et copie la macro ci-dessous
VB:
Sub SVG_DONNEES_SEULES()
Dim WS As Excel.Worksheet
Dim DOSSIER As String
DOSSIER = ThisWorkbook.Path & "\"
For Each WS In ThisWorkbook.Worksheets
WS.SaveAs DOSSIER & WS.Name & ".csv", xlCSV, Local:=True
Next
End Sub
Tu obtiendras une copie de chaque feuille au format CSV dans le dossier où est stocké Copie_SANSMACROS.xlsx
(Si cela fonctionne tu auras récupéré au moins les données, et tu pourras les utiliser pour reconstruire ton classeur.
@anthoYS
Donc dans le classeur Copie_SANSMACROS.xlsx
Tu fais ALT+F11
Puis Insertion/Module
tu copies/colles la macro SVG_DONNEES_SEULES dans le carré blanc à droite
Puis de nouveau ALT+F11 pour retourner dans le classeur
Enfin tu fais Affichage/Macros
tu sélectionnes SVG_DONNEES_SEULES et tu cliques sur Exécuter
@anthoYS
Donc dans le classeur Copie_SANSMACROS.xlsx
Tu fais ALT+F11
Puis Insertion/Module
tu copies/colles la macro SVG_DONNEES_SEULES dans le carré blanc à droite
Puis de nouveau ALT+F11 pour retourner dans le classeur
Enfin tu fais Affichage/Macros
tu sélectionnes SVG_DONNEES_SEULES et tu cliques sur Exécuter
J'ai extrait les 219 onglets, or, il y en aurait un qui pèse 566 Mo, chose impossible, le fichier faisait 8 Mo (même pas... avec ces 219 onglets y compris les onglets cachés...)
Il ne s'ouvre pas, il reste à 0%....
Tous au format *.csv
Que dois-je en déduire ?
Il a été extrait en dernier...
J'ai regroupé tous ces onglets du fichier dans un dossier...
@anthoYS
Je procéderais comme suit:
Je fais une copie de classeur Copie_SANSMACROS.xlsx dans un autre dossier
J'ouvre cette copie et je démasque toutes les feuilles
Je supprime toutes les feuilles sauf celle qui a le nom du fichier.csv qui fait 566Mo.
Ensuite je lance la macro SVG_DONNEES_SEULES sur ce classeur qui n'a donc qu'une seule feuille.
Quelle est alors la taille du nouveau fichier.csv ?
EDITION: Je viens juste de voir ta précédent réponse.
Donc maintenant tu as le contenu de ton classeur en plusieurs fichiers CSV.
Il suffit maintenant de les réinjecter dans un classeur vierge.