Interfacer une macro

Bonjour à tous,

Actuellement je réalisé une macro qui permet de faire une conversion de format de fichier.

Voila où j'en suis:

Sub ConvertDBF_to_CSV()

Dim strDocPath As String

Dim strCurrentFile As String

Dim Fname As String

Dim sFiles

Dim x As Integer, y As Integer

Application.ScreenUpdating = True

x = 0

y = 0

sFiles = Dir(ThisWorkbook.Path & "*.dbf")

'count the files

Do Until sFiles = ""

x = x + 1

sFiles = Dir

Loop

strDocPath = "C:\Users\fg733136\Documents\Projet PCC\03SABRAQUE corrigé\03SABRAQUE corrigé\"

'strCurrentFile = Dir(strDocPath & "*.*")

strCurrentFile = Dir(strDocPath & "*.dbf")

Do While strCurrentFile <> ""

y = y + 1

'display current status on status bar

Application.StatusBar = "Conversion " & y & " of " & x

Workbooks.Open Filename:=strDocPath & strCurrentFile

Fname = Left$(strCurrentFile, Len(strCurrentFile) - 4) & ".csv"

ActiveWorkbook.SaveAs Filename:=strDocPath & Fname, FileFormat:=6, CreateBackup:=False, local:=True

strCurrentFile = Dir

Loop

Application.StatusBar = False 'release the status bar back to excel

Application.ScreenUpdating = False

End Sub

J'ai réussi la conversion de mes fichiers mais j'aimerais maintenant avoir une interface qui m'affiche l'état du traitement.

Je pensais l'avoir réussi avec mon Application.StatusBar et mon Application.ScreenUpdating mais j'ai rien d'afficher. Juste le traitement qui se réalise.

C'est pour cela que je vous demande votre aide.

Merci d'avance pour vos réponses.