XL 2010 Copier une image d'un commentaire

[Francky79]

Bonjour à tous,

Est-il possible de copier l'image se trouvant dans un commentaire ?
Et si oui, comment ?

Merci de votre aide.

 

[Francky79]

Désolé; mais ça coince toujours, même sans le point.

 

[patricktoulon]

c'est quoi le nom de la sheets2

 

[Francky79]

Feuil2

 

[patricktoulon]

et ben feuil2.activate

 

[Francky79]

Déjà essayé mais ça copie l'image sur la cellule du commentaire

 

[patricktoulon]

alors c'est pas la feuil2 la destination
écoute envoie un fichier sinon on va pas s'en sortir

 

[Francky79]

[Feuil2].Activate
.[Feuil2].[D1].Select
.Paste
.Activate

Avec le point devant la ligne .[Feuil2].[D1].Select ça coince mais quand je sort de Visual Basic la cellule D1 de la feuil2 est bien active.

 

[patricktoulon]

re
au temps pour moi
Sub test3()
application.screenupdating=false
image = ActiveCell.Address
With ActiveSheet
With Range(image)
.Comment.Visible = True
.Comment.Shape.CopyPicture
.Comment.Visible = False
End With
with [Sheets2]
.activate
.[D1].Select
.Paste
end with
.activate
End With
end sub

 

[Francky79]

Voila le fichier.

 

[patricktoulon]

re

Sub test3()
    Application.ScreenUpdating = False
    image = ActiveCell.Address
    With ActiveSheet
        With Range(image)
            .Comment.Visible = True
            .Comment.Shape.CopyPicture
            .Comment.Visible = False
        End With
        With Feuil2
            .Activate
            .[D1].Select
            .Paste
        End With
        .Activate
    End With
End Sub

 

[Francky79]

avec With [Feuil2] ça MARCHE🙂
Merci vraiment de ton aide

 

[Francky79]

Il me reste a mettre tout ça dans mon fichier de travail.
Bonne fin de Week end.