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.