A voir également:
- Renommer une feuille
- Renommer plusieurs fichiers - Guide
- Supprimer une feuille word - Guide
- Renommer iphone - Guide
- Comment renommer quelqu'un sur instagram - Forum Instagram
- Feuille de pointage excel - Télécharger - Tableur
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
27 oct. 2016 à 11:22
27 oct. 2016 à 11:22
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