Re:Enregistrer derniere feuille d'1 classeur...
Salut tout le monde,
bah alors thierry, tu ne m'as pas l'air de bon poil ce matin... :whistle:
Même si je suis d'accord avec ce que tu dis, j'ai trop la tête dans le cul (et le cul dans les nuages ...) pour en rajouter une couche. En plus le W-E se rapproche à grand pas... B) ca vaut vraiment pas le coup de se fâcher pour si peu (c'est mauvais pour les coronères
)
Passons, si ca peut quelques novices:
Dim nom_feuille As String
'Etape 1
Application.DisplayAlerts = False
For i = 1 To ThisWorkbook.Sheets.Count - 1
Sheets(1).Delete
Next
Application.DisplayAlerts = True
'Etape 2
nom_feuille = InputBox('Entrez le nouveau nom de la feuille', 'Nouveau nom', 'bidul')
If nom_feuille <> '' Then
ActiveSheet.Name = nom_feuille
End If
'Etape 3
ChDir CurDir & '/..'
ThisWorkbook.SaveAs nom_feuille & '.xls'