Conversion fichier .csv en .xls

Version imprimable

03/03/2008, 14h06
Peachplume

Conversion fichier .csv en .xls

Bonjour,
J'ai tous les jours des fichiers .csv mis à ma disposition. Je souhaiterai, via une macro, les transformer en .xls pour puovoir ensuite exploiter les valeurs que j'ai dedans.
Probleme : quand je fais un Workbooks.Open Filename:= _
"fichier.csv", j'ai toutesl es valeurs dans la 1ere colonne... je n'arrive pas à dire à ma macro de considérer le .csv comme un .xls classique et donc de me l'ouvrir comem un .xls...
Please, help ?
Merci d'avance !
03/03/2008, 14h13
ouskel'n'or

Avec VBA97, 2003 ou 2007, tu as des solution différentes. Pour VBA 97 ou 2003, regarde ici, tu as les solutions. Mais lis les explications ;)
A+
03/03/2008, 14h31
Peachplume

Bonjour Ouskel'n'or !
j'avais vu ce post... Je suis sous windows xp pro, quand je lance la macro avec name mon fichier .csv As fichier .xls j'obtiens tout de meme toutes mes valeurs dans la meme colonne.
J'ai essayé de le contourner en faisaint via excel ouvrir fichier et en donnant les "" comme séparaeur, mais la je dis adieu aux liens hypetextes compris dans le ficiher csv qui ne se mettent pas a jour (j"obtiens #nom? à la place)...
03/03/2008, 15h17
kiki29

Jour Bon, un échantillon de tes fichiers "CSV" serait le bienvenu
03/03/2008, 16h06
Peachplume

1 pièce(s) jointe(s)

Rhaa ! Pas moyen de joindre le fichier ! Je vous met une image... (désolée)
Si vous voulez plus de détails n'hésitez pas !
Merci d'avance !
03/03/2008, 16h14
kiki29

Pas de bras pas de chocolat
03/03/2008, 16h31
Peachplume

Rhooo, c'est pas sympa ca ????? Siouplait ?

Bis Repetita : un échantillon de tes fichiers "CSV" serait le bienvenu, càd des fichiers textes à importer sous Excel
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Windows XP Sélectionner le/les fichiers Clic Droit : Envoyer vers "Dossier Copmpressé" Developpez.com Options Supplémentaires Gérer les Pieces Jointes Ajouter un fichier à partir de votre ordinateur Parcourir Envoyer Fermer cette fenetre Enregistrer les Changements

Bon, on reprend à zéro.
Tu ouvres tes fichier en txt, comme n'est pas dit dans l'URL que je t'ai passé :(

Tu connais le N° de colonne des liens Hypertextes -> Colonne 4
Placer le lien dans une cellule sans dire à Excel que c'est un lien, Excel, ça l'aime pas ! Faut tout y dire à Excel ;)
Donc, pour placer les liens, tu vas devoir insérer les données de chaque ligne, colonne par colonne
Je ne connais pas ton séparateur de données, je mets Tab, tu corrigeras...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Test() Dim Ligne As String, Tablo as variant Dim Separateur, NoLig as integer, NoCol as integer Separateur = vbtab NoLig = 0 'si tu as un en-tête, NoLig = 1. Bref tu adaptes Open D:\Le rep\LeFichier.csv For Input As #1 While Not EOF(1) Input #1, Ligne if Ligne <> "" then NoLig = NoLig + 1 Tablo = Split(Ligne, separateur) For NoCol = 0 to Ubound(Tablo) -1 if NoCol = 3 then ActiveSheet.Hyperlinks.Add(cells(NoLig, NoCol+1), Tablo(NoCol)) else Cells(NoLig, NoCol+1) = Tablo(i) endif Next Wend Close #1 End Sub
Pas testé, pisk tu veux pas nous passer ton fichier... Donc, sans filet.
Tu peux tester pour nous ? ;)
A+

03/03/2008, 20h49
ouskel'n'or

Edit
J'ai corrigé cette ligne qui contenait une erreur

Code:

ActiveSheet.Hyperlinks.Add(cells(NoLig, NoCol+1), Tablo(NoCol))

Dur dur...
J'ai transcris ce que vous m'avez donné, mais la formule " ActiveSheet.Hyperlinks.Add(cells(NoLig, NoCol+1), Tablo(NoCol))" ne fonctionne pas...
Deuxieme question, mes séparateurs sont des points virgules, mais je ne sais pas le dire en langage macro...
Sinon j'ai compris l'idée de dire à Excel que j'ai des liens hypertextes, c'est déjà ca... :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Test()
Dim Ligne As String, Tablo As Variant
Dim Separateur, NoLig As Integer, NoCol As Integer
Separateur = vbTab
NoLig = 1 'si tu as un en-tête, NoLig = 1. Bref tu adaptes
   ' Open D:\Le rep\LeFichier.csv For Input As #1
 
Sheets("hey").Select
chemin = Range("C1").Value
 
Open chemin & "20080229\Extraction_Qualite_20080229_3.csv" For Input As #1
    While Not EOF(1)
        Input #1, Ligne
        If Ligne <> "" Then NoLig = NoLig + 1
        Tablo = Split(Ligne, Separateur)
        For NoCol = 0 To UBound(Tablo) - 1
             If NoCol = 3 Then
            ActiveSheet.Hyperlinks.Add(cells(NoLig, NoCol+1), Tablo(NoCol))
                Else
                   Cells(NoLig, NoCol + 1) = Tablo(i)
             End If
        Next
    Wend
    Close #1
End Sub

04/03/2008, 13h18
ouskel'n'or

Est-ce que ActiveSheet est bien la feuille que tu veux utiliser pour y placer les données de ton csv ?
Ton séparateur de données dans le csv est-il bien une tabulation ? Ce peut être un point-virgule, auquel cas tu mets
Separateur = ";"
Ouvre ton fichier avec un logiciel de texte (notepad ou Word) pour le vérifier
A+
04/03/2008, 16h26
Peachplume

Décidemment, je ne vais jamais y arriver...
Mon séparateur est bien un point virgule, cependant separateur = ";" (jai aussi essayé Trim(";"), je n'ai pas ma séparation d'infos ce qui fait que Tablo(i) reste toujours égal à ce qui doit etre indiqué ds la 1ere colonne...
J'ai également un rejet pour la formule qui donne les liens hypertextes (erreur de syntaxe) mais pas moyen de toruver l'erreur...
Rhaaa ! 8O
04/03/2008, 19h52
ouskel'n'or

Citation:

Envoyé par Peachplume

Mon séparateur est bien un point virgule,

Alors remplace
Separateur = vbTab
par

Code:

Separateur = ";"

Bonne soirée
05/03/2008, 09h27
Peachplume

Bonjour à tous !
J'ai réussi à trouver une solution en rajoutant "tout simplement" l'instruction "local:=True" dans mon workbooks.Open Filename... et ca marche, mes fichiers .csv s'ouvrent correctement...

Merci en tout cas pour m'avoir aidé dans ma recherche désespérée de solution ! :king: