Pb import .csv

[didier09]

Bonjour, j'ai un souci d'importation avec un fichier csv.
J'ai trouvé cette proc. sur le forum:


Sub ImportFichierGestionCsv()
Dim Rc As ADODB.Recordset
Dim Cn As String, Chemin As String, Fichier As String
Dim i As Long

Chemin = "C:\sauv_gestion"
Fichier = "GESTION.csv"

Cn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Chemin & ";Extensions=asc,csv,tab,txt"

Set Rc = New ADODB.Recordset
Rc.Open source:="SELECT * FROM " & Fichier, ActiveConnection:=Cn

If Not Rc.EOF Then
For i = 0 To Rc.Fields.Count - 1 'recuperation entetes
Cells(1, 1).Offset(0, i) = Rc.Fields(i).Name
Next
Range("A2").CopyFromRecordset Rc
End If

Rc.Close
End Sub

Je l'ai adapté pour le chemin, mon problème est que cela ne m'importe pas 2 lignes (D2,D3). Pour une des deux lignes, les valeurs sont au format date.
Avez vous une idée?
Merci

 

[RENAUDER]

Re : Pb import .csv

Bonjour,

Je n'ai trouvé que cela mais ça fonctionne

 

[didier09]

Re : Pb import .csv

Merci pour la rapidité de réponse. Les lignes s'importent bien, mais les guillemets me posent problème, peut on les enlever? Je récupère les valeurs de date sur une autre feuille.

 

[RENAUDER]

Re : Pb import .csv

Bonjour,
Il suffit de demander.

 

[didier09]

Re : Pb import .csv

Whouahhhhhh......Rapidité, efficacité.... Merci.
Un bon week-end à toi.
Cordialement.
Didier

 

[didier09]

Re : Pb import .csv

oups.....un truc bizarre, le format de la date change: de jour/mois/année il passe a mois/jour/année ??? et donc re-problème.....

 

[RENAUDER]

Re : Pb import .csv

Bonjour,
Voici une correction

 

[didier09]

Re : Pb import .csv

A priori ça fonctionne.
Merci
didier