CSV to Excel

Bonjour à tous,

j'ai un problème de fichier

voila au sein de mon entreprise je fait des extractions d'un ERP qui me génère des fichiers CSV comme en pièce jointes.

l'un d'entre vous serait capable de me dire me faire un exemple .

je cherche a faire un fichier excel qui possède un bouton

quand je clique sur ce bouton, cela me créé un nouvel onglet que j’appellerai DATA contenant le contenu de mon CSV mais correctement rangé.

Merci

Problème résolu

je vous met les fichiers comme ça si quelqu'un as besoin il pourra se servir

Je ré ouvre le sujet car j'ai un autre petit soucis...

Vous pourrez voir que dans mon fichier CSV j'ai plus d'informations que dans mon excel converti...

pouvez vous m'aider a trouver pourquoi car je ne comprend pas....

Merci

Sub Bouton7_Cliquer()

Rem ouverture du fichier CSV et liste AFFAIRES

Dim TB
Dim str
str = Worksheets("Home").TextBox1.Text + ".xls"

Dim Lig As Long, i As Integer
MsgBox (Worksheets("Home").TextBox1.Text)

    Dim sNomFichier As String
    Dim sNomFichier2 As String
    sNomFichier = "G:\D - IT\bilan de production\" + Worksheets("Home").TextBox1.Text + "\" + Worksheets("Home").TextBox1.Text + ".csv"
    sNomFichier2 = "G:\\D - IT\\bilan de production\\" + Worksheets("Home").TextBox1.Text + "\\" + Worksheets("Home").TextBox1.Text + ".xls"

    If ExistenceFichier(sNomFichier) Then
                Workbooks.Open Filename:=sNomFichier
            Application.DisplayAlerts = False
            Application.ScreenUpdating = False
            With ActiveSheet
                    .Cells.NumberFormat = "General"
                For Lig = 1 To Range("A65536").End(xlUp).Row
                    TB = Split(.Cells(Lig, 1), ";")
                    For i = 0 To UBound(TB) '- 1
                        .Cells(Lig, i + 1) = TB(i)
                    Next i
                Next Lig
            End With
                   ActiveWorkbook.SaveAs Filename:=sNomFichier2, FileFormat:=56
                   Workbooks(str).Close SaveChanges:=False
    Else
       MsgBox ("Please, execute clipper state before updating xls file")
    End If

End Sub

Function ExistenceFichier(sFichier As String) As Boolean
  ExistenceFichier = Dir(sFichier) <> ""
End Function

Bonsoir,

Ton fichier csv n'est pas un fichier csv.

Cdlt

bonjour,

je confirme que c'est bel et bien un fichier CSV....