Conversion fichiers .dbf en fichiers .csv

Question

Bonjour à tous,
J'essaye de convertir des fichiers .dbf en fichier .csv avec Excel 2010. Voila actuellement ma macro :
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")
'count the files
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
'display current status on status bar
Application.StatusBar = "Converting " & 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 = True
End Sub
Je lance ma macro mais je n'obtiens aucun résultat...
Je vous demande donc votre aide ! 
J'oubliais, quelques informations supplémentaires :
-Mon fichier Excel est dans le même dossier que mes fichiers .dbf que je veux convertir.
- Mon Excel est en français.
Merci d'avance pour vos réponses !

vb95 · Answer

bonjour 
Je me suis permis de modifier le titre de ton post ( on le sait que c'est en VBA : la présente section de ton post)
Par contre présente ton code avec les balises ( voir http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code)
Par contre je ne peux te répondre car je pratique VB Net

Conversion fichiers .dbf en fichiers .csv

1 réponse

Votre réponse

Discussions similaires