A voir également:
- VBA EXCEL lire fichier sans l'ouvrir
- Ouvrir fichier .bin - Guide
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier docx ? - Guide
- Liste déroulante excel - Guide
5 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
1 mai 2008 à 09:40
1 mai 2008 à 09:40
Bonjour,
un exemple qui insère dans ton classeur les données d'un champ d'une base DBF en utilisant la technologie ADO
en gras éléments à personnaliser
Sub importer_champDBF()
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library (dans VBE outils-référence)
Dim source As ADODB.Connection
Dim Requete As ADODB.Recordset
Dim Chemin As String, fichier As String, texte_SQL As String
Chemin = "F:\emplacement de tabase"
'Chemin = ThisWorkbook.Path si ta base est dans le m^répertoire
fichier = "tabase.dbf"
Set source = New ADODB.Connection
source.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _
Chemin & ";"
texte_SQL = "SELECT tonchamp FROM " & fichier & ";" 'si tu importe tout met * au lieu de tonchamp
Set Requete = New Recordset
Requete.Open texte_SQL, source, adOpenKeyset, adLockOptimistic
If Requete.EOF Then
MsgBox "Table vide..."
Exit Sub
End If
Application.ScreenUpdating = False
Range("B2").CopyFromRecordset Requete
Requete.Close
source.Close
End Sub
d'après MichelXLD sur www.excel-downloads.com
Michel
un exemple qui insère dans ton classeur les données d'un champ d'une base DBF en utilisant la technologie ADO
en gras éléments à personnaliser
Sub importer_champDBF()
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library (dans VBE outils-référence)
Dim source As ADODB.Connection
Dim Requete As ADODB.Recordset
Dim Chemin As String, fichier As String, texte_SQL As String
Chemin = "F:\emplacement de tabase"
'Chemin = ThisWorkbook.Path si ta base est dans le m^répertoire
fichier = "tabase.dbf"
Set source = New ADODB.Connection
source.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & _
Chemin & ";"
texte_SQL = "SELECT tonchamp FROM " & fichier & ";" 'si tu importe tout met * au lieu de tonchamp
Set Requete = New Recordset
Requete.Open texte_SQL, source, adOpenKeyset, adLockOptimistic
If Requete.EOF Then
MsgBox "Table vide..."
Exit Sub
End If
Application.ScreenUpdating = False
Range("B2").CopyFromRecordset Requete
Requete.Close
source.Close
End Sub
d'après MichelXLD sur www.excel-downloads.com
Michel