modif macro pr classeur fermé

[Odile]

Bonjour à toutes et à tous

j'ai ci-joint une macro qui permet d'afficher dans un usf l'image de la feuille1. J'aimerais savoir si il est possible d'adapter cette macro pour un classeur fermé.

En effet, je souhaite faire une petite application qui permetterait de visualiser le contenu de fichiers fermés pour voir rapidement de quoi il s'agit. Utile quand on a par exemple plein de fichiers démo.



Private Sub UserForm_Initialize()

Application.ScreenUpdating = False
Sheets('feuil1').Range('A1:E25').CopyPicture
Sheets('feuil1').Paste

With Sheets('feuil1').ChartObjects.Add(0, 0, Image1.Width, Image1.Height).Chart
.Paste
.Export ThisWorkbook.Path & '\\fichierTemp.jpg', 'JPG'
End With

With Sheets('feuil1')
.ChartObjects(Sheets('feuil1').ChartObjects.Count).Delete
.Shapes(Sheets('feuil1').Shapes.Count).Delete
End With

Image1.Picture = LoadPicture(ThisWorkbook.Path & '\\fichierTemp.jpg')
Application.ScreenUpdating = True

End Sub

Private Sub UserForm_Terminate()
Kill ThisWorkbook.Path & '\\fichierTemp.jpg'
End Sub