Ligne de code qui engendre une Erreur 13

Bonjour à tous,

J'ai écrit cette macro qui a pour but de créer une copie, d'en suprimer les formules et de la nommer.

La ligne de code pour le nommage engendre une Erreur 13 avec incompatibilité de type

Sub test()
  Sheets("Pointage").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Range("A1:AI507").Select
     Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
         ActiveSheet.Shapes.Range(Array("Rounded Rectangle 16")).Select
        Application.CutCopyMode = False
       Selection.CUT
      Range("A1").Select
     Sheets("Pointage").Select
    Range("A1").Select
   ActiveSheet.Name = "Pointage du " & Format([Date], "dd-mm-yy")
End Sub

J'ai également essayé de faire appel au contenu d'une cellule, rien à faire.

Quelqu'un aurait une solution svp

Merci

.

Bonjour,

Il faut que tu enlève les crochets sur Date.

Comme cela

ActiveSheet.Name = "Pointage du " & Format(Date, "dd-mm-yy")

Bonjour,

Un grand merci à toi Benjamin_D tu mets fin à 2h de galère.

EDITER

Un petit plus, si après la date, je veux mettre l'heure ?

ActiveSheet.Name = "Pointage du " & Format(Date, "dd-mm-yy à hh nn")

ne fonctionne pas que faut-il écrire svp

Bonjour,

Petit UP après avoir édité.

EDITER à 8:31

ActiveSheet.Name = "Pointage du " & Format(Date, "d mmm yy") & " à " & Format(Time, "hh nn")

Avec ceci j'obtiens les heures et les minutes, si je rajoute "ss" pour les seconde plantage, une idée svp.

.

Bonjour,

ActiveSheet.Name = "Pointage du " & Format(Date, "d mmm yy") & " à " & Format(Time, "hh mm ss")

A+

Bonjour à tous,

Attention frangy, le problème est justement à ce niveau-là.

On dépasse le nombre de caractères autorisé (31) pour le nom d'une feuille.

Il faut donc veiller à ne pas dépasser cette limite.

Bien vu vba-new

Il reste la possibilité de réduire le message

ActiveSheet.Name = "Pointage " & Format(Date, "d mmm yy") & " à " & Format(Time, "hh mm ss")

A+

Re bonjour,

Merci à vous deux, le pb venait effectivement de la longueur du nom.

31 caractères, c'est maintenant rentré dans ma petite tête.

.