Peut-on choisir les colonnes à exporter en csv ?

J'ai un document xls plein de colonnes dont seulement 4 sont à exporter en csv.

Est-il possible de n'exporter au fichier csv que ces 4 colonnes et non tout le document ?

Je précise à toutes fins utiles que ce document n'a qu'une unique feuille.

Merci

Bonjour,

Une suggestion ...

Tu copies côte à côte les colonnes en question dans une nouvelle feuille et tu exportes cette nouvelle feuille en .csv

On peut le faire manuellement.

On peut le faire via Macros-commandes VBA.

ric

ric a écrit :

Tu copies côte à côte les colonnes en question dans une nouvelle feuille et tu exportes cette nouvelle feuille en .csv

Merci ric. Mais c'est justement ce que j'ai toujours fait jusqu'à présent, et ce que je voudrais éviter de faire. Car il ne s'agit pas d'un besoin ponctuel, mais de documents à traiter de la sorte chaque jour.

Bonjour,

Un exemple à adapter.

Regarde pour mettre cette procédure dans ton classeur de macros personnelles (Personal.xlsb) avec un bouton dans la barre d'accès rapide pour l'exécution.

Cdlt.

Public Sub CreateCSV()
'Declaration des variables
Dim wb As Workbook
Dim strPath As String, strFilename As String
Dim tbl As Variant
Dim n As Long, lCol As Long
Const COL As String = "9 8 7 5 4 3"     'Numeros colonnes  a supprimer

    Application.ScreenUpdating = False
    'Initialisation des variables
    Set wb = ActiveWorkbook
    strPath = wb.Path & Application.PathSeparator
    strFilename = Split(wb.Name, ".")(0) & ".csv"
    'Copie feuille dans un nouveau classeur
    ActiveSheet.Copy
    With ActiveWorkbook
        With .Worksheets(1)
            'Suppression des colonnes de la constante COL
            tbl = Split(COL)
            For lCol = LBound(tbl) To UBound(tbl)
                .Columns(CLng(tbl(lCol))).EntireColumn.Delete
            Next lCol
        End With
        'Enregistrement de la feuille de calcul en csv
        .SaveAs Filename:=strPath & strFilename, FileFormat:=xlCSV, local:=True
        .Close savechanges:=False
    End With
End Sub

Bonjour

donne au moins un model de 10 ligne et dire quelle colonne que tu veux faire un CSV

A+

Maurice

Super merci pour votre aide !

Bonjour,

Pense à clore le sujet si le résultat est celui attendu.

Cdlt.

C'est ce que j'ai fait non ? Je l'ai mis en résolu.