rapatrier des données .dbf

[marcello06]

Bonsoir !

J'ai des restitutions quotidiennes sous forme 70306.dbf (pour le 07/03/06),80306.dbf ....etc

Comment faire pour rapatrier ces données automatiquement dans excel en allant chercher le fichier du jour en vba

Si vous pouvez m'aider merci d'avance

 

[MichelXld]

bonsoir

tu peux tester


'
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
'
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Chemin As String, Cible As String, laBase As String

Chemin = 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier'
laBase = 'societes.dbf'

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

Cible = 'SELECT * FROM ' & laBase & ';'

Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic

Range('A1').CopyFromRecordset Rs

Rs.Close
Cn.Close


bonne soirée
MichelXld

 

[marcello06]

merci Michel je vais tester ton code

a plus

 

[marcello06]

merci Michel je vais tester ton code

a plus