Résultat lecture fichier csv fermé non correct

Version imprimable

Bonjour,
j'ai une macro qui me permet d'aller récupérer l'ensemble des données se trouvant dans un classeur fermé de type 'csv'.
Lorsque le fichier est enregistré sur mon PC personnel, cela fonctionne correctement.
Par contre, lorsque j'essaie de faire de même mais avec le fichier 'csv' stocké sur un serveur au boulot, seule la première colonne est importée.
J'avais déjà rencontré ce problème auparavant et il avait été résolu sans que j'y fasse quoi que ce soit.
Est-ce un problème lié au réseau? Est-il possible de résoudre cela en jouant sur les paramètres ADO? Avez-vous un moyen de contournement ou une autre façon de faire à me proposer?
Pour information, quelque soit la taille du fichier 'csv', le problème reste le même.
Je vous joins le code plus bas et vous remercie d'avance pour votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 Sub ImportFichierCSV(RépertoireFichierAImporter, FichierAImporter, NomOngletImport) Dim Cn As ADODB.Connection Dim Repertoire As String Dim Fichier As String Dim texte_CON As String Dim texte_SQL As String Dim Rst As ADODB.Recordset ' RépertoireFichierAImporter = "E:\Mes documents\Idrissa\Moulinette Prose\" ' FichierAImporter = "Export_Plannings_SENP_2009_09.csv" Set Cn = CreateObject("ADODB.Connection") '--- Connection --- texte_CON = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RépertoireFichierAImporter & ";" _ & "Extended Properties=""text;HDR=NO;FMT=Delimited"";" Cn.Open texte_CON '----------------- 'Définit la requête. texte_SQL = "SELECT * FROM " & FichierAImporter Set Rst = New ADODB.Recordset 'Rst.Open strsql, cn Set Rst = Cn.Execute(texte_SQL) 'création de l'onglet où seront copiées les données Call AjoutNouvelOnglet(NomOngletImport) 'Ecrit le résultat de la requête dans la cellule A1 de l'onglet créé ligne précédente Sheets(NomOngletImport).Select Range("A1").CopyFromRecordset Rst '--- Fermeture connexion --- Cn.Close Set Cn = Nothing End Sub

23/09/2012, 10h59
kiki29

Salut, une autre façon d'y parvenir, même si je ne sais pas comment cela peut se comporter en réseau. A adapter à ton contexte.

Salut Kiki,
merci pour ton aide.
J'ai adapté la fonction qui se trouve dans le lien que tu as joint et ça marche bien. L' "inconvénient" de cette méthode est que le fichier à importer est ouvert.
Pour information, voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub ImportFichierCSV(RépertoireFichierAImporter, FichierAImporter, NomOngletImport)
 
    Dim FSO As Object
    Dim Fichier As String
    Dim Wkb As Workbook, sNomSh As String
    Dim sNomFichier As String
 
    Dim NbLigne As Long
    Dim NbColonne As Long
 
    sNomFichier = RépertoireFichierAImporter & FichierAImporter
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Fichier = FSO.GetFileName(sNomFichier)
 
    Application.DisplayAlerts = False
    Set Wkb = Application.Workbooks.Open(sNomFichier, Local:=True)
    Application.DisplayAlerts = True
 
    NbLigne = ActiveSheet.UsedRange.Rows.Count
    NbColonne = ActiveSheet.UsedRange.Columns.Count
 
    Range(Cells(1, 1), Cells(NbLigne, NbColonne)).Copy
 
    Workbooks("Moulinette Prose.xls").Activate
 
    'création de l'onglet où seront copiées les données
    Call AjoutNouvelOnglet(NomOngletImport)
 
    Worksheets(NomOngletImport).Paste
 
    'Astuce pour vider le presse-papier
    Cells(1, 1).Copy
 
    Wkb.Close False
    Set FSO = Nothing
 
End Sub