Ajout de feuille

[tbft]

Bonjour

Sur un projet, je dois créer une feuille.
J'ai écris le bout de code que voici.

Option Base 1
Option Explicit

Function Folio_Ajouter(ByRef Nom_Folio As String) As Worksheet
  ActiveWorkbook.Sheets.Add After:=Worksheets.Count - 1
  Set Folio_Ajouter = ActiveSheet
  Folio_Ajouter.Name = Nom_Folio
End Function

Private Sub test()
  Folio_Ajouter "Toto"
End Sub

Mon soucis est que la ligne ActiveWorkbook.Sheets.Add After:=Worksheets.Count - 1 ne fonctionne pas alors que Sheets.Add fonctionne...

Pouvez-vous m'aider,svp?

 

[pierrejean]

Re : Ajout de feuille

Bonjour tbft

A tester:

ActiveWorkbook.Sheets.Add After:=Sheets(Worksheets.Count - 1)

 

[tbft]

Re : Ajout de feuille

Merci pierrejean

add after attend une feuille et non un index de feuille....
la solution devient
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
et non
ActiveWorkbook.Sheets.Add After:=Worksheets.Count

c'est en regardant la proposition que j'ai compris ma boulette...