[Résolu] Macro - Importation .csv en UTF-8

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Macro - Importation .csv en UTF-8

alpking

je suis débutant en VBA et j'ai essayé de faire une macro qui ferait les étapes suivantes :

1. Ouvrir une fenêtre qui permet à l'utilisateur de choisir le chemin d'un fichier .csv
2. Ouverture d'un nouveau workbook
3. Importation de données externe sous format texte (csv) délimité par une virgule, texte entre doubles guillemets et encodé en UTF-8. Certaines colonnes contiennent du texte, d'autre des dates en format Y-M-D. Il y a donc plusieurs type de données
4. Coller les données importées en A1
5. Mise en gras de la première ligne
6. Autofit de la largeur des colonnes

Voici ce que j'ai réussi à faire en enregistrant des macro et en essayant de copier-coller les résultats.

Code :

Sub import_ccsv()
'
Dim F As Variant
F = Application.GetOpenFilename("csv Files (*.csv), *.csv" )
If F = False Then Exit Sub
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;F", Destination _
:=Range("$A$1" ))
.Name = "fichier_client"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, 5, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 5, 2)
.TextFileTrailingMinusNumbers = True
End With
Rows("1:1" ).Select
Selection.Font.Bold = True
Columns("A:A" ).Select
Range(Selection, Selection.End(xlToRight)).Select
Columns("A:AM" ).EntireColumn.AutoFit
End Sub

Je sais bien qu'il ne s'agit pas là de la meilleure technique mais c'est tout ce que j'ai réussi à faire avec mon tout petit niveau !!

Est-ce que quelqu'un voit ou est-ce que ça cloche ?

Message édité par alpking le 05-08-2009 à 17:10:05

Publicité

kiki29

Salut, as-tu vu le post que j'ai fait sur developpez.net ?

Message édité par kiki29 le 04-08-2009 à 21:01:43

alpking

Oui j'ai vu merci !!

si jamais, voici l'adresse :

http://www.developpez.net/forums/d [...] v-utf-8-a/

Ce qui cloche dans mon code c'est qu'il ouvre une fenêtre afin de sélectionner un fichier et une fois celui-ci sélectionné, il ouvre un nouveau classeur mais rien ne se passe...

Je pense que mon erreur principale est dans la récupération du chemin du fichier sélectionné, que je stocke dans la variable "F"

Code :

F = Application.GetOpenFilename("csv Files (*.csv), *.csv" )

Ensuite j'ai remplacé dans la macro automatiquement enregistrée le chemin d'accès par la variable F, afin de laisser à l'utilisateur le choix du fichier qu'il veut importer.

Code :

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;F", Destination _
:=Range("$A$1" ))

Je pense donc que mon erreur est la, le code ne comprend pas ce "TEXT;F" comme étant un chemin vers un fichier... Est-ce que je dois mettre des guillemets ou quelque chose du genre ??

Merci de votre aide en tout cas !!

Message édité par alpking le 05-08-2009 à 14:12:44

kiki29

Salut,

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & F ", Destination:=Range("A1" ))

Message édité par kiki29 le 05-08-2009 à 16:49:34

alpking

En fait je viens de trouver la solution pour ceux que ça intéresse :

Ca marche très bien avec :

Code :

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & F, Destination _
:=Range("$A$1" ))

Et j'avais oublié de rajouter la ligne suivante après :

Code :

.Refresh BackgroundQuery:=False

Merci pour votre aide

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Macro - Importation .csv en UTF-8

Sujets relatifs
[Resolu] Deziper un fichier en vbs	Headers et headers_sent (Résolu)
[RESOLU] Acc. 2000 Export XL : contourner la limite de 255 caractères	Gros problème de Mappage de lecteurs réseaux [ Résolu]
Création fichier log retraçant le déroulement d'une macro	Problème dans une macro devant faire un tri
[résolu] Warning: Call-time pass-by-reference has been deprecated	[Résolu] Un bouquin en ASP ?
VB Lancer un .bat tout juste créé [Resolu]	Catcher une alerte dans une macro excel
Plus de sujets relatifs à : [Résolu] Macro - Importation .csv en UTF-8

Page générée en 0.066 secondes