probleme de séparateur: TXT vers XLS

Question

bonjour
j'ai un fichier texte avec 4 colonnes ,que je veut convertir en fichier excel,avec se code que j'ai repris d'une source dont je me souviens plus l'auteur (que je remercie).Il fait bien la convertion,mais dans mon fichier excel il m'affiche les 4 colonnes dans une seule,auriez vous une id&#233;e ,je crois que &#231;a viens du s&#233;parateur mais je ne voit pas ou.
Private Function EcritClasseurXL() As Boolean
'--------------------------------------'
'---   ECRITURE DU CLASSEUR EXCEL   ---'
'--------------------------------------'
    On Error GoTo Err_EcritExcel
'    Dim appExcel As Excel.Application
'    Dim tmpWorkbook As Excel.Workbook
'    Dim tmpSheet As Excel.Worksheet
    Dim appExcel
    Dim tmpWorkbook
    Dim tmpSheet
    
    Dim NumFeuille As Integer, NumChamp As Integer
    
    Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = False
    appExcel.DisplayAlerts = False
'--- en fonction du param&#232;tre d'entr&#233;e, on cr&#233;e ou modifie un classeur excel
    If OverWriteDest = True Then
'--- on cr&#233;e un classeur excel en supprimant l'ancien
Call EtatClasse("Cr&#233;ation du classeur Excel", 1)
        Set tmpWorkbook = appExcel.Workbooks.Add
        tmpWorkbook.SaveAs (PathFile_Dest)
    Else
'--- on modifie un classeur excel . Les feuilles du m&#234;me nom que celles &#224; cr&#233;er seront supprim&#233;es
Call EtatClasse("Ouverture du classeur Excel", 1)
        Set tmpWorkbook = appExcel.Workbooks.Open(PathFile_Dest)
    End If
'--- on a le TableauSource ki est remplit.
    For NumFeuille = 0 To UBound(TableauSrc)
    On Error Resume Next
        Set tmpSheet = tmpWorkbook.Worksheets(TableauSrc(NumFeuille)(0))
        If Err <> 0 Then
Call EtatClasse("Cr&#233;ation de la feuille '" & TableauSrc(NumFeuille)(0) & "'", 1)
        '--- ajouteune feuille
            Set tmpSheet = tmpWorkbook.Worksheets.Add()
        '--- attribue le nom de la table
            tmpSheet.Name = TableauSrc(NumFeuille)(0)
        Else
        '--- on supprime pas la feuille, mais on vide les cellules
            tmpSheet.Cells.ClearContents
        End If
    On Error GoTo Err_EcritExcel


        If FirstLigneAsChamps = True Then
    '--- sur la premi&#232;re ligne, on &#233;crit les nom des champs
            For NumChamp = 0 To UBound(TableauSrc(NumFeuille)(1))
'                DoEvents
                tmpSheet.Cells(1, NumChamp + 1) = TableauSrc(NumFeuille)(1)(NumChamp)
            '--- allez, petit effet : on met les noms des champs en gras :) voir les attributs de ".Font" pr le reste (soulign&#233;, couleur, couleur de fond, etc ...)
                tmpSheet.Cells(1, NumChamp + 1).Font.Bold = True
            Next
        End If
        Dim tmpContenu
Call EtatClasse("Ecriture des donn&#233;es dans  '" & TableauSrc(NumFeuille)(0) & "'", 1)
        tmpContenu = TableauSrc(NumFeuille)(2)
    '--- on remplace le caract&#232;re de s&#233;paration des champs (FieldSeparator) par des tabulations...
        tmpContenu = Replace(tmpContenu, FieldSeparator, vbTab)
    '--- , et on copie tt &#231;a ds le presse papier
        Clipboard.Clear
    '--- vbCFText, c pr pr&#233;ciser ke c du texte.
        Clipboard.SetText tmpContenu, vbCFText
    '--- on colle dans la premi&#232;re cellule d'excel ki , comme un grand sait que
    '---        'vbTab' c pour passer &#224; la cellule suivante
    '---        'vbCrlf', c pr passer &#224; la ligne suivante !!sympa excel !
        If tmpSheet.Range("A1").Value = "" Then
            tmpSheet.Paste tmpSheet.Range("A1")
        Else
            tmpSheet.Paste tmpSheet.Range("A2")
        End If
        Clipboard.Clear
    '--- auto fit c pr redimensionner ttes les colonnes &#224; la taille du contenu.
        tmpSheet.Columns.AutoFit
        Set tmpSheet = Nothing
    Next
    tmpWorkbook.Save
Call EtatClasse("Sauvegarde du classeur Excel ", 1)
    EcritClasseurXL = True
Exit_EcritClasseurXL:
    On Error Resume Next
    tmpWorkbook.Close
    Set tmpWorkbook = Nothing
    appExcel.Quit
    Set appExcel = Nothing
    Exit Function
Err_EcritExcel:
    If Err.Number = 70 Then
    '--- permission refus&#233;e, le fichier doit &#234;tre d&#233;j&#224; ouvert
        Call AlerteClasse("ECRITURE CLASSEUR EXCEL", "Erreur :" & Err.Number & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Si le fichier est d&#233;j&#224; ouvert, fermez-le et relancez la conversion")
        EcritClasseurXL = False
        GoTo Exit_EcritClasseurXL
    Else
        Call AlerteClasse("ECRITURE CLASSEUR EXCEL", "Erreur :" & Err.Number & vbCrLf & Err.Description)
        EcritClasseurXL = False
        GoTo Exit_EcritClasseurXL
    End If
End Function
Merci
@plus 
petchy

aurelien2723 · Answer

Utilise la fonction  OpenText de la même classe
 
appExcel.Workbooks.Open(PathFile_Dest)

par appExcel.Workbooks.OpenText(PathFile_Dest)

Tu as un argument avec lequel tu spécifies ton type de séparateur ;)

cs_petchy · Answer

salut Aur&#233;lien
voila j'ai retrouv&#233; le prog dont j'ai utilis&#233; le code
http://www.codes-sources.com/code.aspx?ID=32114
si tu peut jet&#233; un oeil 
petchy

dthuler · Answer

Salut,
C'est peut-&#234;tre moi qui ne vois pas bien mais o&#249; d&#233;finis-tu "FieldSeparator" dans ton appli ?

~~ Brainiax ~~ [8D]

cs_petchy · Answer

salut
en fait FieldSeparator est d&#233;fini un peu partout,mais je ne vois pas trop comment il est fait,aurais tu une id&#233;e comment le d&#233;finir 
merci
petchy

Probleme de séparateur: TXT vers XLS

4 réponses

Discussions similaires