Discussion :

[charnizay37]

Bonjour,

J'ai un petit souci à la mise au point de ma macro. Voilà je souhaite créer une macro qui me converti une feuille XLS en fichier CSV avec comme séparateur la virgule et les données non vide des colonnes encadrées par des guillemets

Voilà donc la code ci-dessous que j'ai créé.

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
41
42
43
44
45
46
47
Sub Export_CSV()
Dim Classeur, Classeur2 As Workbook
Dim NbCl, NbLg, FnCl  As Integer
Dim ValCel, Guillemets As String
 
 
    Set Classeur = ActiveWorkbook
 
    NbLg = 1
    FnCl = 3    ' 206
    Guillemets = """"
 
     'Selection de la Feuille Tableau
     Classeur.Sheets("TABLEAU").Select
 
    'Boucle de test de ligne
    Do
     'Boucle de accès aux cellules (colonnes)
 
     For NbCl = 1 To FnCl Step 1
 
 
        ValCel = Cells(NbLg, NbCl)
 
        If ValCel <> "" Then
          Cells(NbLg, NbCl) = Guillemets & ValCel & Guillemets
        End If
 
     Next NbCl
 
    'Remise à 1 du compteur de colonne
     NbCl = 1
    'Avance d'un pas compteur de ligne
     NbLg = NbLg + 1
 
     If Cells(NbLg, NbCl) = "" Then
            MsgBox " Le nombre de vos lignes converties sont :" & NbLg
     End If
 
 
    Loop Until IsEmpty (Cells(NbLg, NbCl))
 
     Classeur.SaveAs Filename:="C:\Peupl.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
 
    Workbooks("Peupl.csv").Close savechanges:=True
 
End Sub

Malheureusement à chaque fois que j'execute cette macro j'obtiens bien un fichier CSV mais seul les données de ma première colonne sont encadrées par des guillemets. Pour les autres colonnes je me retrouve avec des double guillemets tel que :

Données fichier XLS d'entrée :

Nom|Prénom|Nom patrynomique|etc..

Données du fichier CSV créé par ma macro

"Nom",""Prénom"",""Nom patrynomique", etc..

Pouvez ous m'aider je ne vois où j'ai bien put faire une erreur

[Gorfael]

Salut charnizay37 et le forum

Code :

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

1
2
3
Dim Classeur As Workbook, Classeur2 As Workbook
Dim NbCl As Integer, NbLg As Long, FnCl  As Integer
Dim ValCel As String, Guillemets As String

Pour tes déclarations tu dois être plus explicite. Si tu ne mets pas le type derrière, Excel par du principe que c'est un Variant.

N'utilisant pas les csv (et pour cause de grosse flemme), pas envie d'en sortir un. Donc juste quelques idées :

Mets un point d'arrêt sur ta macro juste avant de convertir et véririfies que tu as bien des guillements simples dans tes cellules. Si c'est le cas, ta "panne" vient de la conversion.

Ne connaissant ni le csv, ni le but des guillemets, juste une suggestion : passe tes colonnes en format "Texte", et fais une conversion directement. si ça ne foctonne pas, essaie dessus ta macro.
A+

[Roms un]

A la limite tu peux aussi tenter de concaténer les cellules avant de transformer le fichier en format CSV, tu garderais alors des guillemets uniques, mais le code serait alors un petit peu plus long. Tu peux écrire:

Code :

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

Cells(1,1) = Cells(1, 2) & ";" & Cells(1, 3)

et ensuite supprimer les cellules

[charnizay37]

Tout d'abord merci pour ces premiers élèments

Comme je débute en VBA, je prends bonne note des modifications liées à la déclaration des variables, je pensais que je pouvais rassembler l'ensemble de mes variables par type en les séparants par un virgule.

Maintenant, j'ai ajouté un point d'arret et dans mon fichier source (XLS) j'ai bien toutes les données de mes colonnes avec un seul guillemets. Par contre, lorsque je sors de ma boucle de conversion et execute l'instruction

Code :

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

1
2
3
 Classeur.SaveAs Filename:="C:\Peupl.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
 
    Workbooks("Peupl.csv").Close savechanges:=True

qui permet d'obtenir mon fichier CSV là j'obtiens mes doubles guillemets pour les données des la deuxième colonne. Sachant, que j'ai testé aussi le cas où je supprime mes boucles qui me permet d'ajouter ces fameux guillemets et là l'instruction indiquée ci-dessus me sépare bien les données d'une virgule mes je n'ai pas de guillemets.

Or j'ai besoin de convertir ce fichier XLS en CSV avec guillemets et virgule afin que les données puissent être intégrées par une application d'intégration de peuplement de masse selon ce format

[Roms un]

Essai ça:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Export_CSV()
Dim Classeur, Classeur2 As Workbook
Dim NbCl, NbLg, FnCl  As Integer
Dim ValCel, Guillemets As String
 
 
    Set Classeur = ActiveWorkbook
 
    NbLg = 1
    FnCl = 3    ' 206
    Guillemets = """"
 
     'Selection de la Feuille Tableau
     Classeur.Sheets("TABLEAU").Select
 
    'Boucle de test de ligne
    Do
     'Boucle de accès aux cellules (colonnes)
 
     For NbCl = 1 To FnCl Step 1
 
 
        ValCel = Cells(NbLg, NbCl)
 
        If ValCel <> "" Then
          Cells(NbLg, NbCl) = Guillemets & ValCel & Guillemets
        End If
 
     Next NbCl
 
    'Remise à 1 du compteur de colonne
     NbCl = 1
    'Avance d'un pas compteur de ligne
     NbLg = NbLg + 1
 
     If Cells(NbLg, NbCl) = "" Then
            MsgBox " Le nombre de vos lignes converties sont :" & NbLg
     End If
 
 
    Loop Until IsEmpty(Cells(NbLg, NbCl))
        NbLg = 1
     Do
 
        For NbCl = 2 To FnCl Step 1
            Cells(NbLg, 1) = Cells(NbLg, 1) & ";" & Cells(NbLg, NbCl)
        Next NbCl
    NbCl = 1
     NbLg = NbLg + 1
    Loop Until IsEmpty(Cells(NbLg, NbCl))
       NbLg = 1
     NbLg = 1
     Do
 
        For NbCl = 2 To FnCl Step 1
            Cells(NbLg, NbCl) = ""
        Next NbCl
    NbCl = 1
     NbLg = NbLg + 1
    Loop Until IsEmpty(Cells(NbLg, NbCl))
     Classeur.SaveAs Filename:="C:\Peupl.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
 
    Workbooks("Peupl.csv").Close savechanges:=True
 
End Sub