Discussion :

[neogunnm]

Bonjour,

Etant vraiment très débutant dans le scripting vbs je solicite votre aide.

Je souhaiterais convertir mon fichier CSV qui est un extract d'une base de données vers un fichier XLSX exploitable.

J'ai réussi à faire le principal, cependant je bloque sur un point assez important.
En effet, le script ne respecte pas les "vide". Du cout lorsque mes colonnes se remplissent, tout est décalé.

Fichier csv :

test1,test2,test3,test4,test5,test6,test7,test8,test9,test10
dupont,,rue voltaire,,bordeaux,AB125,5555,01/01/2001,tel B,Bur 6,
martin,,rue pereire,,Lille,AL522,4577,31/06/2007,tel A,Bur 4,

Script :

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
Const xlDelimited                =  1
Const xlTextQualifierDoubleQuote =  1
Const xlOpenXMLWorkbook          = 51
 
Set xl = CreateObject("Excel.Application")
 
xl.Workbooks.OpenText "C:\Users\xxxx\Desktop\FOR.csv", , , xlDelimited _
  , xlTextQualifierDoubleQuote, True, False, False, True, False, False, _
  , Array(Array(1,2), Array(2,2), Array(3,2), Array(4,1), Array(5,2) _
  , Array(6,1), Array(7,1), Array(8,1), Array(9,1), Array(10,1), Array(11,1))
Set wb = xl.ActiveWorkbook
 
wb.SaveAs "C:\Users\xxxx\Desktop\FOR.xlsx", xlOpenXMLWorkbook, , , , False
wb.Close
 
xl.Quit

Si quelqu'un a une idée je suis preneur car je suis dans les choux

Merci d'avance pour votre aide.

Bonne journée à tous.

[neogunnm]

Et voilà la réponse trouvé par moi-même

je pense que ca pourra intéresser des personnes donc voici le code :

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
Set wb = Workbooks.Open("chemin du fichier csv")
Set ws = wb.Worksheets(1)
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
    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)), TrailingMinusNumbers:=True
     ActiveWorkbook.SaveAs Filename:= _
    "chemin destination pour sauvegarder le fichier xls", FileFormat _
    :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
    False, CreateBackup:=False
 
wb.Close

Voilà.

Bonne journée à tous.

[weed]

Excellent merci à toi, neogunnm, je me renseignais juste s'il était possible de convertir une extraction csv en xlsx en VBA pour faire ensuite toute sorte d'automatisme comme activer le filtre, ...

Je prends note de tes remarques

[kiki29]

Salut, pour info