Récupération via ADO

Ca doit etre ca

myConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:Fichiers;" & _
"Extended Properties=Text;"

Bon courage

bonjour,

J'ai récupéré sur Excelabo une macro pour récupérer des données de fichiers
fermés. Mais elle semble faite pour récupérer dans des fichiers Excel, or je
souhaite récupérer des CSV. Comment modifier la ligne suivante pour cela ?

myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & srcFile & ";" & _
"Extended Properties=""Excel 8.0;" & _
"HDR=" & HDR & ";IMEX=1;"""

Merci

Camille

Bonjour Elliac,

Ce type de macro n'est pas satisfaisant ?

'------------------------------------------
dim Chemin as string
Dim File as string

chemin = "c:test"
File = "test.csv"

Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Msgbox WholeLine
'Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
'------------------------------------------


Salutations!


"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de news: FAC7AFC7-268E-40ED-816C-7E526E2FA49B@microsoft.com...
bonjour,

J'ai récupéré sur Excelabo une macro pour récupérer des données de fichiers
fermés. Mais elle semble faite pour récupérer dans des fichiers Excel, or je
souhaite récupérer des CSV. Comment modifier la ligne suivante pour cela ?

myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & srcFile & ";" & _
"Extended Properties=""Excel 8.0;" & _
"HDR=" & HDR & ";IMEX=1;"""

Merci

Camille

Si tu préfères ADO,

Voici un petit exemple de code à adapter...

Évidemment la référence : "Microsoft Activex Data Object 2.x Librairy"
doit être ajoutée au classeur.

'------------------------------
Dim Conn As ADODB.Connection, Rst As New ADODB.Recordset
Dim Requete As String, Rg As Range

Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:Test;" & _
"Extended Properties=""text;HDR=No;FMTÞlimited"""
Requete = "SELECT * From test1.csv"

Rst.Open Requete, Conn, adOpenKeyset, adLockOptimistic

Set Rg = Worksheets("Feuil2").Range("H1")
Rg.CopyFromRecordset Rst
Rst.Close: Conn.Close
Set Rg = Nothing
'------------------------------


Salutations!





"michdenis" <michdenis@hotmail.com> a écrit dans le message de news: uBspEt0JGHA.604@TK2MSFTNGP14.phx.gbl...
Bonjour Elliac,

Ce type de macro n'est pas satisfaisant ?

'------------------------------------------
dim Chemin as string
Dim File as string

chemin = "c:test"
File = "test.csv"

Open Chemin & file For Input Access Read As #2
Do While Not EOF(2)
Line Input #2, WholeLine
Msgbox WholeLine
'Print #1, WholeLine
Loop
'Ferme le fichier dont il vient de copier les données
Close #2
'------------------------------------------


Salutations!


"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de news: FAC7AFC7-268E-40ED-816C-7E526E2FA49B@microsoft.com...
bonjour,

J'ai récupéré sur Excelabo une macro pour récupérer des données de fichiers
fermés. Mais elle semble faite pour récupérer dans des fichiers Excel, or je
souhaite récupérer des CSV. Comment modifier la ligne suivante pour cela ?

myConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & srcFile & ";" & _
"Extended Properties=""Excel 8.0;" & _
"HDR=" & HDR & ";IMEX=1;"""

Merci

Camille