Variable pour un numéro de picture

[claudy]

Bonjour à tous,
Dans la procédure ci dessous,
Je fais un"copier coller de ma zone AH81:AI84, VBA lui attribue un numéro(que je récupère dans AH80)…
N'y a t il pas moyen de récupérer ce numéro de picture( ou shape) dans une variable plutot que dans mon range("AH80")
Merci d'avance,
Claudy




Range("AH81:AI84").Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Range("E8").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Shapes("Picture " & Range("AH80").Value).Delete
Range("AH80") = Range("AH80") + 1
Application.CutCopyMode = False

 

[claudy]

Re...
OK, j'ai trouvé:
je cherche trop compliqué...

Range("AH81:AI84").Select
Selection.CopyPicture
Range("E8").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.Delete
Application.CutCopyMode = False

Claudy