Créer un fichier DBF avec une macro Excel

[Le Maraudeur]

Bonjour à tous, c'est la première fois que je poste sur ce forum, mais j'avoue ne pas trop savoir comment m'y prendre pour résoudre ma problématique.

J'ai des données dans une base d'un logiciel (qui ne gère pas le dbf)que je vais attaquer via ODBC , et ensuite après traitements des enregistrements extraits de cette base, je voudrais enregistrer les données au format DBF en vue d'un import dans un autre logiciel (qui gère lui le dbf).

Ma question est donc la suivante : comment créer un fichier au format DBF et comment y insérer des données? J'avoue ne rien connaître au format dbf (structure des bases, etc)

Merci de m'indiquer la méthode à employer et / ou les fonctions à employer.

Cordialement,

Le Maraudeur 😉

PS: si besoin je peux joindre un exemple de fichier dbf que je dois créer...

 

[MichelXld]

bonsoir

tu peux tester cette macro pour créer un fichier DBF par macro


'
'Necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
'
Dim Cn As ADODB.Connection
Dim Fichier As String, Chemin As String

Chemin = 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier'
Fichier = 'maBase'

Set Cn = New ADODB.Connection
Cn.Open 'Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=' & _
Chemin & ';'

Cn.Execute 'Create Table ' & Fichier & ' (champTexte TEXT(30), champNum INTEGER)'
Cn.Execute 'Insert Into ' & Fichier & ' (champTexte, champNum) Values ('Donnee01', 1004599)'
Cn.Execute 'Insert Into ' & Fichier & ' (champTexte, champNum) Values ('Donnee02', 435455)'

Cn.Close
Set Cn = Nothing



bonne soirée
MichelXld

Message édité par: michelxld, à: 08/03/2006 21:54