Discussion :

[MarcJinger]

Bonjour every one,

L'Enfer existe, je crois l'avoir rencontré... Je bosse à longueur de journée sur un fichier comprenant "pas mal" de macros, disons une trentaine de modules de 3/5 petites macros ; le fichier n'est pas bien méchant : 6 feuilles, dont 2 de 1.000 lignes pour 45 colonnes (quasiment pas de formules). Bref rien de bien grave (40 méga quand même).
Et tout à l'heure je le lance et schrckrac ! Il s'ouvre, mais 'a p'u d'macros !!! En mode dev, j'ai bien les macros qui apparaissent dans l'explo. de projets, mais no code : les fenêtres n'arrivent même pas à s'afficher, elles freezent avant : elles ont un bout de cadre qui commence à s'afficher et elles freezent !

Ai-je une chance de récupérer ce sur quoi je trime grave, sachant que je fais des sauvegardes tous les 3 jours, mais bien sûr là ce serait très grave car énormément de changements...

Au s'cours !!!

Bonne soirée !
Cheers, Marc.

[Pierre Fauconnier]

Salut.

Ce que je vais te dire ne va te plaire... Une sauvegarde tous les trois jours, c'est un non-sens...

SYS-TE-MA-TI-QUE-MENT, faire une copie du xlsm avant de travailler dedans. Un simple CTRL+C - CTRL+V AVANT de travailler sur le fichier prend 1 seconde. C'est VRAIMENT un réflexe à avoir.

Bon, cela étant dit, pour essayer de sauver les meubles:
Dans l'explorateur du projet, tente ceci: Clic droit sur un module pour l'enregistrer en fichier externe (fichier .bas ou .cls ou autre selon les cas). Avec Notepad++, ouvrir le fichier enregistré et voir ce qu'il contient. s'il te semble correct, continuer avec les autres modules qui contiennent du code, en ce compris les userforms et feuilles, classeur et autres.

Si c'est ok, tu pourras tenter des les réincorporer à ton fichier.

[Pierre Dumas]

Bonjour

D'accord avec ce que dit Pierre.

Dans ces cas-là, ce que je fais c'est :
créer un nouveau document Excel
ouvrir le fichier récalcitrant
aller dans VBA
glisser un module dans le nouveau classeur
Fermer le classeur récalcitrant
Enregistrer/fermer/rouvrir le nouveau classeur et regarder dedans si tout va bien
Puis incorporer un nouveau module.

En amont, dorénavant, je fais une copie toutes les 2 heures de travail environ. J'en ai aussi perdu des fichiers

En espérant que cela aide

Bon après-midi

Pierre Dumas

[Pierre Fauconnier]

[...]J'en ai aussi perdu des fichiers [...]

Et moi donc!!

Mon premier backup a été réalisé après un crash de disque dur. Comme quoi, on apprend de nos erreurs. Je ne suis ni meilleur que les autres, ni plus précautionneux, mais j'ai tellement perdu de fichiers suite à un truc corrompu que j'ai fini par apprendre...

Ca ne mettra pas du baume au coeur de Marc, mais si ça peut lui donner des idées et des réflexes pour l'avenir, tout ne sera pas perdu!

[Pierre Dumas]

Dans la série souvenirs, je me rappelle que chez un client, il est 11h45. Je me rends compte que je n'ai pas encore enregistré mon classeur sur lequel je travaille depuis 9h00 du matin, tellement j'étais pris dans ce que je faisais.

Du coup, en moins d'une seconde, je fais : Alt+F4, Tabulation, Entrée

Je suis parti manger tout seul au second service à 13h30...

Je déconseille comme expérience.

Bonne soirée

Pierre Dumas

[curt]

Bonjour à tous,

pour ma part, j'ai pris l'habitude de mettre dans l'évènement "Sur ouverture", une macro qui lance une sauvegarde du fichier dans un dossier _SAUVEGARDE (l'underscore permet d'avoir le dossier en premier dans l'explorateur)
En cas de "boulette" sur le fichier, il suffit de venir récupérer le fichier dans l'état où il était au moment de l'ouverture.
Cerise sur le gâteau, les sauvegardes sont horodatées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_Open()
 
On Error GoTo Erreur
 
Dim Chemin As String, Fichier As String
 
    'COPIE HORODATEE DU FICHIER
    Chemin = ThisWorkbook.path & "\_SAUVEGARDE\"
    If Dir(Chemin, vbDirectory + vbHidden) = "" Then MkDir Chemin
    Fichier = Chemin & Format(Date, "yyyy mm dd") & "_" & Format(Time, "hhmmss") & " - " & ThisWorkbook.Name
    ActiveWorkbook.SaveCopyAs Fichier
    Exit Sub
 
Erreur:
    Debug.Print "Workbook_Open : " & Err.Description & " - " & Err.Number
    Err.Clear
    Resume Next
 
End Sub

[MarcJinger]

Salut.

Ce que je vais te dire ne va te plaire... Une sauvegarde tous les trois jours, c'est un non-sens...

SYS-TE-MA-TI-QUE-MENT, faire une copie du xlsm avant de travailler dedans. Un simple CTRL+C - CTRL+V AVANT de travailler sur le fichier prend 1 seconde. C'est VRAIMENT un réflexe à avoir.

Bon, cela étant dit, pour essayer de sauver les meubles:
Dans l'explorateur du projet, tente ceci: Clic droit sur un module pour l'enregistrer en fichier externe (fichier .bas ou .cls ou autre selon les cas). Avec Notepad++, ouvrir le fichier enregistré et voir ce qu'il contient. s'il te semble correct, continuer avec les autres modules qui contiennent du code, en ce compris les userforms et feuilles, classeur et autres.

Si c'est ok, tu pourras tenter des les réincorporer à ton fichier.

Merci beaucoup, j'ai fini par récupérer "mes petits" . Bon we !

[MarcJinger]

Bonjour

D'accord avec ce que dit Pierre.

Dans ces cas-là, ce que je fais c'est :
créer un nouveau document Excel
ouvrir le fichier récalcitrant
aller dans VBA
glisser un module dans le nouveau classeur
Fermer le classeur récalcitrant
Enregistrer/fermer/rouvrir le nouveau classeur et regarder dedans si tout va bien
Puis incorporer un nouveau module.

En amont, dorénavant, je fais une copie toutes les 2 heures de travail environ. J'en ai aussi perdu des fichiers

En espérant que cela aide

Bon après-midi

Pierre Dumas

Merci pour ton temps et ton aide, j'ai fini par retomber sur mes pattes (oouuuf), oui je vais faire encore BEAUCOUP plus gaffe, il serait temps, après 30 ans de pratique...
Bon we !