Convertir un Fichier CSV en XLS

Bonjour à tous !

Voilà mon petit problème :
Je souhaite que mon fichier CSV soit correctement représenté dans Excel. Je m'explique plus clairement, mon fichier CSV contient :
Name;Sirname;Date
;;POLO;;25/05/78
et ainsi de suite ...
Ce que je veux c'est que chaque titre occupe une case et lorsqu'on va à la ligne, c'est pareil sur Excel.
Mais malheureusement lorsque j'ouvre ce type de fichier sous excel la présentation reste la même, c'est à dire du type fichier texte !

Alors connaissez vous un moyen pour que la présentation soit plus correct sachant que je ferais des macros sur ce fichier

D'avance merci

Arf, y a pas de réponse, je cherche exactement la même chose.
Quand j'ouvre mon fichier csv dans excel en vbscript (le code est le même en vb) il m'affiche chaque ligne dans une seule cellule, il affiche aussi les ; Mais quand j'ouvre manuellement le fichier dans Excel il me l'affiche correctement.
Je vois pas comment faire :(

une reponse maintant workbook.opentext filename:=fichier,others:=true,";",local:=true

Florent

tu appel sa une réponse?
c vague, tu ouvres un *.csv avec un Open text?
c louche moi je dis!!!
je suis entrain de chercher une solution mais galère!!!

je vous dis dès que je trouve

Et voila Trouver!!!
Par contre on Transforme pas un *.csv mais plutot un ficher *.txt

Sub Auto_Open()
    Dim NomFicher(101) As String
    Dim CdoMessage As CDO.Message
    Dim FichiersChoisis As String
    Dim remplace As String

    remplace = ".txt"
    FichiersChoisis = ""
 
    FichiersChoisis = Application.GetOpenFilename("Fichier Text (*.txt),*.txt")
    
    If FichiersChoisis <> "" Then
        'Ouverture du fichier text
        Workbooks.OpenText Filename:= _
                            FichiersChoisis, _
                            Origin:=xlWindows, _
                            StartRow:=1, _
                            DataType:=xlDelimited, _
                            TextQualifier:= _
                            xlDoubleQuote, _
                            ConsecutiveDelimiter:=False, _
                            Tab:=False, _
                            Semicolon:=True, _
                            Comma:=False, _
                            Space:=False, _
                            Other:=False
              
       ' On enlève l'adresse complète du fichier et on garde son nom
        FichiersChoisis = Mid(FichiersChoisis, InStrRev(FichiersChoisis, "\") + 1)
        'On active le classeur
        Windows(FichiersChoisis).Activate
       
        'On supprime le *.txt pour pouvoir sélectionne la feuille
        FichiersChoisis = Replace(FichiersChoisis, remplace, "")
        Sheets(FichiersChoisis).Select
        'On sélèctionne les parties du tableaux qui nous intéresse
        Nomfichier = Range("A1:AM10000").Value
       
        'On sélèctionne le dossier ou l'on veux déplacer notre ficher .txt
        Windows("FichierDaccueil.xls").Activate
        'On remplace
        Sheets("Releves").Range("B17:AN10000").Value = Nomfichier
    End If
End Sub