XL 2010 Utilisation de l'appareil photo (de excel) via macro

[Laosurlamontagne]

Bonjour à tous,

J'aurais besoin de votre aide sur une macro, qui marche, mais que je souhaiterais améliorer.

Dans la macro ci-dessous, j'utilise l'appareil photo de Excel pour avoir une image d'une sélection (qui est défini automatiquement dans la macro). Dans cette macro, une fenêtre de dialogue demande où coller l'image:

Sub photo()
Dim ref As Range

'Défnition de la zone à copier
nom = "feuille"
ActiveWorkbook.Names.Add Name:=nom, RefersToR1C1:=Sheets("feuille").Range("C3", Sheets("feuille").Range("I65536").End(xlUp))


'On demande où coller la photo
Set ref = Application.InputBox(prompt:="Select the cell where to past the selection", Type:=8)
MsgBox (ref.Address)

'Collage de la photo
Range(nom).Copy
Range(ref.Address).Select
ActiveSheet.Pictures.Paste(Link:=True).Select

End Sub

Ça marche très bien sauf si on sélectionne une cellule de destination DANS une feuille différente. Dans ce cas, l'image est coller à l'adresse de destination du classeur courant.

Auriez-vous une idée pour le collage tienne compte du classeur de destination?

Merci pour votre aide.

 

[pierrejean]

Bonjour laosurlamontagne

Un essai
Suppose évidemment un autre fichier ouvert sur lequel doit être effectué le collage

 

[Laosurlamontagne]

ça marche impeccable !! Dans mon cas, je ne cherchais qu'à copier dans une feuille différente du même classeur.

Merci !