renommer une feuille Fermé

Question

Bonjour, 


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 Stringk = Vendredi 1 janvier 2016pj = (Profil/Standard)ActiveSheet.Name = Format([A1], "dddd dd mmmm yy ", pj,"yyyy")


Configuration: Windows 7 / Chrome 54.0.2840.71

f894009 · Accepted Answer

Bonjour,

Si vous avez ecrit le code comme vous l'avez poste, y a plusieurs erreurs

la ca marche mais pour renommer, 31 caracteres maxi
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 & Year([A1])
End Sub

qwerty_213 · Answer

merci f894009, c'est ce qui me falait

Renommer une feuille

2 réponses

Discussions similaires