Problème enregistrement CSV

Bonjour à tous,

Voila cela fait maintenant quelques jours que je bloque sur problème pour enregistrer mes documents en CSV.

Plus précisément, quand j'enregistre mes excel manuellement en CSV virgule ou CSV point virgule je n'ai aucun problème, j'ai toutes mes colonnes.

Hors quand je crée un bouton avec une macro d'enregistrement en CSV virgule ou CSV point virgule les documents s'ouvrent mais en une seule colonne.

J'ai donc besoin de vos lumières pour m'aider à créer un bouton avec une macro d'enregistrement en CSV qui m'affiche toutes mes colonnes ! Merci d'avance

Bonjour

Dans ton bouton, tu mets ceci, en adaptant bien sûr ton chemin et ton nom de fichier.

C'est avec des points-virgules

Chez moi, cela fonctionne

Sub Enreg()
    ChDir "C:\Fich"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Fich\Test.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
End Sub

A+

Bonsoir

Tu es tombé dans les pommes ??

Sub creer_CSV()

Dim ecri As String
chemin = ActiveWorkbook.Path
Open chemin & "\monfich.csv" For Output As #1
ecri = "col1" & ";" & "col2" & ";" & "col3"
Print #1, ecri
ecri = "1111" & ";" & "2222" & ";" & "33333"
Print #1, ecri

Close
MsgBox " Fichier csv créé"
End Sub

Et voilà..

Après tu peux fournir un extrait de fichier pour être aidé un peu mieux

A+

Bonsoir

tien Patty si tu veux jouer

Sub ExportCSV()
Application.ScreenUpdating = False
Nom = "Test"
Ext = ".csv"
fichier = Nom & Ext
Chemin = ActiveWorkbook.Path & Application.PathSeparator
CheminFiche = Chemin & fichier
Sep = ";"
Nlig = Cells(Rows.Count, 1).End(xlUp).Row
   Set Plage = Range("A1:E" & Nlig)
      Open CheminFiche For Output As #1
         For Each Lig In Plage.Rows
            ligne = ""
               For Each Cel In Lig.Cells
                  ligne = ligne & CStr(Cel.Text) & Sep
               Next
             Print #1, Left(ligne, Len(ligne) - 1)
         Next
      Close
   Set Plage = Nothing
Application.ScreenUpdating = True
MsgBox "Terminer"
End Sub

A+

Maurice