Conversion fichiers .dbf en fichiers .csv

VBA_93 - 19 déc. 2016 à 11:36 - Dernière réponse : vb95 1502 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention
- 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 !
Afficher la suite 

1 réponse

Répondre au sujet
vb95 1502 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 20 avril 2018 Dernière intervention - 19 déc. 2016 à 18:13
0
Utile
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
Commenter la réponse de vb95

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.