code pour donner un nom à une nouvelle feuille

Le
Greg
Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #20352321
Bonsoir,
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà existante"
End If
End Sub
'-------------------
--
Salutations
JJ


"Greg"
Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg


Jacky
Le #20352311
Petite erreur ;o))
Pas dans le:
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
Maie en sub
'------------------
Sub precision()
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà existante"
End If
End Sub
'-----------------
--
Salutations
JJ


"Jacky" %

Bonsoir,
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà
existante"
End If
End Sub
'-------------------
--
Salutations
JJ


"Greg"
Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg






Ptit Louis
Le #20365171
Bonjour,

Juste avant le end sub, ajouter
Activesheet.Name="E.T. dtaill"

"Greg" a écrit :

Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que la
nouvelle feuille s'intitule "E.T. dtaill". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg



Greg
Le #20472361
Bonsoir et merci Jacky pour ta réponse!

ça marche impec!

Greg

"Jacky" news:
Petite erreur ;o))
Pas dans le:
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
Maie en sub
'------------------
Sub precision()
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà
existante"
End If
End Sub
'-----------------
--
Salutations
JJ


"Jacky" %

Bonsoir,
'----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Worksheets("E.T. détaillé").Activate
If Err <> 0 Then
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
ActiveSheet.Name = "E.T. détaillé"
Else:
MsgBox "La feuille" & vbLf & ActiveSheet.Name & vbLf & "est déjà
existante"
End If
End Sub
'-------------------
--
Salutations
JJ


"Greg"
Bonjour,

Voici mon code qui copie ma feuille "emploi du temps". Je voudrais que
la nouvelle feuille s'intitule "E.T. détaillé". Comment faire?

Sub precision()
'
'
Sheets("EMPLOI DU TEMPS").Select
ActiveSheet.Buttons.Add(1319.25, 192, 312, 51.75).Select
ActiveSheet.Buttons.Add(1655.25, 26.25, 186, 213.75).Select
Sheets("EMPLOI DU TEMPS").Copy Before:=Sheets(1)
End Sub


Merci

Greg










Publicité
Poster une réponse
Anonyme