Discussion :

[idhmida]

Bonjour,

J'ai pas mal fouillé sur le net, mais n'ai pas pu trouvé la solution adéquate à mon problème, je me permets donc de vous solliciter

Je souhaite enregistrer le fichier csv en format excel. Le code que j'utilise est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
titi.SaveCopyAs Filename:="\...\toto.xls",
titi.Close

NB:titi a été déclaré comme un classeur avant, il est sous format csv.

Je voudrais enregistrer une copie sous format xls, par contre, le fichier toto est avec des séparateurs virgule, comment je pourrai corriger ce problème please??

Merci d'avance
IDH

[parmi]

Bonjour,

Si tu utilisais SaveAs, tu pourrais spécifier le format de fichier (FileFormat) et aussi utiliser le paramètre Local qui utilise les mêmes paramètres que dans tes configurations Windows, donc probablement le point-virgule dans ton cas...

[Marc-L]

Bonjour, bonjour,

je pense qu'idhmida n'a pas été clair et qu'il mélange deux problèmes :

• la conversion d'un fichier .csv (à mettre en pièce jointe, ce sera plus clair !).

Rien qu'en lisant l'aide de la méthode Workbooks.Open et son paramètre Format, même pas besoin du net !
Ouverture et conversion en une seule ligne …

• La sauvegarde du fichier converti dans un classeur standard …

Et j'ai l'impression qu'il butte dès le premier point ‼

Les réponses - nombreuses ! - étant aussi sur ce site, entre autres …

__________________________________________________________________________________________
Question bien formulée, solution assurée ! (Robert Durupt)

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
Dim i As Long
Dim titi As Workbook
Open "C:\MyExcel\ABC.txt" For Input As #1    ' Ouvre le fichier en lecture.
Set titi = Workbooks.Add
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, MyString    ' Lit les données dans deux variables.
    ' Affiche les données dans la fenêtre Exécution.
    i = i + 1
    MyString = Split(MyString, ",")
    titi.Worksheets(1).Range(titi.Worksheets(1).Cells(i, 1), titi.Worksheets(1).Cells(i, UBound(MyString) + 1)) = MyString
Loop
Close #1    ' Ferme le fichier.
titi.SaveAs "C:\MyExcel\toto.xls"
titi.Close
Set titi = Nothing
End Sub

[Marc-L]

En deux lignes c'est fait, une pour l'ouverture et la conversion, l'autre pour la sauvegarde …