Code VBA pr copier une feuille ac onglet date

[Christian]

Bonjour le forum,
j'ai une feuille 1, je voudrais faire des copies dans le même classeur en nommant l'onglet au format date contenu en A-1 dans le feuille 1. Pourriez-vous m'aider ?
Merci d'avance,
Amitiés
Christian

 

[@+Thierry]

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

 

[Christian]

Merci beaucoup Thierry, c'est impeccable,
Amitiés,
Christian

et bon week-end à tous