Private Sub CommandButton5_Click()
Dim Plage As Range
Application.ScreenUpdating = False
If TextBox3.Value = "" Then
MsgBox "Pour continuer veuillez saisir des chiffres ou des lettres", vbCritical, "Message du système"
Exit Sub
End If
Fichier = ThisWorkbook.Path & "\gen128.bmp"
If Dir(Fichier) <> "" Then Kill Fichier
Feuil4.Range("A17").Value = TextBox3.Value
With Sheets(4)
Sheets(4).Columns("c:c").EntireColumn.AutoFit
Set Plage = .Range("C17:C18")
Plage.CopyPicture
With .ChartObjects.Add(Plage.Left, Plage.Top, Plage.Width, Plage.Height).Chart
XXXX Garder les dimentions de mon image ?????? XXXX
.Paste
.Export ThisWorkbook.Path & "\gen128.bmp", "bmp"
End With
.ChartObjects(.ChartObjects.Count).Delete
End With
Set Plage = Nothing
UserForm1.Image3.Picture = LoadPicture(ThisWorkbook.Path & "\gen128.bmp")
Sheets(1).Select
CommandButton4.Enabled = True
End Sub