XL 2013 copier coller image

[MASSJIPE]

Bonjour
j'essais d'adapter le code suivant il doit copier la sélection A1:F" &derlig et ensuite il fait un collage spéciale en image mais je n'arrive pas
merci

Sub A()
Sheets("A").Select
On Error Resume Next
derLig = Cells(2000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:F" & derLig
  Selection.Copy
    Sheets("Envoi_mail").Select
    ActiveWindow.SmallScroll Down:=-30
    Range("A1").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
On Error GoTo 0
End Sub

 

[youky(BJ)]

Salut bien,

Private Sub CommandButton1_Click()
Sheets("A").Select
    derLig = Cells(2000, 2).End(xlUp).Row
Range("A1:F" & derLig).CopyPicture
  Sheets("Envoi_mail").Select
    Range("A1").PasteSpecial
End Sub

Non testé
Bruno

 

[DoubleZero]

Bonjour à toutes et à tous,

Une autre suggestion :

Option Explicit
Sub Image_copier_coller()
    On Error Resume Next
    Sheets("b").Shapes("toto").Delete 'nom onglet adapter
    On Error GoTo 0
    Feuil1.Range(Range("a1"), Range("f1").End(xlDown)).CopyPicture
    Sheets("b").Select 'nom onglet adapter
    Range("a1").Select
    ActiveSheet.Paste
    Selection.Name = "toto"
End Sub

A bientôt