Discussion :

[ben5622]

Bonjour le forum,

je coince sur un sujet qui ne devrait pas être si compliqué :
j'ai un code qui me permet d'importer un csv sous Excel. Cela fonctionne bien sous Excel 2017 mais pas sous Excel 2007.
Les données de mon fichier csv sont organisée par colonnes :


Mon code sous Excel 2017 est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Workbooks.OpenText Filename:=fic, Origin:=xlWindows, StartRow:=1, DataType:=1, local:=True

Sous Excel 2007, les données ne sont pas bien importées :


j'ai essayé de modifier le code avec tab:=false, local:=false, datatype:=xlfixedwidth mais cela ne fonctionne pas.

Quelqu'un a une idée ?

merci d'avance

[Jean-Philippe André]

Salut,

lorsque tu ouvres ton csv sous le bloc notes, le caractère de séparation est me semble-t-il un ";", non ?

en principe la combinaison pour l'OpenText devrait contenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataType:=xlDelimited, Semicolon:=True

[ben5622]

sous blocnote, ça fait un truc bizarre :


j'ai essayé avec ton code mais cela ne fonctionne pas.

[Jean-Philippe André]

il est pas un peu foireux à l'origine ton fichier csv ?

comment est il généré au départ ?

[ben5622]

c'est un export d'un logiciel de comptabilité...

[Jean-Philippe André]

ce sont des espaces, des tabulations qui apparaissent en blanc ?

[ben5622]

si mon curseur se déplace entre les blancs, ce sont des espaces ? si oui, c'est le cas.

ce qui m'intrigue surtout, c'est la différence de traitement entre Excel 2007 et 2017 puisque ce dernier arrive à traiter le fichier csv.

[parmi]

Bonjour,

Peux-tu joindre une partie du fichier (tout le début sur quelques lignes) si les données ne sont pas confidentielles?

[parmi]

Essaie aussi de le faire manuellement.
Il se peut que des cases soient restées cochées dans les options dans ton 2007 et qui causent problèmes...

[ben5622]

je ne peux pas joindre de fichier csv. Je l'ai donc zippé.
Mon code complet est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub ouvrirGLServ()
Call ouvrir_GLG("GLG", "************************* Importer le fichier csv. GLI, Grand Livre Général ***************************")
End Sub
 
Sub ouvrir_GLG(feuille As String, titre As String)
Dim wbs As Workbook, WBC As Workbook, WSS As Worksheet, WSC As Worksheet, rs As Range, RC As Range, y As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
fic = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
 
If fic <> False Then
    Workbooks.OpenText Filename:=fic, Origin:=xlWindows, StartRow:=1, DataType:=1, Semicolon:=True, Tab:=True, local:=True
    Set wbs = Workbooks.Open(Filename:=fic)
    Set WSS = wbs.Sheets(1)
    Set rs = WSS.Range("b1:t64000")
    Set WSC = ThisWorkbook.Sheets(feuille)
    WSC.Range("a1:s64000").Cells.Clear
    WSC.Range("t4:y64000").Cells.Clear
    rs.Copy
    WSC.Range("a1").PasteSpecial Paste:=xlPasteValues
    wbs.Close False
End If
Application.DisplayAlerts = True
End Sub

Merci

[Marc-L]

Bonjour,

ce fichier .csv s'ouvre déjà sans souci sous Excel 2003 depuis l'Explorateur Windows ! A tester de même …

Si ce n'est toujours pas bon, retirer du code Local:=True (utile avec Open) et si là cela fonctionne,

c'est que Windows / Excel n'est pas configuré pour la France …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Phil'oche]

Bonjour,

Ouvert au Notpad++, le fichier csv ne montre pas de caractères spéciaux, hormis les CrLf, et chaque "ligne" n'est pas non plus de longueur fixe.

N'ayant pas Excel 2007 (sous Excel 2010, aucun problème), et sans garantie, pourrais-tu éventuellement essayer avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.OpenText Filename:=fic, Origin:=xlWindows, StartRow:=1, DataType:=1, Semicolon:=True, Tab:=True, local:=True, ConsecutiveDelimiter:=True

[Marc-L]

Non, comme du reste visible dans le post initial dans l'aperçu de sa feuille,
son séparateur système par défaut est la virgule !

Associée donc à Local:=True …   Utile avec Open mais pas avec OpenText en y précisant le séparateur.
Et avec Open le séparateur peut aussi être précisé rendant alors ce paramètre caduque, juste ouvrir l'aide VBA interne …

[ben5622]

cela ne fonctionne pas non plus avec consecutivedelimiter.

J'ai fait des tests sur plusieurs PC et plusieurs versions d'Excel :
- mon PC excel 2016 : fonctionne
- PC d'un collègue excel 2016 : fonctionne
- chez mon client excel 2016 : fonctionne pas !!! ???
- chez mon client excel 2007 : fonctionne pas
- autre PC excel 2007 : fonctionne pas
- autre PC excel 2010 : fonctionne pas


ceux qui ont testés sur leur machine, cela fonctionne avec mon code ?

je suis désemparé...

[Marc-L]

Juste en lisant mes posts ‼     C'est pourtant évident la version d'Excel n'y est pour rien …

Code à corriger comme je l'ai pourtant indiqué dès ma première réponse !

___________________________________________________________________________________________________________

L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …

[ben5622]

j'ai essayé avec open au lieu de openText mais cela ne fonctionne pas non plus.

[Menhir]

ce qui m'intrigue surtout, c'est la différence de traitement entre Excel 2007 et 2017 puisque ce dernier arrive à traiter le fichier csv.

Est-ce que les deux versions sont sur le même poste ?
Si ce n'est pas le cas, le problème peut venir d'ailleurs, entre autre des paramètres régionaux de Windows qui définissent (entre autres) les séparateurs de données (";" pour la France, "," pour les pays anglosaxons).

Dans tous les cas, ça peut se résoudre en utilisant OpenText, comme spécifié par Jean-Philippe André (post #2) et Phil'oche (post #12).

Mon code complet est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
fic = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
 
If fic <> False Then
    Workbooks.OpenText Filename:=fic, Origin:=xlWindows, StartRow:=1, DataType:=1, Semicolon:=True, Tab:=True, local:=True
    Set wbs = Workbooks.Open(Filename:=fic)

Déjà, avoir commencé un code en cours de débugage par ScreenUpdating = False et DisplayAlerts = False, ce n'est pas une bonne idée vu que ça peut empêcher l'apparition d'informations utiles.

Ensuite, je ne comprends pas dans ton code cet empilement d'instruction d'ouverture de fichiers : un OpenText puis un Open, tous les deux sur le même fichier ???
Y'aurait pas, comme qui dirait, une couille dans le potage là ? Un truc que le DysplayAlerts = False vient bien masquer comme il faut...

[parmi]

Comme je disais dans le #9 (pas vraiment clair...), essaie avec l'enregistreur.
Ouvre le fichier par menu Ouvrir
S'il n'est pas bien formaté, va dans Données / Convertir et passe toutes les étapes en cochant/décochant au besoin ce qu'il faut. Excel se rappelle des paramètres récemment utilisés.

Je suis passé par là récemment avec des CSV anglais dont certains passaient bien avec OpenText, mais d'autres non, et passaient avec Open (?!)

[ben5622]

Merci menhir, en effet, j'avais deux lignes de code en doublon. ça fonctionne !
merci aux autres contributeurs.