Copier une image

Question

Bonjour et à l'aide
je veux copier une image de la feuil 1 à la feuil 2. Voici ce que j'ai fait

Sheets("feuil1").Select
ActiveSheet.CopyPictures ("Image1")
Sheets("feuil2").Select
Range("B1:H4").Select.PastePictures

Je ne comprend pas pourquoi ça ne fonctionne pas. Peut-être quelqu'un peut-il m'aider?
Merci beaucoup
Messageries

Renfield · Answer

Range de quoi ??

d'une feuille....

Sheets("feuil2").Range("B1:H4")[...]

Renfield
Admin CodeS-SourceS- MVP Visual Basic

JM247L · Answer

Bonsoir,
Peut être devrais tu d'abord sélectionner ton image avant de la copier
Et losque tu la colle je ne crois pas que la sélection d'une plage facilitera le positionnement$
JML
 Partageons notre savoir et nos acquis

JM247L · Answer

Un p'tit complément
    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("F13").Select     ' Positionne vaguement
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -49.5    ' Positionne plus précisement
    Selection.ShapeRange.IncrementTop -5.25    ' Positionne plus précisement

JML
 Partageons notre savoir et nos acquis

messageries · Answer

Merci  JML247L
ça dit que "l'élément n'appartient pas à la sélection" concernant la ligne 
Sheets("Feuil2").Select

Je ne comprends pas

Merci d'avance

Messageries

JM247L · Answer

Bonjour,
Il est évident que ce n'est qu'un exemple qu'il te faut adapter à ta propre configuration
En clair remplace "Feuil2" par le nom de la feuille ou le collage doit être fait

JML
 Partageons notre savoir et nos acquis

Copier une image

5 réponses

Votre réponse

Discussions similaires