Discussion :

[Zebulon777]

Bonjour tout le monde,

Je fais un copier / coller d'une image d'une feuille excel sur une autre, mais je voudrait copier l'image à un endroit précis.

Pour le moment, je sélection l'image, je fais un "copy", puis je passe sur la nouvelle feuille, je sélectionne la cellule (Cells(ligne, colonne).select) et enfin je fais mon "paste".
Mais l'image n'est pas positionner correctement.
Y-a-t'il un autre moyen ?

[ouskel'n'or]

SilkyRoad a récemment donné la réponse. Une petite recherche sur ce forum

[Zebulon777]

Je viens d'en faire une mais je n'ai rien trouvé.

[ouskel'n'or]

Je viens d'en faire une mais je n'ai rien trouvé.

Tu te moques, j'ai fait "Cellule image" en recherche et j'ai trouvé plein de réponses dont elles que je t'ai données. Faut pas rigoler avec ces choses là

[ouskel'n'or]

Tiens, c'était dans la FAQ, ici, mais tu as une intéressante discussion sur le sujet là, qui ne t'apportera rien de plus sinon de voir que ton sujet a fait l'objet d'une intense discussion
A+

[jfontaine]

Je n'ai pas essayé avec le Paste, mais si ca peut t'aider, avec insert ca fonctionne bien; L'image se trouve bien a l'endroit souhaité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Range("B5").select
 
ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\Diapositive1.JPG").Select

Jérôme

[Zebulon777]

Bon, j'avance un peu avec votre aide, mais le problème est que je n'ai pas l'image sous forme de fichier, elle est uniquement disponible dans l'une des feuille du classeur.
Cette méthode là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
    Set Shp = Feuil1.Shapes.AddPicture(Fichier, msoFalse, msoCTrue, 0, 0, 100, 90)

est pratiquement ce que je cherche, mais à condition de la faire sur une image directement et non sur un fichier image.

[ouskel'n'or]

est pratiquement ce que je cherche, mais à condition de la faire sur une image directement et non sur un fichier image.

Je ne comprends pas cette dernière phrase. Qu'appelles-tu ici "fichier image" ? Tu veux copier une image qui se trouve où ? Dans quel objet ? Tu veux la coller où ? Dans quel objet ?
Si elle se trouve dans un contrôle image de la barre d'outils contrôles et que tu veux la copier dans une autre feuille, précise-le. Sinon, précise ta demande.

[Zebulon777]

J'ai trouvé.
Enfin, vous m'avez BEAUCOUP mis sur la voie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Workbook(Classeur).Activesheets.shapes("Picture 1").left = nnn
Workbook(Classeur).Activesheets.shapes("Picture 1").top = nnn

Merci encore à tous.