Fichier Excel à separer & repliquer via VBA

Bonjour à toutes & tous,

Totalement novice en VBA, j'aurais grand besoin de votre aide

J'ai un fichier de remboursement clients communs mais je dois exécuter des virements bancaires séparés par "clubs"

Je sais que via VBA, il est possible de me separer automatiquement le fichier source en autant de fichier que j'ai de clubs

Dans le fichier joint, la colonne est la A. C'est à partir de cette derniere que j'aurais besoin d'eclater le fichier

Et le top du top serait que les copies(extrait) soient sauvegarder en .csv

Naming de fichier si possible: "Contenu cellule A_Date"

Exemple: 301 Maillot_20190221.csv

Si je ne suis pas claire, n'hésitez pas et d'avance merci de votre aide

Cdlt

Frédérique

bonjour,

une proposition via macro

Sub aargh()
    Set ws = Sheets("A remplir")    '<- à adapter éventuellement
    rep = "d:\downloads\test\"    '<- à adapter répertoire dans lequel mettre les fichiers csv créés
    With ws
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        dc = .Cells(1, Columns.Count).End(xlToLeft).Column
        curclub = ""
        For i = 2 To dl
            If curclub <> .Cells(i, 1) Then
                If i > 2 Then
                    Close 1
                End If
                curclub = .Cells(i, 1)
                nf = rep & curclub & Format(Now(), "_yyyymmdd") & ".csv"
                Open nf For Output As 1
                copyline ws, 1, dc
            End If
            copyline ws, i, dc
        Next i
        Close
    End With
End Sub
Sub copyline(ws, lg, dc)
    For j = 1 To dc
        Print #1, ws.Cells(lg, j) & IIf(j <> dc, ",", "");
    Next j
    Print #1, ""
End Sub

Bonjour

Merci merci beaucoup pour votre aide

Etant totalement novice, comment je fais pour copier votre code dans le fichier

D'avance merci

Excellente journée

Frédérique

bonjour,

sélectionner le code sur le forum, le copier (ctrl-C)

aller dans excel, ouvrir le classeur qui doit recevoir la macro

faire alt-F11, pour ouvrir l'éditeur de macro (editeur VBA)

faire menu->insérer->module

coller le code (ctrl-V)

faire les adaptations nécessaires au code

faire alt-F11, pour retourner dans excel

sauver le classeur au format xlsm (avec ses macros)

la macro est à présent disponible et peut-être lancée via alt-F8

Merci mais je n'y suis pas arrivée

Donc si vous pouvez me l'ajouter dans le fichier transmis au prealable

Merci d'avance

Cdlt

Frédérique

bonjour,

voici. lancer la macro via alt-F8, tu devras indiquer le nom du répertoire de destination pour tes fichiers CSV pendant l'exécution de la macro.

Merci beaucoup, cela a fonctionné cependant le fichier resultat n'a pas le bon format

En attachement les resultats obtenus (331 St Jacques) versus le besoin ( resultat_souhaite....)

Merci encore

Cdlt

Frédérique

bonjour,

une correction, virgule, remplacée par point-virgule

Mega mega merci, cela fonctionne impeccablement

Excellente apres midi et merci encore de votre aide

Cordialement

Frédérique