Macro nouvelle feuille

[poipoi]

Bonjour
Mon souci: comment faire pour éviter d'avoir une message d'erreur quand une macro lance une nouvelle feuille:
Je m'explique: à l'ouverture, le 1er onglet porte la valeur de B9 qui est égale à =AUJOURDHUI().
Si je lance ma macro pour une nouvelle feuille et que je change la date, j'ai une erreur ? je comprends bien pourquoi mais comment faire en sorte de ne plus l'avoir.
et comment faire pour que la nouvelle feuille se place automatiquement en dernière position à droite ?
je joins mon fichier mais il est simplissime (mes excuses)
D'avance merci à vous

 

[gfortin9]

Re : Macro nouvelle feuille

Allô!

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 11/02/2009 par Robert Blanc
'
'
Dim DerFeuil As Integer

DerFeuil = ActiveWorkbook.Sheets.Count ' compte le nombre de feuilles du classeur

Sheets(1).Select
Sheets(1).Copy After:=Sheets(DerFeuil)
End Sub


GFortin

 

[kjin]

Re : Macro nouvelle feuille

Bonjour,

Sub Macro3()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
End Sub

et dans ThisWorkBook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$9" Then
    Sh.Name = Format(Range("B9"), "ddd dd mmm yy")
End If
End Sub

A+
kjin

 

[Paritec]

Re : Macro nouvelle feuille

Bonjour Kjin poipoi gfortin,
regardes ton fichier en retour je pense que j'ai compris ce que tu voulais
a+
papou

 

[poipoi]

Re : Macro nouvelle feuille

Bonjour Paritec Kjin gfortin
Tout d'abord un très grand merci à vous...
Vous avez pu constater une nouvelle fois l'étendue de mon ignorance en ce qui concerne EXCEL.
je retiens la proposition de Kjin qui répond en tous points à mes souhaits..sachant que les autres m'ont aussi apporté quelque chose..
je vous souhaite une bien agréable journée et merci encore