Sub BoutonCSV_Cliquer()
Dim NOM As String
Dim CHEMIN As String
Dim WB1 As Workbook, WB2 As Workbook
Set WB1 = ActiveWorkbook
ActiveWorkbook.ActiveSheet.UsedRange.Copy
Set WB2 = Application.Workbooks.Add(1)
WB2.Sheets(1).Range("A1").PasteSpecial xlPasteValues
' la formule dans F1 est :=GAUCHE(STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;999);TROUVE("]";STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;999))-6)
NOM = [F1].Value
CHEMIN = WB1.Path & "\" & NOM & "--blablabla" & ".csv"
Application.DisplayAlerts = False
With WB2
.SaveAs Filename:=CHEMIN, FileFormat:=xlCSV, CreateBackup:=False
.Close True
End With
Application.DisplayAlerts = True
End Sub