Difficile de paramétrer OpenText lors d'un import CSV

Pierrot93

XLDnaute Barbatruc

• 5 Août 2010

• #2

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour Capri

essaye peut être ainsi, non testé...

Code:

Workbooks.OpenText (Chemin0) & lefichier, _
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, comma:=True

bon après midi
@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 5 Août 2010

• #3

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour Capri, Pierrot


A tester

Code:

DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
Other:=True, _
OtherChar:=",", _
local:=True

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Août 2010

• #4

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour tous,

Peut être en rajoutant une précision sur le séparateur décimal des données.

Code:

DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
Other:=True, _
OtherChar:=",", _
local:=True, _
[B][COLOR=red]DecimalSeparator := "."[/COLOR][/B]

A+ à tous

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 6 Août 2010

• #5

Re : Difficile de paramétrer OpenText lors d'un import CSV

bonjour Capri,Hasco,Mj,Pierrot

essaye ce code,testé

Sub ImportInfoTxt()
Dim wS As Worksheet
Set wS = Sheets("Import")

wS.Cells.ClearContents

Filename = Application.GetOpenFilename(filefilter:="Fichiers txt (*.txt), *.txt", Title:="Choisir le fichier txt")
If UCase(Filename) = "FAUX" Then
MsgBox "Opération annulée"
Exit Sub
End If

Set qtQtrResults = _
wS.QueryTables.Add(Connection:="TEXT;" & Filename, Destination:=wS.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileOtherDelimiter = "\"
.Refresh
End With

AjoutFeuille1
End Sub

à bientôt

 

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 6 Août 2010

• #6

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour Le Forum,
Pierrot, MJA3 , HASCO,

J'ai tenté successivement vos propositions,

Il m'affiche toujours pour:

les poids 0002.452 (soit 2kgs 452 gr) ou
les volumes 0000.192 (soit 0 M3 192 cm3)
2 dans une col et 452 dans celle qui suit
0 dans une col et 192 dans celle qui suit
Il ne s'agit donc pas de décimales mais de séparateur de milliers

Je vais donc tester ThousandsSeparator:="."

et pour les montants 0000000123.75 (soit 123 € 75 cents)
DecimalSeparator:="."

Cependant, je me demande comment excel va appliquer cela à l'une ou à l'autre colonne puisqu'il s'agit dans les deux cas du séparateur "."

Je vais tester...
Ouuppps voilà que j'ai pas le temps d'assimiler avant le boulot que voilà notre ami Bebere qui s'est levé dès 05h43😉 (j'te dis pas) du mat pour me fournir une autre proposition.....

Je vois tout cela et reviens à vous

Merci à tous pour votre soutien

CAPRI_456

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 6 Août 2010

• #7

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour Capri, Pierrot, Ges , Bebere

Sinon il y a une autre façon de procéder.

Comme un fichier Csv a en général toujours la même structure (pour un type d'application), tu peux essayer de renommer le .csv en .txt.

Puis tu lances Henry (Henry Gistrair de Macrow),tu ouvres ton fichier txt et tu testes les différents assitants d'import pour voir celui qui convient.

Ensuite tu arrêtes Henry, et tu récupères le code.

Normalement cela devrait te faire gagner du temps, à condition que ton fichier ai les bon délimiteurs.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 6 Août 2010

• #8

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour Capri_456, Pierrot93, Mj13, Hasco, Bebere, le forum

voici quelques fils qui traitent des problèmes d'importation des fichiers CSV avec plusieurs méthodes.

Cordialement

https://www.excel-downloads.com/threads/est-ce-que-le-fichier-est-ouvert.22712/
https://www.excel-downloads.com/threads/longueur-fixe-dun-enregistrement.23144/
https://www.excel-downloads.com/threads/ouverture-csv-par-macro.20783/

 

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 6 Août 2010

• #9

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour , Pierrot93, Mj13, Hasco, Bebere, YEAHOU, le forum

J'examine ces propositions et reviens à vous après le WE......

Merci pour ces nombreux apports


CAPRI_456

 

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 9 Août 2010

• #10

Re : Difficile de paramétrer OpenText lors d'un import CSV

Bonjour yeahou, Pierrot93, Mj13, Hasco, Bebere, le forum,


J'ai pour mon application utilisé "HENRY"(Henry Gistrair de Macrow)😉, proporsée par MJ13comme suit :

A- CODE QUI renomme LES CSV en TXT
lefichierCSV = Dir(CheminCSV)
While lefichierCSV <> "" ' s'il existe un fichier

If Right(lefichierCSV, 3) = "csv" Then ' UNIQUEMENT SI CSV
' alors renomme CSV en TXT dans répertoire TXT

Name CheminCSV & "\" & lefichierCSV As CheminTXT & "\" & Left(lefichierCSV, Len(lefichierCSV) - 4) & ".TXT"
End If
lefichierCSV = Dir() ' pour affecter le nom de fichier suivant dans

Wend


'B === CODE QUI CONVERTIT LES TXT en XLS à l'ouverture
B1) recherche de fichiers dans un répertoire (sur le Forum)

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(CheminTXT)
Set fc = f.Files

For Each f1 In fc
If UCase(f1.Name) Like "*.TXT" Then

lefichierTXT = Dir(CheminTXT)

B2 -méthode "OPENTEXT"

Code obtenu grâce à "HENRY"😉 qui permet de paramétrer les datas à l'importation.

Workbooks.OpenText (CheminTXT) & lefichierTXT _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array( _
41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1)) _
, TrailingMinusNumbers:=True



Résultat parfait qui restpece dates, décimales, milliers,....

Merci à tous, au Forum,

CAPRI_456

 

Vote positif 0 Vote négatif