Conversión de DBF a CSV

Bonjour à tous,
Actualmente estoy tratando de convertir archivos .dbf en archivos .csv con una macro de Excel 2010.
Aquí está lo que he hecho:

 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 = False x = 0 y = 0 sFiles = Dir(ThisWorkbook.Path & "\*.dbf") 'contar los archivos Do Until sFiles = "" x = x + 1 sFiles = Dir Loop strDocPath = "C:\Users\fg733136\Documents\Projet Horaire PCC\03SABRAQUE corrigé\03SABRAQUE corrigé" 'strCurrentFile = Dir(strDocPath & "*.*") strCurrentFile = Dir(strDocPath & "*.dbf") Do While strCurrentFile <> "" y = y + 1 'mostrar el estado actual en la barra de estado Application.StatusBar = "Convirtiendo " & y & " de " & 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 'liberar la barra de estado de vuelta a excel Application.ScreenUpdating = True End Sub 

EDITAR : Añadir etiquetas de código

La ejecuto pero no obtengo ningún resultado...
Por lo tanto, solicito su ayuda.
Se me olvidó algunas informaciones adicionales:
-Mi Excel 2010 está en francés
-Mi archivo con la macro está en la misma carpeta que mis archivos .dbf
Gracias de antemano por sus respuestas.