Sub Bouton1_QuandClic()
Dim nom As String
Dim mafeuille As String
mafeuille = InputBox('Nom de feuille ?')
nom = Mid(mafeuille, 1, InStr(1, mafeuille, ' ') - 1)
On Error GoTo pasbon
If mafeuille <> '' Then
Worksheets('feuil1').Copy After:=Worksheets('feuil1')
With ActiveSheet
.Name = nom
.Range('a1') = mafeuille
End With
End If
On Error GoTo 0
Exit Sub
pasbon:
MsgBox 'y'a pas bon.'
End Sub
=STXT(CELLULE('nomfichier':A1);TROUVE(']';CELLULE('nomfichhier';A1))+1;32)
La formule fonctionne mais attention à la syntaxe
=STXT(CELLULE('nomfichier';A1);TROUVE(']';CELLULE('nomfichier';A1))+1;32)
cette formule fait 'remonter' le nom de l'onglet courant dans la cellule concernée.
pour faire l'inverse (renommer un onglet à partir du contenu d'une cellule, du nom d'un classeur ou autre), il faut écrire une commande dans une macro.
, mais j'ai #NOM? qui s'inscrit dans la cellule.=STXT(CELLULE('nomfichier';A1);TROUVE(']';CELLULE('nomfichier';A1))+1;32)