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")
A voir également:
- Renommer une feuille
- Renommer des fichiers en masse - Guide
- Renommer son iphone - Guide
- Bruler feuille de laurier - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Feuille de pointage excel - Télécharger - Tableur
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 maxi
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
