Discussion :

[jimmy17]

Bonjour à tous, je souhaiterai créer une macro qui à partir d'une cellule contenant le chemin souhaité (Col n-1) testerait la présence d'un fichier et ramènerait sa taille en Ko ou 0. Je ne sais pas trop comment m'y prendre. j'ai bien essayé quelques modifs sur des macros existantes, mais sans résultats probants. Quelqu'un aurait-il une piste?
par avance merci
Jimmy

[Docmarti]

Bonjour jimmy17;

Pour connaître la longueur d'un fichier, il y a une fonction qui s'appelle FileLen()

Code :

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

1
2
f = Cells(1, 1).Value
longueur = FileLen(f)

[jimmy17]

[quote=Jimmy1;7677010]Docmarti;

Je suis novice, et j'ai essayé le code suivant sans effet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Longueur()
    Dim DernLigne As Long
    DernLigne = Range("K1048576").End(xlUp).Row
    Dim i As Integer
    Dim Taille As String
        For i = 3 To DernLigne
            F = Cells(i, -1).Value
            Taille = FileLen(F & "\Front.jpg")
            TextToDisplay = Taille
            ActiveCell.Offset(1, 0).Select
        Next i
End Sub

Pourrais-tu y jeter un coup d'oeil STP

Merci

[Docmarti]

Cette ligne ne peut pas être valide car le -1 que tu as mis représente la colonne. Et il n'y a pas de colonne -1.

Code :

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

 F = Cells(i, -1).Value

Si c'est la colonne "A", il faut mettre 1 :

Code :

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

F = Cells(i, 1).Value

Pour la Colonne "B", ce serait 2 :

Code :

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

F = Cells(i, 2).Value

[jimmy17]

Merci une fois corrigé, VBA bute sur la ligne

Code :

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

 Taille = FileLen(F & "\Front.jpg")

Erreur 53 fichier non existant.
En effet, si le fichier n'existe pas dans le chemin donné, j'aimerai afficher 0.

Je ne suis pas sur de la commande TextToDisplay non plus car mes cellules résultats n'affichent rien

Merci à toi

[Docmarti]

Bonjour jimmy17;

La commande On Error Resume Next permet de détecter les erreurs et de les gérer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Longueur()
    Dim DernLigne As Long
    DernLigne = Range("K" & Rows.Count).End(xlUp).Row
    Dim i As Integer
    Dim Taille As String
        For i = 3 To DernLigne
            TextToDisplay = ""
 
            F = Cells(i, "K").Value
            Err.Clear
            On Error Resume Next
            Taille = FileLen(F)
 
            If Err <> 0 Then
             TextToDisplay = 0
            Else
             TextToDisplay = Taille
            End If
            Err.Clear
 
            Cells(i, "K").Offset(0, 1) = TextToDisplay
        Next i
End Sub