Obtenir un nom de feuille de calcul à l'aide d'Excel VBA

Je voudrais créer un user-defined fonction dans Excel qui peut retourner la feuille de calcul en cours. Je pourrais utiliser le

sheetname = ActiveSheet.Name

Mais le problème, c'est que ça fonctionne et tout à coup, il commence à obtenir différents nom de la feuille. Par exemple, au lieu de SHEET I LOVE YOU il retourne SHEET I HATE YOU.

Est-il de toute façon à corriger ceci ou cela pourrait possible parce que je pense qu'il ne peut pas être statique, mais varie?

source d'informationauteur user2103670 | 2013-10-11

  1. 26
    Function MySheet()

   MySheet = Application.Caller.Worksheet.Name

End Function

    Ce devrait être la fonction vous êtes à la recherche pour

  2. 3
    Sub FnGetSheetsName()

Dim mainworkBook As Workbook

Set mainworkBook = ActiveWorkbook

For i = 1 To mainworkBook.Sheets.Count

'Either we can put all names in an array , here we are printing all the names in Sheet 2

mainworkBook.Sheets("Sheet2").Range("A" & i) = mainworkBook.Sheets(i).Name

Next i

End Sub
  3. 1

    Cela fonctionne pour moi.

    worksheetName = ActiveSheet.Name
  4. -1

    Vous pouvez utiliser le code ci-dessous pour obtenir le nom de la Feuille Active et de le modifier à la vôtre nom préféré.

    Sub ChangeSheetName()

Dim shName As String
Dim currentName As String
currentName = ActiveSheet.Name
shName = InputBox("What name you want to give for your sheet")
ThisWorkbook.Sheets(currentName).Name = shName

End Sub