Discussion :

[Igloobel]

Bonjour à tous,

Cette fois ci c'est moi qui vous pose une question.

Mon problème est le suivant :

Un service m'envois des classeurs Excel de calcul que je dois injecter dans l'ERP de mon entreprise (Industrie) via des scripts.
Ces classeurs sont très gros et l'ERP le digère mal (anomalies, plantages global ...), bref il faut leurs donner une cure d'amaigrissement.
Pour cela j'ai demandé qu'ils suppriment les images (source de lourdeur) de leurs classeurs, mais ces images leurs servent pour une
vérification visuel pour valider la cohérence des calculs.

Sur le principe je peux comprendre mais ces calculs n'ont pas besoin de ces images et l'ERP non plus, du coup, manuellement je supprime
les images qui sont disséminé dans les feuilles de ces classeurs. De cette façon je passe d'Environ 10 Mo à 120 Ko

Seulement le faire à chaque fois c'est long et fastidieux

donc je souhaite supprimer au sein de ces classeurs excel les images(photos), les formes ou groupe etc ... automatiquement par macro

- pour récupérer les classeurs à modifier je vais utiliser les "File Dialogs" et là j'ai pas besoin d'aide
- pour repérer chaque feuille du dit classeur je pense m'en sortir avec une boucle du type
for each sheet in sheets ... next

- par contre pour repérer chaque image, forme et groupe je pense qu'il faut faire une boucle du style

for Each quelque chose

mais je sais pas quoi je ne connais pas la collection des images, formes ou groupes au sein d'une feuille de classeur

J'ai utilié l'enregistreur de macro qui m'a donné ceci:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub Macro4()
'
' Macro4 Macro
'
 
'
    ActiveSheet.Shapes.Range(Array("Group 21")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Group 24")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 11")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Connector 5")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Connector 25")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 9")).Select
    Selection.Delete
    Sheets("xxx").Select
    ActiveSheet.Shapes.Range(Array("Group 11")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 3")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 4")).Select
    Selection.Delete
    Sheets("xx-xxx-xxxx").Select
    ActiveSheet.Shapes.Range(Array("Group 18")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 4")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 5")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 41")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 42")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Picture 30")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Connector 15")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Connector 28")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Freeform 20")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 24")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("TextBox 26")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Connector 21")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Straight Connector 13")).Select
    Selection.Delete
End Sub

et j'ai remarqué "Picture 1" et "Picture 2" était présent dans plusieurs feuilles

Il est évident que je ne peux pas mettre en dur les objets puisque les classeurs n'ont pas les mêmes images et qu'en plus
il est tout à fait possible qu'ils remplacent une image par une autre (évolution du produit) et donc ma macro ne sera plus à jour


De plus, certains mettent des photos dans les commentaires de certaines cellules (j'avais jamais pensé que l'on pouvais mettre des images
dans ces petits triangles rouges)

donc deuxième questions mais en rapport avec la première

Comment peut-on lister les commentaires présent dans une feuille et surtout comment-on savoir si il y a une image dedans ou pas
parce que l'enregistreur de macro me donne ça quand j'ai supprimer le commentaire pour supprimer l'image

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro5()
'
' Macro5 Macro
'
'
    Sheets("xx").Select
    Range("B2").Select
    Selection.ClearComments
End Sub

à la rigueur je peux viré tous les commentaires
ESt-ce çette instruction fonctionne sans faire la grouille quelque part

Code :

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

Cells.ClearComments

Donc je fais appel à tous les grands d'Excel qui sont sur ce site pour m'aider dans cette tâche

Merci d'avance à tous

A bientôt

PS: pour des raisons de confidentialité j'ai changé le nom des feuilles

[Jean-Philippe André]

Salut,

si tu as la certitude que toutes les shapes peuvent degager, un code du style

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub DeleteAllShapes()
Dim Shp As Shape
Dim wsh As Worksheet
For Each wsh in Activeworkbook.Worksheets
wsh.activate
For Each Shp In ActiveSheet.Shapes
    Shp.Delete
Next Shp
Next wsh
End Sub

En principe les commentaires ne "pesent" rien

[Igloobel]

merci à vous deux pour la rapidité

Salut,

si tu as la certitude que toutes les shapes peuvent degager, un code du style

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub DeleteAllShapes()
Dim Shp As Shape
Dim wsh As Worksheet
For Each wsh in Activeworkbook.Worksheets
wsh.activate
For Each Shp In ActiveSheet.Shapes
    Shp.Delete
Next Shp
Next wsh
End Sub

une question les images (photos) sont gérer aussi par Shapes ?

Désolé je ne maitrise pas les images sous excel

En principe les commentaires ne "pesent" rien

oui en principe sauf quand on met une photo dedans (certains j'ai le cas)

[patricktoulon]

re

une question les images (photos) sont gérer aussi par Shapes ?

oui!en quelque sorte

Code :

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

1
2
3
for each sh in activesheets.shapes
sh.delete
next

sh represente dans la boucle une forme une image ou même un contrôles

[unparia]

Bonjour
Gaffe à ne pas faire des dégâts.
La collection Shapes contient tout les objets présents sur la feuille. Y compris les contrôles formulaire et les contrôles activex.
Igloobel dit vouloir supprimer certains d'entre eux, mais pas forcément tous.
Je lui suggère donc de prendre des précautions, ainsi (exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
Dim sh As Shape
For Each sh In Me.Shapes
   select case sh.type
     case x, y, z,
        ' action de suppression    
     case else
       ' autre action éventuelle ou rien
  end select
Next

Voilà quelques types (liste non exhaustive et à continuer au besoin. L'énumération complète est à la rubrique MsoShapeType, énumération de l'aide VBA) :
images par menu Excel : 13
Formes : 1
zones de texte : 17
contrôles formulaire : 8
contrôles activex (y compris donc contrôles image activex) : 12

Reste à faire au besoin le distinguo entre un contrôle activex image et un contrôle activex non image. Je le ferai si Igloobel en a le besoin (en fonction de ses feuilles).

EDIT : je rappelle au passage que les commentaires de cellules sont également des objets Shape

[Igloobel]

OH PU.....NAISE!

Bon alors avant de me lancer je vais vérifier

...
EDIT : je rappelle au passage que les commentaires de cellules sont également des objets Shape

Veux-tu dire que par là que l'on savoir si il y a une photo dans un commentaire ?

En tout cas merci à tous de ces éclaircissements

Oui j'avoue que je ne connaissait pas Shape


De toute façon je vous tiens au courant.

[HopPopPop]

Bonjour à tous,
As-tu pensé à cela ? A essayer sur une copie d'un fichier pour le test.

Code :

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

ActiveSheet.Shapes.SelectAll: Selection.Delete

Edit: Trop tard.