Conversion fichiers .dbf en fichiers .csv

VBA_93 - Modifié par vb95 le 19/12/2016 à 18:10
vb95 Messages postés 3483 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 17 juillet 2024 - 19 déc. 2016 à 18:13
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 !

1 réponse

vb95 Messages postés 3483 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 17 juillet 2024 169
19 déc. 2016 à 18:13
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
Rejoignez-nous