copier une image

[DIGGERJACK]

Bonsoir le forum

Lorsque je fais un copier coller d'une image son nom change
ex image 1 devient image 2

Peut on faire en sorte de garder le même nom à l'image (image1) et si oui comment

Merci de votre aide

Bonne soirée et bon week end

 

[jp14]

Re : copier une image

Bonjour

Ce code permet de renommer une image

ActiveSheet.Shapes("Image 2").Select
Selection.Name = "Image 1"

L'image 1 doit être supprimé au préalable.

JP

 

[DIGGERJACK]

Re : copier une image

Bonsoir le forum et JP 14

Merci pour ta réponse

En fait je dois recopier une image 10 fois puis les transférer sur une autre page et je cherche à pouvoir les effacer si besoin est de la page de transfert


Je prépare un fichier et je vais le joindre tout à l'heure

Bonne soirée

 

[DIGGERJACK]

Re : copier une image

RE le forum

Voici le dossier en question

La macro transfert fonctionne bien elle transfère image et infos sur la feuille 3

La macro annuler transfert ne fonctionne pas car le nom de l'image a changé
Peut on éviter cela si oui comment

Merci de votre aide

Bonne soirée

 

[CB60]

Re : copier une image

Bonsoir
Ca devrais fonctionné

Sub Macro5()
On Error Resume Next
    Sheets("Feuil3").Cells.ClearContents
    Sheets("Feuil3").Pictures.Delete
    
End Sub

 

[DIGGERJACK]

Re : copier une image

Bonsoir CB60

C'est pas "ça devrait fonctionner" qu'il faut dire mais ça fonctionne !!!!!!

L'enregistreur de macro est une bonne base mais il ne fait pas tout le bougre


Merci beaucoup


Bonne soirée