Bonjour Christian, Bonsoir le Forum
Voici un macro qui fera ce que tu cherches à faire, enfin ce que j'ai compris :
- Créer une nouvelle feuille qui sera la copie de la Feuille 1 ("Feuil1")
- Cette Feuille sera renommée au format date
Sub CopyNameSheetBasic()
Worksheets("Feuil1").Copy Before:=Worksheets(1)
Worksheets(1).Name = Format(Sheets("Feuil1").Range("A1"), "DD-MM-YYYY")
End Sub
Cependant attention, il faudrait faire au moins deux tests comme ceci :
1) on vérifie que "A1" est bien une date sinon on sort!
2) on vérifie que la feuille nommée avec cette date n'existe pas déjà sinon on sort! (on pourrait faire un Message aussi)
Sub CopyNameSheetControled()
Dim WS As Worksheet
Dim TheDate As String
If Not IsDate(Sheets("Feuil1").Range("A1")) Then Exit Sub
TheDate = Format(Sheets("Feuil1").Range("A1"), "DD-MM-YYYY")
For Each WS In Sheets
If WS.Name = TheDate Then Exit Sub
Next WS
Worksheets("Feuil1").Copy Before:=Worksheets(1)
Worksheets(1).Name = TheDate
End Sub
NB on ne peut pas nommer une feuille au format date DD/MM/YYYY
Voilà je pense que tu as les éléments Christian
Bon Week End et bon travail
@+Thierry
