31 caractères

Bonsoir,

J’ai ceci pour copier et nommer une feuille,

Sheets("Modelo").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Range("A4").Value = NovaFolha.TextBox1.Value

ActiveSheet.Name = ActiveSheet.Range("A4").Value

et qui marche très bien a un petit détail près !, comme le nom des feuille est le nom d’élèves, parfois il y en a qui on plus de 31 caractères et alors la ça bug !!!,

Quelqu’un a une idée comment faire en sorte de pouvoir avoir plus de 31 caractères ??

Merci

bonsoir

gag de noel : saisis les noms en phonetique genre sms

cordialement

Bonsoir

Tronques les noms à 31 caractères

style

Sub truc()

  Sheets("Modelo").Copy after:=Sheets(Sheets.Count)
  With ActiveSheet
    .Range("A4").Value = NovaFolha.TextBox1.Value
    .Name = Left(.Range("A4").Value, Application.Min(Len(.Range("A4").Value)), 31)
  End With
End Sub

merci encore une fois