Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
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")