Import csv Excel 2007

Version imprimable

08/02/2018, 15h24
ben5622

2 pièce(s) jointe(s)

Import csv Excel 2007

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 :
Pièce jointe 349705

Mon code sous Excel 2017 est le suivant :

Code:

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

Sous Excel 2007, les données ne sont pas bien importées :
Pièce jointe 349701

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
08/02/2018, 15h30
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:

DataType:=xlDelimited, Semicolon:=True
08/02/2018, 15h45
ben5622

1 pièce(s) jointe(s)

sous blocnote, ça fait un truc bizarre :
Pièce jointe 349710

j'ai essayé avec ton code mais cela ne fonctionne pas.
08/02/2018, 17h10
Jean-Philippe André

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

comment est il généré au départ ?
08/02/2018, 17h19
ben5622

c'est un export d'un logiciel de comptabilité...
08/02/2018, 17h47
Jean-Philippe André

ce sont des espaces, des tabulations qui apparaissent en blanc ?
08/02/2018, 17h53
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.
08/02/2018, 18h01
parmi

Bonjour,

Peux-tu joindre une partie du fichier (tout le début sur quelques lignes) si les données ne sont pas confidentielles?
08/02/2018, 18h03
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...

1 pièce(s) jointe(s)

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

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
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

09/02/2018, 11h35
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, …
09/02/2018, 11h45
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:

Workbooks.OpenText Filename:=fic, Origin:=xlWindows, StartRow:=1, DataType:=1, Semicolon:=True, Tab:=True, local:=True, ConsecutiveDelimiter:=True
09/02/2018, 11h51
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 …
09/02/2018, 12h02
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é...
09/02/2018, 12h03
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 …
09/02/2018, 12h18
ben5622

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

Citation:

Envoyé par ben5622

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).
Citation:
Envoyé par ben5622
Mon code complet est le suivant :
Code:

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 ??? 8O
Y'aurait pas, comme qui dirait, une couille dans le potage là ? :? Un truc que le DysplayAlerts = False vient bien masquer comme il faut... :aie:

09/02/2018, 13h33
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 (?!)
09/02/2018, 13h54
ben5622

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