copier une image

J

jp14

XLDnaute Barbatruc

• 4 Janvier 2008

• #2

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

 

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 6 Janvier 2008

• #3

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

 

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 6 Janvier 2008

• #4

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

 

Pièces jointes

• transfert image.zip

  33.8 KB · Affichages: 28

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 6 Janvier 2008

• #5

Re : copier une image

Bonsoir
Ca devrais fonctionné

Code:

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

 

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 6 Janvier 2008

• #6

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

 

Vote positif 0 Vote négatif