[FONT=Courier New][COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] CommandButton1_Click()
[COLOR=green]'Sub sauvegardeIndice()[/COLOR]
[COLOR=darkblue]Dim[/COLOR] NomFichier$, nf$, n&, nWkb [COLOR=darkblue]As[/COLOR] Workbook
répertoire = ThisWorkbook.Path
ActiveSheet.Copy
[COLOR=darkblue]Set[/COLOR] nWkb = ActiveWorkbook
NomFichier = Range("A1").Text
nf = Dir(répertoire & "\" & _
NomFichier & _
Format(Date, "yyyy_mm_dd_") & "*.xls")
n = 0
[COLOR=darkblue]Do[/COLOR] [COLOR=darkblue]While[/COLOR] nf <> ""
nf = Dir
n = n + 1
[COLOR=darkblue]Loop[/COLOR]
[COLOR=darkblue]With[/COLOR] nWkb
[COLOR=darkblue]With[/COLOR] .ActiveSheet
.Name = "TAB." & Range("A1").Value
[COLOR=darkblue]With[/COLOR] .UsedRange.Cells
.Value = .Value
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
.SaveAs Filename:=répertoire _
& "\" & NomFichier & Format(Date, "yyyy_mm_dd_") _
& Format(n + 1, "000") & ".xls"
.Close [COLOR=darkblue]False[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]