Salut tout le monde.

Je viens de me rendre compte qu'une de mes macros plantait.
En effet, j'ouvre des fichiers TXT et avant je teste leur existence avec DIR, mais, lorsque le fichier existe mais est vide, j'ai une erreur.

Voici mon 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
    If Dir(P_Fichier) <> "" Then
        WFichier = P_Fichier
        Workbooks(WClasseurSource).Sheets("TEMP").Select
        With Workbooks(WClasseurSource).ActiveSheet.QueryTables.Add(Connection:= _
            "TEXT;" & WFichier _
            , Destination:=Range("A1"))
            .Name = "Fichier TXT"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 850
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = True
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = True
            .TextFileColumnDataTypes = Array(1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
        End With
    End If
Donc, comment tester que le fichier est vide ?
Merci d'avance pour votre aide.