Bonjour,
je suis novice en VBA et j'aurai besoin de vous pour une petite modification sur un bout de code.
j'ai un bouton qui me sert à exporter en cvs ma feuille courante.
Private Sub CommandButton1_Click()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
Sep = ","
Set Plage = ActiveSheet.Range("A1:D500")
Open "planning.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
End Sub
Ca fonctionne très bien, m'ai le format n'est pas parfait.
j'ai 4 colones dans mon fichier et potentiellement un nombre inconnu à l'avance de ligne.
J'aimerai que mon CVS ressemble à ca :
premier,deuxième,troisième,quatrième
premier,deuxième,troisième,quatrième
premier,deuxième,troisième,quatrième
premier,deuxième,troisième,quatrième
Pour l'instant j'ai ca :
premier,deuxième,troisième,quatrième,
premier,deuxième,troisième,quatrième,
premier,deuxième,troisième,quatrième,
premier,deuxième,troisième,quatrième,
,,,,
,,,,
,,,,
,,,,
,,,,
Je voudrais donc sortir la dernière virgule de ma ligne et ne pas ajouter des lignes avec des virgules quand mes cellules sont vide.
Merci beaucoup,