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
MichDenis
Tu dois ajouter la bibliothèque "Microsoft Activex Data Object 2.x Librairy" à ton projet VBA.
Si to fichier texte utilise le "point-virgule", la procédure va distribuer correctement dans chacune des colonnes tes données.
Si ton fichier texte utilise un autre séparateur, tu devras utiliser la commande : barre des menus / Données / Convertir (cette dernière opération peut être traduit en macro si tu utilises l'enregistreur de macro.
'---------------------------------------- Sub Test()
Dim Conn As ADODB.Connection, Rst As New ADODB.Recordset Dim Requete As String, Rg As Range Dim Chemin As String, Fichier As String
Chemin = "C:" ' à déterminer Fichier = "Denis1.txt" ' à déterminer
Set Conn = New ADODB.Connection Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Chemin & ";" & _ "Extended Properties=""text;HDR=No;FMTÞlimited"""
'Destination des données... Set Rg = Worksheets("Feuil1").Range("A1") Rg.CopyFromRecordset Rst Rst.Close: Conn.Close Set Rg = Nothing
End Sub '----------------------------------------
"Dave" a écrit dans le message de news: 4575d0dd$0$27387$ Bonjour,
Avez-vous un exemple utilisant les ADO pour importer un fichier texte dans excel ?
merci pour celui qui me donnera l'exemple
Tu dois ajouter la bibliothèque "Microsoft Activex Data Object 2.x Librairy"
à ton projet VBA.
Si to fichier texte utilise le "point-virgule", la procédure
va distribuer correctement dans chacune des colonnes
tes données.
Si ton fichier texte utilise un autre séparateur, tu devras
utiliser la commande : barre des menus / Données / Convertir
(cette dernière opération peut être traduit en macro si tu utilises
l'enregistreur de macro.
'----------------------------------------
Sub Test()
Dim Conn As ADODB.Connection, Rst As New ADODB.Recordset
Dim Requete As String, Rg As Range
Dim Chemin As String, Fichier As String
Chemin = "C:" ' à déterminer
Fichier = "Denis1.txt" ' à déterminer
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Chemin & ";" & _
"Extended Properties=""text;HDR=No;FMTÞlimited"""
Tu dois ajouter la bibliothèque "Microsoft Activex Data Object 2.x Librairy" à ton projet VBA.
Si to fichier texte utilise le "point-virgule", la procédure va distribuer correctement dans chacune des colonnes tes données.
Si ton fichier texte utilise un autre séparateur, tu devras utiliser la commande : barre des menus / Données / Convertir (cette dernière opération peut être traduit en macro si tu utilises l'enregistreur de macro.
'---------------------------------------- Sub Test()
Dim Conn As ADODB.Connection, Rst As New ADODB.Recordset Dim Requete As String, Rg As Range Dim Chemin As String, Fichier As String
Chemin = "C:" ' à déterminer Fichier = "Denis1.txt" ' à déterminer
Set Conn = New ADODB.Connection Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Chemin & ";" & _ "Extended Properties=""text;HDR=No;FMTÞlimited"""