Discussion :

[slakhdine]

Bonjour à tous,
j'ai un petit problème si quelqu’un pourrait me donner un coup de main
mon code il fait une création de lignes sur un fichier csv crée ( je souhaite bien que mon code pourra me créer un fichier automatiquement mais je ne sais pas comment faire ).
mon soucis c'est qu'il me colle les infos en double la même ligne répétée deux fois une en dessous de l'autre je vous mets mon code pour bien comprendre.
merci par avance.

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
Option Explicit
 
Sub création_csv()
Dim csv As Variant
Dim ligne As String
Dim NB_LIGNE As Long
Dim i As Integer
 
     NB_LIGNE = ThisWorkbook.Worksheets("CSV").Range("A" & Rows.Count).End(xlUp).Row
  csv = "P:\Mercure\INFORMATIQUE\fic.csv"
    Open csv For Output As #1
 
    For i = 1 To NB_LIGNE
     ligne = "#CLIENTSTAT;Particulier;CHARTH" & ";" & ";" & ";" & ";" & ";" & ";" & ";" & ";"
    Print #1, ligne
    Next
Close #1
MsgBox ("Terminé !")
End Sub

[halaster08]

Bonjour,

Pourquoi ne pas directement enregistrer ta feuille au format csv ?

Code :

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

1
2
Sheets("CSV").Copy
ActiveWorkbook.SaveAs Filename:="D:\test.csv", FileFormat:=xlCSV

[slakhdine]

Bonjour,

Pourquoi ne pas directement enregistrer ta feuille au format csv ?

Code :

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

1
2
Sheets("CSV").Copy
ActiveWorkbook.SaveAs Filename:="D:\test.csv", FileFormat:=xlCSV

Merci pour ta réactivité .
j'ai testé ta proposition et j'ai remarqué que dans le fichier csv sur le quel j'ai coller les données que ç'a met des points virgules vers la fin de chaque ligne par contre moi je souhaite qui'l s’arrête au dernier caractère .
et une deuxième remarque c'est que il m'ouvre une version xls en plus de celui du csv et ç'a reste ouvert je dois le fermer manuellement.

voici mon code :

Code :

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

1
2
3
4
5
6
7
Sub création_csv()
 
    ThisWorkbook.Worksheets("CSV").Copy
    ActiveWorkbook.SaveAs Filename:="P:\Mercure\INFORMATIQUE\fichier.csv", FileFormat:=xlCSV
   Close
MsgBox ("Terminé !")
End Sub

[halaster08]

Merci pour ta réactivité .
j'ai testé ta proposition et j'ai remarqué que dans le fichier csv sur le quel j'ai coller les données que ç'a met des points virgules vers la fin de chaque ligne par contre moi je souhaite qui'l s’arrête au dernier caractère .

J'ai pas compris le problème.

et une deuxième remarque c'est que il m'ouvre une version xls en plus de celui du csv et ç'a reste ouvert je dois le fermer manuellement.

Code :

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

activeworkbook.close true

[slakhdine]

J'ai pas compris le problème.

Code :

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

activeworkbook.close true

ci joint une capture du fichier qui montre la nature de mon problème
en fait il me rajoute plusieurs virgules à la fin de chaque ligne ,moi je veux qu'il me colle juste jusqu’à le dernier champ rempli

[Pierre Fauconnier]

Salut.

Tu as des problèmes de colonnes qui, pour la conversion, ne sont pas considérées comme vides... Effectue un CTRL+END dans ta feuille pour voir où il se positionne. tu vas probablement dans une colonne loin à droite de la dernière colonne à utiliser pour ta conversion.

Si elles sont réellement vides, tu peux sélectionner toutes les colonnes après la dernière à utiliser (après le dernier CHARTH a priori) et les supprimer (clic droit supprimer). Après cela, enregistre ton classeur et exporte... Cela devrait fonctionner.

Par mesure de précaution, fais une copie du classeur avant...

[slakhdine]

Merci à vous ,vos propositions été très utile pour moi.
à très bientôt.
cdlt