Essaye la macro suivante...
Sub Macro5()
'
vNomFichier = Range('c5').Value & '.xls'
vRépertoire = 'H:\\Personnel\\Usine\\Historique consommation mensuelle\\'
Sheets('Répartitions du mois').Copy
ChDir vRépertoire
ActiveSheet.Shapes('Button 1').Delete
ActiveSheet.Shapes('Button 2').Delete
ActiveSheet.Shapes('Button 3').Delete
Range('A1').Select
vNomFichier = vRépertoire & vNomFichier
ActiveWorkbook.SaveAs Filename:=vNomFichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End Sub
Ca semble faire pas mal de méga-watts mais la facture ici est pas mal plus grosse. On a 9 fours qui fonctionnent à 50 mW chaque...
Salut
Eric