merci pour votre réponse mais je fais comment ?Bonjour,
Normal,
Le bouton qui permet cette fonction doit lancer une macro, et comme votre fichier est en XLXS, pas de macro
merci pour la réponse et de m'informer de ma dyslexie mais je fais comment pour régler mon problème ?en complément ... le fichier aurait du être enregistré en ".xlsm" et non pas ".xlsx"
@M12 ... tu tapes trop vite ou t'as un peu de dyslexie ou tu vend beaucoup de Tshirt XL XS ... lol
merci pour la réponse j'ai effectué la procédure mais je rencontre toujours le même problème voir fichier jointBonjour JAQUAND, le fil,
* ouvre ton fichier actuel (qui est un fichier Excel de type .xlsx)
* appuie sur la touche F12 (= commande "Enregistrer sous")
* en bas de la fenêtre, juste sous "Nom de fichier", il y a : "Type :" (type de fichier)
* dans cette liste, choisis l'item "Classeur Excel (prenant en charge les macros)" ;
c'est ça qui va convertir ton fichier .xlsx en fichier .xlsm (m est pour macros)
* après la conversion : le fichier .xlsx existe toujours, et tu peux le supprimer ;
mais comme tu fais cette conversion pour la 1ère fois, vérifie d'abord dans
le fichier .xlsm que tout est OK, et qu'il ne manque rien.
(moi aussi, je confirme que la "dyslexie" de Deadpool_CC était pour M12)
soan
=SI(B4=0;0;D4/B4)
Option Explicit
Sub renommage()
If ActiveSheet.Name <> "Récapitulatif" Then Exit Sub
If Not IsDate([E1]) Then Exit Sub 'si date invalide
Dim chn$, j%, m As Byte, a&, i%
Application.ScreenUpdating = 0
j = Day([E1]) 'jour de la date qui est en E1
m = Month([E1]) 'mois de la date de E1
a = Year([E1]) 'an de la date de E1
For i = 1 To Worksheets.Count
With Worksheets(i)
If .Name <> "Récapitulatif" Then
chn = Format(j, "00") & " " & Format(m, "00") & " " & a
If .Name <> chn Then .Name = chn
j = j + 1
End If
End With
Next i
ActiveCell.Select 'sert à désélectionner le bouton
End Sub