Private Sub UserForm_Initialize()
Dim fichier$, s As Shape
fichier = ThisWorkbook.Path & "\MonImage.gif"
'---création du fichier image gif---
Application.ScreenUpdating = False
Set s = Sheets("accueil").Shapes("Image 3")
s.CopyPicture xlScreen, xlBitmap
With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
While .Shapes.Count = 0 'en attente du collage
DoEvents
.Paste
Wend
.Export fichier, "GIF"
.Parent.Delete 'supprime le graphique temporaire
End With
Application.ScreenUpdating = True
'---chargement de l'image---
Iphoto.PictureSizeMode = fmPictureSizeModeClip 'fmPictureSizeModeStretch
Iphoto.Picture = LoadPicture(fichier)
Kill fichier 'suppression du fichier image
End Sub