dupliquer une feuille

[JC de Lorient]

Bonjour le forum,

je me lance dans un nouveau projet et j'ai tjrs de grosses lacunes en VBA donc je fais appel aux spécialistes que vs êtes ! 🙂

J'ai une feuille que j'ai nommée "Matrice" je souhaiterais par commandbutton pouvoir en faire une copie qui lancerait un textbox du genre "entrez le nom de la nouvelle feuille" ex 2005 et que la nouvelle feuille se nomme 2005

autre question : est il possible par un commandbutton d'atteindre une certaine feuille avec condition
Nous sommes en 2005 => le commandbutton ouvre la feuille 2005
quand nous serons en 2006 => ce même bouton ouvre la feuille 2006


merci à vous et très bon dimanche

JC

 

[@+Thierry]

Bonjour JC, le Forum

Rapidos depuis mon LapTop en vadrouille (!) et sans gestion d'erreurs (nom d'onglets existant etc)

Pour Dupliquer ta feuille "Matrix" :
Private Sub CommandButton1_Click()
Dim TheSheetName As String

TheSheetName = InputBox("NOM DE FEUILLE ? ", "Nouvelle Feuille")
If TheSheetName = "" Then Exit Sub

Worksheets("Matrix").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = TheSheetName
End Sub



Pour Activer la feuille de l'année en cours :
Private Sub CommandButton2_Click()
Dim TheYear As String
TheYear = Format(Date, "YYYY")

Worksheets(TheYear).Activate
End Sub


Bon Dimanche à Tous et Toutes
@+Thierry

 

[JC de Lorient]

Bonjour Thierry, re le forum

merci pour ces infos
je n'ai pas le temps de mettre en application mais aucun doute que ça marchera

mille merci

JC