Code VBA à modifier

archi

XLDnaute Impliqué
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
 

myDearFriend!

XLDnaute Barbatruc
Bonjour archi, _Thierry, le Forum.

archi, ci-joint ton fichier modifié pour tenter de répondre à ta demande...

Cordialement, [file name=Test_BDV7_2.zip size=39468]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_BDV7_2.zip[/file]
 

Pièces jointes

  • Test_BDV7_2.zip
    38.5 KB · Affichages: 18

Discussions similaires

Statistiques des forums

Discussions
312 361
Messages
2 087 625
Membres
103 609
dernier inscrit
AmineAB33