Macro pour créer .CSV d'au moins 30 colonnes

[pmfontaine]

Bonjour,
Je cherche une macro me permettant de créer un fichier csv d’au moins 30 colonnes a partir d’une feuille Excel pour une application cartoExplorer
Sur comment ça marche j’ai trouvé une solution partiel, car elle ne marche que pour 28 colonne. Au dela impossible de rajouter des élément à Print #1 , j’ai posé la question sur le forum de comment ça marche, mais ce poste date un peu, et je ne suis pas sur qu’il soit encore surveillé Voir :
Définition de commande macro [Résolu]
Donc je m’adresse a vous.
Pour résumer, j’ai une feuille Excel avec des données sur 30 colonnes, et je veux en VBA créer un fichier cartoexplorer.csv avec les 30 colonnes.
Merci d’avance pour votre aide.

 

[magic_xls]

Re : Macro pour créer .CSV d'au moins 30 colonnes

Bonjour,
Je me permet de re-ouvrir ce debat pour mon probleme personel car j'ai repris une partie du code qui me semble tres bien...
Je souhaite pouvoir exporter d'un fichier excel 2 fichiers csv qui correspondent respectivement a 2 colonnes distinctes de mon fichier d'origine (sous Excel 2010):
Colonne H6 - H65536 (jusqu'a vide) > fichier1.csv
Colonne I6 - I65536 (jusqu'a vide) > fichier2.csv

En utilisant ce code j'ai un bug sur mon fichier1.csv qui concatene les 2 colonnes :-(

Pouvez vous m'aider SVP ?
Merci.

Private Sub export_en_CSV(Feuille$, Chemin$, NomFichier_EXPORT$)
Dim fs, a, s$, r&, c&
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Chemin & NomFichier_EXPORT & ".csv", True)
With ThisWorkbook.Sheets(Feuille)
For r = 6 To .[I65536].End(xlUp).Row
s = "": c = 9
While Not IsEmpty(.Cells(r, c))
s = s & .Cells(r, c)
c = c + 1
Wend
a.writeline s
Next r
End With
End Sub
Private Sub export_en_CSV_SANRA(Feuille$, Chemin$, NomFichier_EXPORT$)
Dim fs, a, s$, r&, c&
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Chemin & NomFichier_EXPORT & ".csv", True)
With ThisWorkbook.Sheets(Feuille)
For r = 6 To .[H65536].End(xlUp).Row
s = "": c = 8
While Not IsEmpty(.Cells(r, c))
s = s & .Cells(r, c)
c = c + 1
Wend
a.writeline s
Next r
End With
End Sub
Sub exporter()
export_en_CSV "Automatic", ActiveWorkbook.Path & "\", "Upload_AA_VPN_AC_PIN_ExportCSV"
export_en_CSV_SANRA "Automatic", ActiveWorkbook.Path & "\", "Upload_AA_SAN_RA_PIN_ExportCSV"
End Sub