Discussion :

[belgudo]

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.

[PMO2017]

Bonjour,

Une piste avec le code suivant

Code :

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

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

[belgudo]

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

Code :

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

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