chinel
XLDnaute Impliqué
Bonjour tout le monde !
j'ai ceci comme code:
sub copie
Workbooks.Open Filename:= _
"C:\Documents and Settings\Manuel Dejong\Mes documents\Backupdevis.xlsx"
Windows("testfactureetdevis.xlsm").Activate
Range("K17").Select
Sheets("Moddevis").Select
ActiveSheet.Buttons.Add(646.5, 382.5, 147.75, 60).Select
ActiveSheet.Buttons.Add(850.5, 129.75, 157.5, 60.75).Select
Sheets("Moddevis").Copy Before:=Workbooks("Backupdevis.xlsx").Sheets(3)
ActiveSheet.DrawingObjects.Delete
Windows("testfactureetdevis.xlsm").Activate
End Sub
mais quand je fais: ActiveSheet.DrawingObjects.Delete j'ai mon image a disparu (normal) mais comment la garder ?
merci de votre aide !
j'ai ceci comme code:
sub copie
Workbooks.Open Filename:= _
"C:\Documents and Settings\Manuel Dejong\Mes documents\Backupdevis.xlsx"
Windows("testfactureetdevis.xlsm").Activate
Range("K17").Select
Sheets("Moddevis").Select
ActiveSheet.Buttons.Add(646.5, 382.5, 147.75, 60).Select
ActiveSheet.Buttons.Add(850.5, 129.75, 157.5, 60.75).Select
Sheets("Moddevis").Copy Before:=Workbooks("Backupdevis.xlsx").Sheets(3)
ActiveSheet.DrawingObjects.Delete
Windows("testfactureetdevis.xlsm").Activate
End Sub
mais quand je fais: ActiveSheet.DrawingObjects.Delete j'ai mon image a disparu (normal) mais comment la garder ?
merci de votre aide !