Affichage du poids d'un fichier dans la barre d'état

[koukou40]

Bonsoir,

En VBA, est-il possible d'afficher le poids d'un fichier dans la barre d'état avec mise à jour à chaque enregistrement ?

Cdt,

koukou40

 

[kiki29]

Re : Affichage du poids d'un fichier dans la barre d'état

Soir Bon, Inutile de multi poster sur différents forums

 

[Cousinhub]

Re : Affichage du poids d'un fichier dans la barre d'état

Bonjour
bonjour Kiki

codes à mettre dans l'évènement du classeur :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayStatusBar = True
Application.StatusBar = FileLen(ActiveWorkbook.FullName) / 1024 & " Ko."
End Sub

Private Sub Workbook_Deactivate()
Application.StatusBar = ""
End Sub

 

[koukou40]

Re : Affichage du poids d'un fichier dans la barre d'état

Bonjour
bonjour Kiki

codes à mettre dans l'évènement du classeur :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayStatusBar = True
Application.StatusBar = FileLen(ActiveWorkbook.FullName) / 1024 & " Ko."
End Sub

Private Sub Workbook_Deactivate()
Application.StatusBar = ""
End Sub

Merci bhbh, c'est parfait !

 

[kiki29]

Re : Affichage du poids d'un fichier dans la barre d'état

To koukou40 : Affichage du poids du fichier dans barre d'état - Forum des développeurs ????

 

[JCGL]

Re : Affichage du poids d'un fichier dans la barre d'état

Bonjour à tous,
Salut BH*2,

Koukou40 : Je t'ai "pardonné" tes écarts envers mon ami JP (Jean-Pierre), pensant que tu allais te "conformer aux règles" d'XLD. Tout comme mon ami bhbh, je ne répondrais plus à tes demandes...
Si tant est que j'ai pu apporter des réponses qui aient pu répondre à tes demandes...

A+ à tous

 

[David Aubert]

Re : Affichage du poids d'un fichier dans la barre d'état

Bonsoir,

Je clos le sujet.

Merci Koukou40 de respecter les gens sur ce forum à l'avenir.

Bonne soirée

David