Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Transfert Table vers Dbf

Transfert Table vers Dbf

1 réponse
Avatar
Phil
Bonjour,

Dans un Classeur Excel j'enregistre des données dans plusieurs tables d'une
base .mdb
J'ai besoin d'exporter certaines de ces tables au format dBase III (en .dbf)
pour des échanges de données avec d'autres applications.
Sous VBA Access il existe la procédure "TransferDataBase", elle n'existe pas
sous VBA Excel (ou je ne sais pas comment faire).
Les utilisateurs de l'appli Excel n'ayant pas tous access je dois gérer ce
Problème avec VBA Excel.

Pouvez vous m'expliquer comment
* soit exporter une table d'une base .mdb en dBase III sous VBA Excel
* soit créer une table dBase III sous VBA Excel (apprès l'avoir attachée à
ma base .mdb, je pourrai y copier les données nécessaires)

Merci de votre aide
Phil
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
parci
>Pouvez vous m'expliquer comment
* soit exporter une table d'une base .mdb en dBase III sous VBA Excel



Avec une référence à ADO dans ton projet VBA Excel :

Sub AccessToDbf()

Dim oConnection As ADODB.Connection
Dim sAccessBase As String
Dim sDbfBase As String
Dim sTable As String
Dim sQuery As String

sAccessBase = "C:totomabase.mdb"
sDbfBase = "C:toto"
sTable = "maTable"

Set oConnection = New ADODB.Connection
oConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
oConnection.Properties("Data Source").Value = sAccessBase
oConnection.Open

sQuery = "SELECT * INTO [DBASE III;Database=" & sDbfBase & ";].[" & sTable
& ".dbf] FROM [" & sTable & "]"

oConnection.Execute sQuery
oConnection.Close
Set oConnection = Nothing

End Sub

--
Message monitoré par axinews : http://www.axinews.com/