Marco enregistrement feuille active csv + nom = date heure jour

[yannick collins]

Bonjour,

j'ai un classeur avec des onglets "ENVOIS" et "ENLEVEMENTS"

J'aimerais via une macro associée à un bouton enregistrer la feuille active au format csv et que le nom sous lequel le fichier csv soit :

dd/mm/yyyy/hh/mm"ENVOIS"&"NOMCLIENT".csv pour l'onglet ENVOIS

ET
dd/mm/yyyy/hh/mm"ENLEVEMENTS"&"NOMCLIENT".csv pour l'onglet ENLEVEMENTS

A savoir le nomduclient est fixe.

merci d'avance pour vos précieux conseils

 

[soenda]

Re : Marco enregistrement feuille active csv + nom = date heure jour

Bonjour Yannick, le fil

On peut faire simplement, à la fermeture du classeur

Dans ThisWorkBook (Sub Workbook_BeforeClose)

Application.DisplayAlerts = False
   Workbooks("MonClasseur.xlsm").Save    [COLOR=Green]' Enregistre le classeur[/COLOR]
   Sauve "ENVOIS"            [COLOR=Green]' Enregistre la feuille ENVOIS[/COLOR]
   Sauve "ENLEVEMENTS"            [COLOR=Green]' et la feuille ENLEVEMENT[/COLOR]
   ActiveWorkbook.Saved = True        [COLOR=Green]' Evite le message final[/COLOR]
Application.DisplayAlerts = True

Dans un module

Sub Sauve(ByVal F$)
    Dim ch$
    
    With Sheets(F)
        .Select
        ch = Format(Date, "dd-mm-yyyy ") & Format(Time, "hh-mm ") & .Name & "NomClient" & ".csv"
        .SaveAs Filename:="C:\MonDossier\" & ch, FileFormat:=xlCSVMSDOS
    End With

    MsgBox ch     [COLOR=Green]' pour tester[/COLOR]             
       
End Sub

A plus

 

[soenda]

Re : Marco enregistrement feuille active csv + nom = date heure jour

Bonjour Yannick, le fil

Le problème vient du fait que tu as recréé les Sub Open et BeforeClose...

Suis la procédure suivante:

Tu ouvres l'éditeur VBA par Alt + F11
Dans la partie de gauche "Explorateur de projet"

tu double cliques sur "ThisWorkBook",
et dans la page de code qui s'affiche, efface tout.

Dans la liste déroulante (Générale), en haut, fenêtre du milieu,
tu sélectionnes "WorkBook".
A l'intérieur de la procédure qui s'affiche : "Private Sub Workbook_Open()",
tu copies le code.

Puis dans la liste déroulante d'à côté,
tu sélectionnes "BeforeClose".
A l'intérieur de la procédure qui s'affiche : "Private Sub WorkBook_BeforeClose(Cancel As Boolean)",
tu copies le code.

Voir la copie d'écan en pièce jointe.

A plus