Bonsoir
A tester
Option Explicit
Sub xx()
Dim i As Integer, Minute_Seconde As String
For i = 1 To 3
Minute_Seconde = Minute(Time) & " - " & Second(Time)
Sheets("Feuille 2").Range("A1") = Range("A" & i) & " - " & Minute_Seconde
Sheets("Feuille 2").Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Feuille 1").Range("A" & i) & " - " & Minute_Seconde & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
.Close
End With
''"C:\Users\lacy\Documents\Yves\Excel_Y\Forum - Provisoire\Démo - 44 - 44.xlsm"
Range("B" & i) = Range("A" & i) & " - " & Minute_Seconde
Next i
End Sub
Cette ligne
.SaveAs Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Feuille 1").Range("A" & i) & " - " & Minute_Seconde & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
peut être remplacée par
.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A1") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled