Renommer une feuille
qwerty_213
-
qwerty_213 -
qwerty_213 -
Bonjour,
Je souhaite renommer une feuille avec le code ci-dessous, cela me donne erreur d’exécution '13' incompatibilité du type
Je souhaite renommer une feuille 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")
2 réponses
-
Bonjour,
Si vous avez ecrit le code comme vous l'avez poste, y a plusieurs erreurs
la ca marche mais pour renommer, 31 caracteres maxiSub 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 & Year([A1]) End Sub -
