Macro itérative ramenant la taille d'un fichier à partir d'un chemin

Version imprimable

02/02/2014, 15h22
jimmy17

Macro itérative ramenant la taille d'un fichier à partir d'un chemin

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
02/02/2014, 15h48
Docmarti
Bonjour jimmy17;

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

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

[quote=Jimmy1;7677010]Docmarti;

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

Code:

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

02/02/2014, 16h52
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:

F = Cells(i, -1).Value

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

Code:

F = Cells(i, 1).Value

Pour la Colonne "B", ce serait 2 :

Code:

F = Cells(i, 2).Value
02/02/2014, 17h19
jimmy17

Merci une fois corrigé, VBA bute sur la ligne

Code:

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

Bonjour jimmy17;

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

Code:

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

02/02/2014, 18h52
jimmy17

[RESOLU]

Et voilà, quand un pro écrit, tout est dit et fonctionne. Après adaptation, cette macro réponds parfaitement à mes attentes: P.

Mille Mercis, Docmarti, pour le temps et la leçon.