Renommer une feuille

qwerty_213 -
qwerty_213 - 30 oct. 2016 à 12:56

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 String
k = Vendredi 1 janvier 2016
pj = (Profil/Standard)
ActiveSheet.Name = Format([A1], "dddd dd mmmm yy ", pj,"yyyy")

A voir également:

Renommer une feuille
Renommer des fichiers en masse - Guide
Renommer iphone - Guide
Bruler une feuille de laurier - Guide
Comment supprimer une feuille sur word - Guide
Feuille de pointage excel - Télécharger - Tableur

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 2

qwerty_213

merci f894009, c'est ce qui me falait

Discussions similaires

Feuille de score belote

Renommer un contact sur insta

MSDOS - Renommer partiellement plusieurs fichiers

Reporter valeur sur autre feuille avec critere

Votre réponse

Discussions similaires