Discussion :

[eliot.raymond]

Bonjour a tous, forum bonjour

Avec ce code j'affiche en colonne (A) le nom des fichiers d'un répertoire (H:\)
et en colonne (B) le poids des fichiers.

Pour un meilleur repérage dans la liste, je souhaiterai modifier le code pour afficher dans le format ci-dessous
Afficher en rouge juste les "Go"

699,64 Mo
704,55 Mo
1*431*898,01 Go
700,50 Mo
1*431*716,02 Go
697,64 Mo
685,15 Mo
700,61 Mo
703,79 Mo

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each FileItem In SourceFolder.Files
             Cells(R, 1).Formula = FileItem.Name
 
    If FileItem.Size >= 1048576 Then Cells(R, 2).Formula = Format(FileItem.Size / 1024 / 1024, "##,##0.00"" Mo""")
 
    If FileItem.Size >= 1073741824 Then Cells(R, 2).Formula = Format(FileItem.Size / 1024, "##,##0.00"" Go""")   ' "Go" en rouge < Gras si possible >
 
            R = R + 1
 Next

Merci a vous pour votre aide, bonne journée a vous

Cdlt Ray

[Invité]

Bonjour,

Essayez ce code en modifiant la partie concernée :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    If FileItem.Size >= 1073741824 Then
        With Cells(R, 2)
            .Formula = Format(FileItem.Size / 1024, "##,##0.00"" Go""")   ' "Go" en rouge < Gras si possible >
            With .Characters(Start:=Len(Cells(R, 2)) - 1, Length:=2).Font
                 .Bold = True
                 .Color = RGB(255, 0, 0)
            End With
        End With
    End If

Cordialement.

[eliot.raymond]

Salut Eric KERGRESSE,

Merci beaucoup pour la réponse, c'est gentil a vous.

Donc le petit code réaliser fonctionne super bien, Merci

Puisque c'est le même sujet:

Je souhaiterai svp avoir votre avis d'expert a propos de mon code.

(1) Juste de savoir si le calcul pour le poids des fichiers (Mo Go) est correct.
Sinon que faut-il mettre ???

(2) Serait-il possible svp de me calculer le nombre de fichiers en Mo et idem en Go

Ex: Label83 = 25 fichiers en Mo et Label84 = 7 fichiers en Go

En vous remerciant d'avance, bonne après midi a vous.

Bien Cordialement Raymond

[Invité]

(1) Juste de savoir si le calcul pour le poids des fichiers (Mo Go) est correct.
Sinon que faut-il mettre ???

J'aurais divisé par multiples de 1000 car la taille est en octets.

(2) Serait-il possible svp de me calculer le nombre de fichiers en Mo et idem en Go
Ex: Label83 = 25 fichiers en Mo et Label84 = 7 fichiers en Go

Il faut incrémenter un compteur pour décompter vos fichiers dans chacune des conditions.

Cordialement.

[Marc-L]

Bonjour,

l'unité précise est de 1024 …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[eliot.raymond]

Merci a vous pour les réponses


Pour les divisions par 1000 ou 1024 c'est fait dans mon code "non" !!!
mais peut être ce n'ai pas bon donc ???

Désoler pour faire ca je ne sais pas.

(2) Serait-il possible svp de me calculer le nombre de fichiers en Mo et idem en Go
Ex: Label83 = 25 fichiers en Mo et Label84 = 7 fichiers en Go

Merci a vous et bonne après midi

Cdlt Raymond