Compression d'images en VBA

Bonjour,
Comment peut'on comprimer des images à la fermeture d'un fichier Excel via "BeforeClose" ?
C'est à dire lancer en automatique la fonction "Compress Pictures" de la barre d'outil "Pictures".
Merci.

Bonjour,

Une piste avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CompressionImage() Dim C As CommandBarControl Application.ScreenUpdating = False For Each C In Application.CommandBars("Picture").Controls If TypeOf C Is CommandBarButton Then If C.ID = 6382 Then Application.SendKeys "{DOWN}{TAB}{UP}{ENTER}{ENTER}", True C.Execute Exit For End If End If Next C Application.ScreenUpdating = True End Sub

---

Ne pas faire tourner le code dans le VBE (à cause de SendKeys) mais dans Excel.

Cordialement.

PMO
Patrick Morange

Merci pour l'aide :ccool:
J'avais oublié l'attente de SendKeys avant l'exécution de la boite de dialogue :oops:
Voici le code que j'ai utilisé :

Code:

---

1 2 3 4

Sub CompressPictures() Application.SendKeys "{DOWN}{TAB}{UP}{ENTER}, True Application.CommandBars("Picture").Controls(10).Execute End Sub

---