Conversion en CSV

Question

Bonsoir,

Je n'arrive pas à convertir un fichier Excell ou un table acces en CSV avec des séparateur  un point virgule    "  ;  ".
Voici une partie du Code VB qui me génére un fichier CSV avec comme séparateur une Virgule

   ' Ouverture du fichier Excel
        fileName = TxtTable.Text & ".csv"
        Set fichierExcel = appExcel.Workbooks.Add
        req = "SELECT * FROM `" & TxtTable.Text & "`"
        rs.Open req, bd, adOpenForwardOnly, adLockReadOnly
        ' remplissage du fichier excel
        If Not (rs.EOF And rs.BOF) Then
            ' Ecriture des en-têtes de colonnes et des valeur
            generateExcel TxtTable.Text, rs, appExcel
        End If
        rs.Close
                
                    ' enregistrement en fichier CSV
          fichierExcel.SaveAs fileName:=chemin & "" & "NA_Siege", FileFormat:= _
               xlCSV, CreateBackup:=False, Local:=True

                      ' Fermeture du fichier Excel
                   fichierExcel.Close True, chemin & "" & "NA_Siege"
         
        Refresh
           MsgBox "Fichier généré avec succès", vbOKOnly, "Generation .csv"
        bd.Close
        appExcel.quit

Merci de votre aide

mortalino · Answer

Salut,

beh je viens de tenter une chose :
j'ai ouvert Excel, mis 1 en A1, 2 en B1 et 3 en C1.
Enregistrer sous... au format CSV (séparateur point-virgule)
Fermé le fichier. Je n'ai ouvert avec NotePad, voilà ce que je trouve :

1;2;3

Idem par code.

@++ 

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>

mortalino · Answer

Tiens, une lumière ! Vérifie une chose :

* Ouvre le Panneau de configuration
* Options régionales et linguistique
* Onglet Options régionales, bouton Personnaliser
* Onglet Nombre, vérifie le combobox Séparateur de listes

perso, j'ai le point-virgule

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

Conversion en CSV

2 réponses

Votre réponse

Discussions similaires