Salut à tous,
Mon Problème :
J'essaye convertir un fichier excel en n fichiers csv dans l'optique d'une migration vers une base de données MySQL
J'ai créé un petit bout de code en VB me permettant de me générer n fichiers csv (un fichier par onglet) de manière automatique, mais malheureusement pour moi, le séparateur de colonne est une , au lieu d'un ; comme tout fichier csv digne de ce nom...
Le point virgule est capital pour moi car mes données peuvent contenir des , et donc l'insertion en base de données MySQL échouera violemment...
Mon code :
Dim MyXl As Excel.Application
Dim MyWorkbook As Excel.Workbook
Dim MyWorksheet As Excel.Worksheet
Dim i As Integer
Set MyXl = CreateObject("Excel.application")
Set MyWorkbook = MyXl.Workbooks.Open("R:\Incidents.xls")
MyXl.DisplayAlerts = False
For i = 1 To MyWorkbook.Worksheets.Count
Set MyWorksheet = MyWorkbook.Worksheets(i)
MyWorksheet.SaveAs "E:\Fichier Incidents\Fichier " & UCase(MyWorksheet.Name), xlCSV
Next i
MyXl.Quit
C'est pas grand chose
, mais bon... En fait je créé un objet Excel, puis un sous-objet Classeur et enfin un sous-sous-objet feuille. Pour chaque feuille, je "sauvegarde sous" au format CSV, le nom du fichier étant le nom de ma feuille (capital pour la suite...)
Mes tests
J'ai essayé tous les formats CSV possibles et imaginables... Rien à faire.
J'ai cru tenir la solution grace à un topic trouvé ici
... Le séparateur par défaut du format CSV est stocké dans les paramètres régionnaux de Windows (je bosse sous NT4).
J'ai vérifié : il s'agit bien d'un ; dans mon cas. 
Je suis dans l'incapacité d'utiliser une routine permettant le bouclage sur les cellules de part la structure "anormale" de mon fichier excel (c'est d'ailleurs à cause de cela qu'il est prévu de le faire migrer sous MySQL...
)
Je remercie d'avance tout ceux qui ont eu le courage de lire ma question jusqu'au bout
et je remercie encore plus ceux qui pourront m'aider... 