Enregistrer un fichier csv en xls

Version imprimable

19/12/2013, 14h14
idhmida

Enregistrer un fichier csv en xls
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:

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
19/12/2013, 15h24
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...
19/12/2013, 15h33
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)

Code:

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

19/12/2013, 15h45
Marc-L

HEU … (à la Patrick !)

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