Discussion :

[etorria]

Bonsoir,

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

Cdt,

Etorria

[kiki29]

Soir Bon,inutile de multi poster sur différents forums, sinon dans l'aide en ligne

Code :

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

1
2
 
Application.StatusBar = FileLen(ThisWorkbook.Name) & " Octets"

[Le Pierre]

bonsoir

voila ce que j'ai trouvé :

Code :

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

1
2
3
Sub Taille()
    Application.StatusBar = "Taille initiale de ce classeur en octets = " & FileLen(ActiveWorkbook.FullName)
End Sub

il faut bien sûr lancer cette procédure après un enregistrement que tu peux contrôler en incluant cette commande dans une procédure Auto_Open() par exemple

Code :

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

1
2
Application.CommandBars("Worksheet Menu Bar"). _
        Controls("Fichier").Controls("Enregistrer").OnAction = "Taille"

dans ce cas il faut gérer l'enregistrement dans la procédure Taille() par un code du genre :

Code :

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

1
2
3
4
   Fichier = ActiveWorkbook.FullName
   ActiveWorkbook.SaveAs Filename:= Fichier, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

avant l'affichage dans la barre de statuts.

A plus

[etorria]

Merci à toi, Le Pierre !