Convertir fichier CSV en XLSX

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:

---

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

Merci d'avance pour votre aide.

Bonne journée à tous.

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

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

Code:

---

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.:ccool:

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

Salut, pour info