Option Compare Text
Sub essai_ii()
Dim shp As Shape
Dim chemin as string
Dim wb as Workbook
'http://www.excel-downloads.com/forum/523346-post13.html
chemin = ActiveWorkbook.Path & "\"
For Each wb In Workbooks
If Not wb.Name Like "perso*" Then
Application.DisplayAlerts = False
With wb
With .Sheets(1)
For Each shp In .Shapes
If shp.Type = 13 Then shp.Delete
Next shp
End With
Randomize
.SaveAs chemin & .Sheets(1).Name & "-" & _
Int((Second(Time) * Rnd) + 1) & "-" & _
Format(Date, "dd-mm") & ".xls"
End With
Application.DisplayAlerts = True
End If
Next wb
End Sub