XL 2010 Copier une image d'un commentaire

F

Francky79

XLDnaute Occasionnel

• 25 Octobre 2020

• #16

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2020

• #17

c'est quoi le nom de la sheets2

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 25 Octobre 2020

• #18

Feuil2

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2020

• #19

et ben feuil2.activate

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 25 Octobre 2020

• #20

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2020

• #21

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

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 25 Octobre 2020

• #22

[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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2020

• #23

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

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 25 Octobre 2020

• #24

Voila le fichier.

 

Pièces jointes

• Extraction image.xlsm

  400.9 KB · Affichages: 11

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Octobre 2020

• #25

re

VB:

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

 

Vote positif 0 Vote négatif

Solution

F

Francky79

XLDnaute Occasionnel

• 25 Octobre 2020

• #26

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

 

Vote positif 0 Vote négatif

F

Francky79

XLDnaute Occasionnel

• 25 Octobre 2020

• #27

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

 

Vote positif 0 Vote négatif