Inserer nouvelle feuille , mais rester sur l'active sheet!

[Claudy]

Bonsoir...
ça doit être simple , mais j'y arrive pas!
Comment insérer une nouvelle feuille "log" tout en restant sur la feuille active, donc ne pas activer la nouvelle feuille "Log" .
un peu dans le genre:

Sub testazerty()
On Error Resume Next
zaza = ActiveSheet.Range("A1")
Sheets.Add.Name = "Log"
GoTo zaza'pour retourner sur la feuille d'origine
End Sub

A+
Merci d'avance,
Claudy

 

[Paf]

Re : Inserer nouvelle feuille , mais rester sur l'active sheet!

Bonjour,

peut-être comme ceci:

Sub testazerty()
  On Error Resume Next
  zaza = ActiveSheet.Index
  Sheets.Add.Name = "Log"
  Worksheets(zaza).activate 'pour retourner sur la feuille d'origine
End Sub

A+

 

[david84]

Re : Inserer nouvelle feuille , mais rester sur l'active sheet!

Bonsoir,

Sub testazerty()
On Error Resume Next
zaza = ActiveSheet.Name
Sheets.Add.Name = "Log"
Sheets(zaza).Activate
End Sub

A+

 

[Claudy]

Re : Inserer nouvelle feuille , mais rester sur l'active sheet!

Heu merci...
avec .index ça marchait pas!
mais j'ai alors essayé avec .name et ça roule!

Sub testazerty2()
On Error Resume Next
zaza = ActiveSheet.Name
Sheets.Add.Name = "Log"
Worksheets(zaza).Activate 'pour retourner sur la feuille d'origine
End Sub

Bonne soirée,
Claudy