tbft
XLDnaute Accro
Bonjour
Sur un projet, je dois créer une feuille.
J'ai écris le bout de code que voici.
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?
Sur un projet, je dois créer une feuille.
J'ai écris le bout de code que voici.
VB:
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 SubMon 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?