Réparation d’un classeur endommagé

Récupérer des données lorsque le classeur est ouvert dans Excel

• Rétablir la dernière version enregistrée du classeur    Si un classeur est endommagé avant que vous n’ayez eu le temps d’enregistrer vos modifications, vous pouvez rétablir la dernière version enregistrée de votre classeur :

  1. Cliquez sur Fichier > Ouvrir.

  2. Double-cliquez sur le nom du classeur que vous avez ouvert dans Excel.

  3. Cliquez sur Oui pour rouvrir le classeur.

     Le classeur s’ouvre sans les modifications apportées qui peuvent être à l’origine de l’endommagement du classeur.

Récupérer des données lorsqu’il est impossible d’ouvrir le classeur dans Excel

• Définir l’option de calcul dans Excel à manuel    Essayez de modifier le paramètre de calcul d’automatique à manuel. Étant donné que le classeur ne sera pas recalculé, il devrait normalement s’ouvrir.

  1. Cliquez sur Fichier > Nouveau.

  2. Sous Nouveau, cliquez sur Nouveau classeur.

  3. Cliquez sur Fichier > Options.

  4. Dans la catégorie Formules, sous Options de calcul, sélectionnez Manuel, puis cliquez sur OK.

  5. Cliquez sur Fichier > Ouvrir.

  6. Localisez le classeur endommagé, puis double-cliquez sur celui-ci pour l’ouvrir.

• Utiliser des références externes pour créer des liaisons vers le classeur endommagé    Pour récupérer uniquement les données et non les formules ou les valeurs calculées du classeur, essayez d’utiliser des références externes pour créer des liaisons vers le classeur endommagé.

  1. Cliquez sur Fichier > Ouvrir.

  2. Accédez au dossier qui contient le classeur endommagé.

  3. Cliquez avec le bouton droit sur le nom de fichier du classeur endommagé, cliquez sur Copier, puis sur Annuler.

  4. Cliquez sur Fichier > Nouveau.

  5. Sous Nouveau, cliquez sur Nouveau classeur.

  6. Dans la cellule A1 du nouveau classeur, tapez =File Name!A1, où File Name est le nom du classeur endommagé que vous avez copié à l’étape 3, puis appuyez sur Entrée.

     Remarque :  Vous ne devez entrer que le nom du classeur. Il est inutile d’entrer l’extension.

  7. Si la boîte de dialogue Mettre à jour les valeurs s’ouvre, sélectionnez le classeur endommagé, puis cliquez sur OK.

  8. Si la boîte de dialogue Sélectionner une feuille s’affiche, sélectionnez la feuille appropriée, puis cliquez sur OK.

  9. Sélectionnez la cellule A1.

  10. Cliquez sur Accueil > Copier ou appuyez sur Ctrl+C.

  11. Sélectionnez une zone, en commençant à la cellule A1, qui a approximativement la même taille que la plage de cellules qui contient des données dans le classeur endommagé.

  12. Cliquez sur Accueil > Coller ou appuyez sur Ctrl+V.

  13. La plage de cellules étant toujours sélectionnée, cliquez de nouveau sur Accueil > Copier ou appuyez sur Ctrl+C.

  14. Cliquez sur Accueil > flèche sous Coller, puis sous Coller des valeurs, cliquez sur Valeurs.

      Lorsque les valeurs sont collées, les liaisons vers le classeur endommagé sont supprimées et seules les données sont conservées.

• Utiliser une macro pour extraire les données d’un classeur endommagé    Si un graphique est lié au classeur endommagé, essayez d’utiliser une macro pour extraire les données sources du graphique.

  1. Copiez le code de macro suivant et collez-le dans une feuille de module :

     Sub GetChartValues()

     Dim NumberOfRows As Integer

     Dim X As Object

     Counter = 2

     ' Calculate the number of rows of data.

     NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)

     Worksheets("ChartData").Cells(1, 1) = "X Values"

     ' Write x-axis values to worksheet.

     With Worksheets("ChartData")

     .Range(.Cells(2, 1), _

     .Cells(NumberOfRows + 1, 1)) = _

     Application.Transpose(ActiveChart.SeriesCollection(1).XValues)

     End With

     ' Loop through all series in the chart and write their values to

     ' the worksheet.

     For Each X In ActiveChart.SeriesCollection

     Worksheets("ChartData").Cells(1, Counter) = X.Name

     With Worksheets("ChartData")

     .Range(.Cells(2, Counter), _

     .Cells(NumberOfRows + 1, Counter)) = _

     Application.Transpose(X.Values)

     End With

     Counter = Counter + 1

     Next

     End Sub

  2. Insérez ou supprimez une feuille de calcul dans votre classeur, cliquez avec le bouton droit sur l’onglet de la feuille, puis renommez-la ChartData.

  3. Sélectionnez le graphique dont vous voulez extraire les données.

     Remarque : Le graphique peut être incorporé à une feuille de calcul ou à une feuille de graphique séparée.

  4. Exécutez la macro.

  5. Les données du graphique sont placées dans la feuille de calcul ChartData.

Haut de la page