Renommer une feuille Excel

Bonjour,

Je souhaite renommer une feuil avec le code ci-dessous, cela me donne erreur d’exécution '13' incompatibilité du type

Sub CreationOnglet()
    Dim k As Date
    Dim pj As String
k = Vendredi 1 janvier 2016
pj = (Profil/Standard)
ActiveSheet.Name = Format([A1], "dddd dd mmmm yy ", pj,"yyyy")

Bonjour,

sauf erreur le "/" est interdit dans les noms de fichier

P.

< (plus petit que; less than)

> (plus grand que; greater than)

: (deux points; colon)

" (double appostrophe; double quote)

/ (slash; barre de fraction; forward slash)

(antislash; backslash)

| (barre verticale; vertical bar; pipe)

? (point d'interrogation; question mark)

* (astérisque; asterisk)

Bonjour,

La date n'est pas valide, pj est une constante numérique, et la syntaxe de la fonction FORMAT est à vérifier.

En conclusion, envoie un fichier.

Cdlt.

j'ai trouvé, le format date en VBA s'ecrit en anglais entre #, avec le format #MM/JJ/AAA#

k = #01/01/2016#

les chaines de caracteres se delimitent par des guillemets "

pj = "(Profil/Standard)"

La fonction format ne prend que 2 parametres

ActiveSheet.Name = Format(Range("A1").Value, "dddd dd mmmm yy ") & pj & Format(Range("A1").value,"yyyy")