Comment utiliser la fonction FileLen dans VBA ?

La fonction `FileLen` en VBA est utilisée pour obtenir la taille d’un fichier en octets. Voici comment vous pouvez l’utiliser :

   Dim tailleFichier As Long
   tailleFichier = FileLen("cheminverslefichier.ext")

Syntaxe de base:

Remplacez `”cheminverslefichier.ext”` par le chemin complet de votre fichier.

Exemple d’utilisation :

Voici un exemple plus complet qui illustre comment utiliser `FileLen` pour afficher la taille d’un fichier :

   Sub ExempleFileLen()
       Dim cheminFichier As String
       Dim tailleFichier As Long
       
       ' Spécifiez le chemin du fichier
       cheminFichier = "C:dossierfichier.txt"
       
       ' Obtenez la taille du fichier
       On Error GoTo GestionErreur
       tailleFichier = FileLen(cheminFichier)
       
       ' Affichez la taille du fichier
       MsgBox "La taille du fichier est de " & tailleFichier & " octets."
       Exit Sub
       
   GestionErreur:
       MsgBox "Erreur: Le fichier n'existe pas ou le chemin est incorrect."
   End Sub

Quelques points à considérer :

Assurez-vous que le fichier existe avant d’appeler `FileLen`, sinon une erreur d’exécution sera déclenchée.
Utilisez une gestion des erreurs (`On Error`) pour gérer les cas où le fichier n’est pas trouvé ou lorsque le chemin est incorrect.
`FileLen` renvoie la taille du fichier en type `Long`, donc elle peut gérer des tailles de fichier jusqu’à environ 2 Go.

N’oubliez pas de tester votre script dans un environnement de développement VBA (comme dans Excel, Access ou une autre application Office) pour vous assurer qu’il fonctionne selon vos attentes.

facebooklinkedin