nouvelle feuille

[tail]

j'ai un fichier avec un bouton j'aimerai que lorsque j e clic sur ce bouton qu'excel me fasse une nouvelle feuil qui la nomme avec la date que j'aurai entré dans une cellule avant
voila

merci pour l'aide que vous pourrez m'apporter

 

[eric]

Bonjour,

voilà le code VBA :

Worksheets.Add.Name = Range("tacelluleavecladate")

Bonne journée

 

[Popeye]

ThisWorkbook.Worksheets.Add
ok = 0
For Each feuille In Worksheets
If Not feuille.Name = (Day(Date) & "_" & Month(Date) & "_" & Year(Date)) Then ok = 1
Next
If ok = 1 Then ThisWorkbook.ActiveSheet.Name = Day(Date) & "_" & Month(Date) & "_" & Year(Date)
et la pour éviter de renommer avec la meme date (la feuille ne sera pas renommer si le nom existe deja)

 

[Zon]

Bonjour à tous,


Voilà un autre code, si ta cellule est au format dd/mm/yyyy.
Je préfère utiliser left et mid que day et month car ces derniers renvoient 4 au lieu de 04..


Sub cree_feuille()

Dim cell As Range
Dim nom As String

Set cell = sheets("Feuil1").Range("A1") '''à adapter

If Not IsDate(cell) Then Exit Sub "test si c'est une date

nom = Left(CStr(cell), 2) & Mid(CStr(cell), 4, 2) & Year(cell)

For i = 1 To Sheets.Count
If Sheets(i).Name = nom Then
MsgBox "La feuille " & nom & " exite déjà", vbOKOnly
Exit Sub
Else: Sheets.Add.Name = nom
End If
Next i
End Sub


A+++

 

[Zon]

Re,


Oups j'ai pas publié le bon code:

Sub cree_feuille()

Dim cell As Range
Dim nom As String

Set cell = sheets("Feuil1").Range("A1") '''à adapter

If Not IsDate(cell) Then Exit Sub "test si c'est une date

nom = Left(CStr(cell), 2) & Mid(CStr(cell), 4, 2) & Year(cell)

For i = 1 To Sheets.Count
If Sheets(i).Name = nom Then
MsgBox "La feuille " & nom & " exite déjà", vbOKOnly
Exit Sub
End If
Next i
Sheets.Add.Name = nom
End Sub

 

[tail]

une autre question

j'ai un fichier et j'aimerai cette fois qu'excel me fasse une autre feuille nommée avec la date que j'entre dans une autre feuille et une cellule et qui me copie cette page vers celle qu'il vient de creer

merci pour l'aide que vous m'apporté