Dim patati as string
Dim Chemin as String
Chemin="C:\Dossier Excel\"
patati = "NomDuClasseur" & ".xls"
If FileExiste(Chemin & patati) Then
MsgBox "Ce classeur existe déjà"
'* peut être remplacer par le code en fin de message
Else
ActiveWorkbook.SaveAs (Chemin & patati), xlNormal, , , False, False
End If
End sub