Laosurlamontagne
XLDnaute Occasionnel
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:
Ç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.
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:
VB:
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.