Discussion :

[slakhdine]

Bonjour à tous, je m'adresse à vous pour une petite aide car ce forum m'a jamais déçus.
je souhaite supprimer un fichier si il est vide , finalement après beaucoup de tentations j'ai pu faire une petite macro simple mais le problème c'est que mon fichier il est vide malgré ça il m'affiche le message " le fichier contient des données "
pourriez vous m'aider s'il vous plait ci dessous le code

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
 
Function FchierEstVide()
Dim res, LePath As String
 
LePath = Dir("P:\Mercure\CONTENTIEUX OUTILS\PROG CREATION SMS\SMS NON ENVOYES DU " & Format(Now(), "dd mm yy") & ".xlsx")
res = FileLen("P:\Mercure\CONTENTIEUX OUTILS\PROG CREATION SMS\SMS NON ENVOYES DU " & Format(Now(), "dd mm yy") & ".xlsx")
 
If res = 0 Then
        Do While LePath <> ""
            Kill "P:\Mercure\CONTENTIEUX OUTILS\PROG CREATION SMS\" & LePath
            LePath = Dir
        Loop
    MsgBox ("fichier supprmé")
Else
    MsgBox ("fichier pas vide")
End If
 
End Function

Merci par avance

[Menhir]

Un fichier Excel ne peut pas être totalement vide au sens File System (taille de fichier 0). Il n'y a que les fichiers texte qui peuvent l'être.
Même s'il ne contient pas de données (classeur vierge), il contient beaucoup d'autres informations de structure et d'options.

Pour savoir si un fichier est vide au sens Excel (pas de données), il faut l'ouvrir et compter les cellules non vides.

[slakhdine]

Un fichier Excel ne peut pas être totalement vide au sens File System (taille de fichier 0). Il n'y a que les fichiers texte qui peuvent l'être.
Même s'il ne contient pas de données (classeur vierge), il contient beaucoup d'autres informations de structure et d'options.

Pour savoir si un fichier est vide au sens Excel (pas de données), il faut l'ouvrir et compter les cellules non vides.

Merci pour votre réponse rapide ,
oui j'ai bien compris, j'ai déjà tombé sur une discussion qui traite comme ce genre de situation voici le lien https://www.developpez.net/forums/d9...e/#post5363109
je l'ai testé mais le problème qu'elle traite que les feuilles pas les classeurs.

[Menhir]

je l'ai testé mais le problème qu'elle traite que les feuilles pas les classeurs.

Il suffit de faire une boucle sur la collection Worksheets (au pluriel) du classeur.

Il y a autre chose qui me semble anormal dans ton code de départ, c'est que c'est une Function.
Une Function est faire pour renvoyer une valeur, pas pour réaliser une action.

Il y a aussi ta boucle While qui est suspect.
Ton Dir étant fait sur un fichier unique (pas d'alias dans la désignation), je ne vois pas l'intérêt de faire une boucles pour chercher d'autres fichiers dans le même répertoire avec le même nom.
Et même dans l'éventualité où plusieurs fichiers seraient trouvés, ça voudrait dire que le code teste si le premier fichier est vide et, si c'est le cas, supprime tous les autres ???

[slakhdine]

Il suffit de faire une boucle sur la collection Worksheets (au pluriel) du classeur.

Il y a autre chose qui me semble anormal dans ton code de départ, c'est que c'est une Function.
Une Function est faire pour renvoyer une valeur, pas pour réaliser une action.

Il y a aussi ta boucle While qui est suspect.
En gros, dans ton code, tu testes si le premier fichier est vide et, si c'est le cas, tu supprimes tous les autres ???

je ne vois pas comment franchement , c'est possible de me le précisé svp , désolé si je vais t’embêter
en fait j'ai fat une fonction parce que mon programme s’exécute avec un ensemble de macros en même temps avec " call "
oui je veux le supprimer si il est vide .

[Menhir]

je ne vois pas comment franchement

5 min entre ma réponse et la tienne.
C'est sûr que si tu ne cherches pas, tu ne risques pas de trouver.