Marco > Créer et l'enregistrer dans un dossier prédéfini

Signaler
Messages postés
1
Date d'inscription
vendredi 25 juin 2021
Statut
Membre
Dernière intervention
25 juin 2021
-
Bonjour,

Ci-dessous le code qui me permet de créer un CSV depuis une feuille excel. Cette macro crée le fichier csv et l'enregistre dans le dossier du fichier xlsm.
Je souhaiterai que le fichier csv s'enregistre dans un dossier spécifique défini dans la macro.

Je suis preneur de solution de la communauté :

Dim wb As Workbook, ws As Worksheet
Dim strPath As String, strFilename As String
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("CSV")
    strPath = wb.Path & Application.PathSeparator
    strFilename = Format(Date, "yyyymmdd") & "_" & "FT" & "_" & Range("B2") & ".csv"
    chemin = "C:\Users\amoulara\Desktop\VP7_FEUILLE_TRAVAIL_OR&CS\TEST_ENREGISTREMENT_AUTO"
    ws.Copy
    With ActiveWorkbook
        .SaveAs Filename:=chemin & "\" & strFilename, _
                FileFormat:=xlCSV, _
                local:=False '? adapter False=pas d'ouverture suite à l'enregistrement ; True=Inverse s'ouvre
        .Close savechanges:=False
    End With

MsgBox "Création du CSV pour import réalisée."

    Sheets("BASE").Select