Gérer une chaîne vide dans Do/While/Loop

Bonjour,

J'ai un bout de code présentement qui transforme les fichier l'extension des fichiers *.TXT en fichiers *.XLS. Un message de type MsgMox qui affiche lorsque l'opération est terminée.

J'aimerais pouvoir gérer le bout de code lorsqu'il n'a pas traité aucun fichier.

Dim IN_directory As String
Dim TXTPATH As String

TXTPATH = ActiveWorkbook.Names("IN_Directory").RefersToRange.Value
TXTPATH = TXTPATH & "\"

changeFile = Dir(TXTPATH & "*.txt")

Do While changeFile <> vbNullString
Name TXTPATH & changeFile As TXTPATH & Left(changeFile, Len(changeFile) - 3) & "xls"
changeFile = Dir
Loop

MsgBox "Fichiers .txt convertis en .xls"

Merci!

-- Ven Avr 01, 2011 4:33 pm --

TTT! Merci!

Bonsoir,

Dim Cpt%
Do While changeFile <> vbNullString
    Name TXTPATH & changeFile As TXTPATH & Left(changeFile, Len(changeFile) - 3) & "xls"
    changeFile = Dir
    Cpt = Cpt + 1
Loop
    If Cpt = 0 Then
        MsgBox ("Aucun fichier traité !")
    Else
        MsgBox (Cpt & " Fichiers .txt convertis en .xls")
    End If
End Sub

Amicalement

Claude

Un énorme merci!