Bonjour,
j'aimerai, dans le code ci joint, que le nom de mon onglet se transforme en minuscule ('Dupont'), possible ou pas ??
(PS: je saisie toujours dans la Inputbox le nom et le prénom comme suis 'DUPONT Jean')
merci d'avance
Sub Bouton1()
Dim nom As String
Dim mafeuille As String
mafeuille = InputBox('Nom de feuille ?')
nom = Mid(mafeuille, 1, InStr(1, mafeuille, ' ') - 1)
If mafeuille <> '' Then
Worksheets('Exemple').Copy After:=Worksheets('Exemple')
With ActiveSheet
.Name = nom
.Range('a1') = mafeuille
End With
End If
End Sub
Message édité par: archi, à: 08/08/2005 18:34
j'aimerai, dans le code ci joint, que le nom de mon onglet se transforme en minuscule ('Dupont'), possible ou pas ??
(PS: je saisie toujours dans la Inputbox le nom et le prénom comme suis 'DUPONT Jean')
merci d'avance
Sub Bouton1()
Dim nom As String
Dim mafeuille As String
mafeuille = InputBox('Nom de feuille ?')
nom = Mid(mafeuille, 1, InStr(1, mafeuille, ' ') - 1)
If mafeuille <> '' Then
Worksheets('Exemple').Copy After:=Worksheets('Exemple')
With ActiveSheet
.Name = nom
.Range('a1') = mafeuille
End With
End If
End Sub
Message édité par: archi, à: 08/08/2005 18:34