Discussion :

[cerede2000]

Bonjour à tous,

Je cherche à exporter des images qui ont étés placées dans des commentaires sur des cellules.

J'ai déjà essayer pas mal de codes trouvé ci et la sur le net ainsi que dans les FAQ de Developpez mais rien ne fonctionne.

Premier point déjà, lorsque je parcours les Shapes de ma Worksheet elle sont de type msoComment et non de type msoPicture.
Pour vérifier qu'une image est bien présente dans la Shape commentaire je fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim sheet As Worksheet
Dim shp As Shape
 
Set sheet = ActiveSheet
 
For Each shp In sheet.Shapes
    If shp.Fill.Type = msoFillPicture Then
        Debug.Print "Il s'agit d'un commentaire avec image"
    End If
Next

Je sais donc que le commentaire est bien remplis avec un image, mais je ne trouve pas comment exporter le Fill de la Shape.

Pour info j'ai déjà essaye d'exporter la Shape complète dans une image et le fichier générer n'est pas lisible.

J'ai quelques 100 aines vois plus d'un millier d'image à exporter de ce fichier Excel
Vu qu'il s'agit d'un Xlsx j'ai déjà récupérer les images en ouvrant le fichier en tant que Zip.
Mais elle sont simplement nommé imagexxxx.jpeg mais j'ai besoin de nommer chaque image avec le nom de la cellule correspondante.

Il s'agit d'une bibliothèque d'articles.

Merci d'avance à vous

[Philippe PONS]

Salut,

je n'ai pas le temps de tester, mais la propriété UserPicture
devrait te permettre de récupérer le nom complet du fichier
et ensuite le dupliquer avec un autre nom
Cordialement,

Code :

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

1
2
 
Comment.Shape.Fill.UserPicture

[cerede2000]

J'ai déjà regardé du côté de cette méthode mais d'après MSDN elle ne sert qu'as remplir l'image mais pas à la récupérer
https://msdn.microsoft.com/en-us/lib...ffice.11).aspx

[patricktoulon]

Bonjour

heu oui !!....
sinon y a plus simple

il y a la méthode export du chart dans la faq et même plusieurs fois sur ce forum tu trouvera des exemple
le theme le plus souvent abordé est "sauvegarder une image d'un sheets dans un fichier
parti de la on applique la même méthode avec le commentaire

wagadougou!!!!!!!

cet exemple copie le commentaire de la cellule (3,2)en image et l'exporte avec un graph temporaire au même endroit ou se trouve le classeur
il te sera facile après de créer ta boucle sur toutes les cellules concernées

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test1()
Application.ScreenUpdating = False
     With Cells(3, 2)
         If Not .Comment Is Nothing Then
             .Comment.Visible = True
             .Comment.Shape.CopyPicture
              With Sheets(1).ChartObjects.Add(0, 0, .Comment.Shape.Width, .Comment.Shape.Height).Chart
                 .Paste
                 .Export ThisWorkbook.Path & "\" & cells(3,2).value & ".JPG", "JPG"
              End With
              sheets(1).ChartObjects(.Parent.ChartObjects.Count).Delete
 
             .Comment.Visible = False
         End If
     End With
     Application.ScreenUpdating = True
End Sub

wagadougou!!!!!

[cerede2000]

J'avais essayé cette technique mais l'image n'étais pas lisible.

Je n'affichais pas le commentaire, il se peu que ce soit à cause de ça

J'ai fais mas boucle mais j'ai un autre souci, la 1ere image est ok, mais toutes les autres sont blanches !

Alors que si j’exécute le code en debug pas à pas les images sont ok....

[patricktoulon]

donne moi un exemplaire en xlsx avec les cellules avec leur commentaires en enlevant tout ce qui peut etre confidentiel
je vais regarder cela de plus prêt