Discussion :

[ze_mechant]

Bonjour les amis,

J'ai pratiquement le même besoin que dans cette discussion.. Mais malheureusement (et honte à moi) je ne parviens pas à adapter la macro..

En fait je voudrai moi aussi ajouter une colonne à des fichiers se trouvant dans un dossier pour y mettre le nom du fichier.
Par contre mes fichiers sont en csv et lorsque je les enregistre .. il me demande par deux fois de valider l'enregistrement... et le résultat obtenu est très bizarre (il remplace les "," par des ";")...


Pourriez vous m'aider svp? il est trois heures du mat et j'ai envie de jeter mon pc par la fenêtre... au secours!!!

[kiki29]

Salut, à vue de nez car pas testé, entoure la sauvegarde par

Code :

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

1
2
3
Application.DisplayAlerts = False
'.....
Application.DisplayAlerts = True

Dans la ligne de sauvegarde, si ton séparateur csv est la virgule :

Code :

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

...SaveAs  FileFormat:=xlCSV, Local:=False

D'autre part les fichiers csv n'ayant qu'une feuille remplacer Ws par Worksheets (1) et supprimer la boucle For Each Ws .....

[ze_mechant]

Merci Kiki29

J'ai effectuer les modifications et je rencontre deux erreurs:

Pour "Aplication.DisplayAlerts = False" il me dit que la variable n'existe pas
et lorsque je mets cette instruction en commentaire il me met une erreur 1004 qui dit que le fichier (et il cite le nom du fichier) n'existe pas....
Tu aurais une idée du soucis stp?

(je te joins le code, je suis sur excel 2010)

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
Option Explicit
 
Public Sub RajouterColonne()
 
    Dim nomFichier As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Integer
 
 
 
    'On recherche le premier fichier xlsx
    nomFichier = Dir("C:\Users\djamel\Desktop\Union\*.csv")
 
    Do While nomFichier <> "" 'Pour tous les fichiers
 
        Set wb = Workbooks.Open(nomFichier) 'On ouvre le classeur
 
 
            Worksheets(1).Columns("A:A").Insert Shift:=xlToRight
 
            i = 1
            Do While ws.Cells(i, "B").Value <> "" 'Tant que la colonne B n'est pas vide
                ws.Cells(i, "A").Value = nomFichier 'Ou nomFichier si tu veux le chemin complet
                i = i + 1 'Ligne suivante
            Loop
 
 
  Aplication.DisplayAlerts = False
        wb.SaveAs FileFormat:=xlCSV, Local:=False  'On sauve le classeur
        wb.Close 'On le ferme
 Aplication.DisplayAlerts = True
        nomFichier = Dir 'Fichier xlsx suivant
 
    Loop
 
 
End Sub

[kiki29]

Salut, "bestial" donc surement à adapter

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
Sub AjoutColonne()
Dim sFichier As String
    sFichier = Dir$(ThisWorkbook.Path & "\*.csv")
    Do While Len(sFichier) > 0
        SaveCsv sFichier
        sFichier = Dir$
    Loop
End Sub
 
Private Sub SaveCsv(ByVal sNomFichier As String)
Dim sChaine As String
Dim iNumFichier1 As Integer, iNumFichier2 As Integer
Dim Sep As String * 1
Dim sOut As String
 
    Close
    Sep = ";"
 
    iNumFichier1 = FreeFile
    sOut = ThisWorkbook.Path & "\" & "Tempo.csv"
    Open sNomFichier For Input As #iNumFichier1
        iNumFichier2 = FreeFile
        Open sOut For Output As #iNumFichier2
            Do While Not EOF(iNumFichier1)
                Line Input #iNumFichier1, sChaine
                sChaine = "zzzz" & Sep & sChaine
                Print #iNumFichier2, sChaine
            Loop
        Close #iNumFichier2
    Close #iNumFichier1
 
    Kill sNomFichier
    Name sOut As ThisWorkbook.Path & "\" & sNomFichier
End Sub

[ze_mechant]

Merci Kiki29

il me met une erreur 59 avec comme commentaire "fichier introuvable"

le programme s'arrète sur cette ligne:

Open sNomFichier For Input As #iNumFichier1
(et le plus bizarre c'est que lorsque je pointe le curseur sur sNomfichier il m'indique le nom d'un fichier présent dans le dossier)

Une idée stp?

[kiki29]

Salut, l'erreur 59 correspond à une Longueur d'enregistrement incorrecte ( Extrait de l'Aide en ligne ) .....
Je serais curieux de voir un de tes fichiers csv, j'ose espérer que tu as testé ce code sur des fichiers de test ? Curieux de savoir ce que tu as pu faire du code ?

[ze_mechant]

Re l'ami

Je te joins une copie d'un fichier csv...

Par contre je n'ai pas compris ta question.. le code que j'ai utilisé et celui que tu m'as transmit... (je ne sais pas codé..)
J'ai fait une gaffe?

[kiki29]

Salut, Il est de quel origine ton CSV ? Unix ?
La présence de caractères é pour é dans la colonne "Webarchive age" fait que le code ne fonctionne pas correctement, mais le fichier est généré sans message d'erreur.
En remplaçant é par é dans ton source, le code fourni fonctionne et le fichier généré comporte bien une colonne supplémentaire.

[ze_mechant]

j'obtiens ce fichier grâce à imacros sur chrome (mon os est seven)...

Je suis un peu perdu.. qu'est ce que je dois faire stp?

[kiki29]

Salut, as-tu essayé le code dans un nouveau classeur Excel vierge ? Sinon quel est ton code actuel ? car hormis ce problème de caractères UTF ici tout fonctionne.

[ze_mechant]

Oui effectivement cela Marche !
En fait il me met "zzzz" dans une nouvelle cellule en A1

Mai comment faire pour qu'il m'insère le nom du fichier sur chaque ligne du tableau stp?

Pour le code j'utilise celui que tu m'as transmit (je ne sais pas codé)

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Option Explicit
 
Sub AjoutColonne()
Dim sFichier As String
    sFichier = Dir$(ThisWorkbook.Path & "\*.csv")
    Do While Len(sFichier) > 0
        SaveCsv sFichier
        sFichier = Dir$
    Loop
End Sub
 
Private Sub SaveCsv(ByVal sNomFichier As String)
Dim sChaine As String
Dim iNumFichier1 As Integer, iNumFichier2 As Integer
Dim Sep As String * 1
Dim sOut As String
 
    Close
    Sep = ";"
 
    iNumFichier1 = FreeFile
    sOut = ThisWorkbook.Path & "\" & "Tempo.csv"
    Open sNomFichier For Input As #iNumFichier1
        iNumFichier2 = FreeFile
        Open sOut For Output As #iNumFichier2
            Do While Not EOF(iNumFichier1)
                Line Input #iNumFichier1, sChaine
                sChaine = "zzzz" & Sep & sChaine
                Print #iNumFichier2, sChaine
            Loop
        Close #iNumFichier2
    Close #iNumFichier1
 
    Kill sNomFichier
    Name sOut As ThisWorkbook.Path & "\" & sNomFichier
End Sub

[kiki29]

Re, tu remplaces "zzzzz" par sNomFichier, il faudrait avant cela régler le pb des caractères UTF ( é à remplacer par é etc ) , n'ayant ni Chrome ni iMacros je ne sais pas si cela est possible au niveau d'iMacros pour générer un fichier correct.