VBA - Excel - copie d'un CSV vers un XLS

Bonjour,

Je cherche à copier le contenu d'une feuille d'un fichier CSV, dans une feuille d'un fichierXLS.

Mon problème:
Lorsque j'ouvre un fichier CSV à la main (double clic), il apparaît comme un fichier xls (données réparties dans les différentes cellules) et je peux copier/coller son contenu sans problème.

Lorsque j'ouvre un fichier CSV via VBA (Set book = Workbooks.Open("C:\file.csv")) il m'ouvre le fichier mais il m'affiche le contenu en CSV (avec les ;) et non pas comme quand je le fais à la main.
Du coup lorsque j'essaie de copier coller (via VBA/ou à la main) ce contenu dans un fichier xls, le xls contient un contenu CSV (avec les ;) mais en aucun cas me met en forme les données CSV dans les différentes lignes/colonnes.

Y a-t-il d'autre moyen d'ouvrir un CSV de sorte à ce qu'il apparaîsse comme un fichier XLS ?

Merci de votre aide.

A+

salut,

c'est bizarre, normalement les csv s'ouvre avec Excel s'il est installé.
Au pire ouvre le comme un fichier texte, c'est pas compliqué

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Merci mais j'ai mal du me faire comprendre.

Lorsque je l'ouvre via VBA, le fichier s'ouvre avec Excel simplement le contenu est un contenu CSV (un espèce de format txt avec les ;). Je souhaiterais que les données soient mises en page (dispersées sur les tableau) et non présentées en CSV brut.

J'espère que je me fais comprendre.

Merci. A+

Arf, tu as raison, bug bizarre !!
Pire que ça, avec l'enregistreur de macro, t'as juste la commande ..Open.., mais rien n'indique le choix du Txt / csv..
Pourtant, dans mes config régionales de mon pc, le séparateur de liste est bien le point-virgule..

Bref, j'ai tenté Workbooks.Open "C:\file.csv", , 4
Ca marche pas,

Mais j'ai remplacer dans le csv les point virgules par des virgules, et là ça s'ouvre nickel.

C'est pour le moment la seule alternative que je te propose, ouvrir ton fichier csv avec le bloc notes, CTRL H pour remplacer tous tes ; en , puis :
Workbooks.Open "C:\file.csv", , 2

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

.. rajoute une virgule avant 2 :
Workbooks.Open "C:\file.csv", , , 2

(en avais oublié une )
@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Merci.

Mais cela m'étonne qu'il n'existe pas un moyen tout fait tout propre.

D'autres idées ou solutions ?

Je rappelle mon problème : copier (via VBA) une feuille d'un fichier CSV vers une feuille d'une fichier XLS.

Merci.

Ca m'intrigue aussi
Je vais essayer de trouver quelque chose pour que ça fonctionne, j''ai ma petite idée, bien que ce ne soit pas top
Ton fichier est-il toujours au même endroit et nommé pareil ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Oui tu peux le considérer.

Ok,

Arf, j'ai planté Excel
Je persévère

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Elle est pas mal celle là...

je tente de lancer le fichier avec ShellExecute, il me plante Excel..
Mais c'est bizarre, seul les fichier csv et xls plante. J'avais tenté ceci :


Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const sFile As String = "Nouveau.csv"
Private Const SW_SHOWNORMAL = 1

Sub Test()
    Dim lRet As Long
    
MsgBox ThisWorkbook.Path

lRet = ShellExecute(0&, vbNullString, ThisWorkbook.Path & "\" & sFile, vbNullString, ThisWorkbook.Path, SW_SHOWNORMAL)

Workbooks(sFile).Activate
Cells.Copy

ThisWorkbook.Activate
Range("A1").PasteSpecial xlPasteAll
Workbooks(sFile).Close False

End Sub
~ Mortalino ~ Colorisation automatique

Peut être car cette appli est déjà instanciée, va savoir !
Je cherche autre chose

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA