XL 2013 onglet fichier excel

[JAQUAND]

bonjour dans le fichier ci joint onglet récapitulatif la fonction mettre à jour les onglets ne fonctionne plus merci de votre aide

 

[M12]

Bonjour,
Normal,
Le bouton qui permet cette fonction doit lancer une macro, et comme votre fichier est en XLXS, pas de macro

 

[Deadpool_CC]

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

 

[JAQUAND]

Bonjour,
Normal,
Le bouton qui permet cette fonction doit lancer une macro, et comme votre fichier est en XLXS, pas de macro

merci pour votre réponse mais je fais comment ?

 

[JAQUAND]

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 et de m'informer de ma dyslexie mais je fais comment pour régler mon problème ?

 

[Deadpool_CC]

la dyslexie c'etait pour M12
pour comment rélgler le pb ... faut que tu retrouve le fichier d'origine avec la bonne extension ".xlsm" avant qu'il soit enregistrer sous ... au format .xlsx
le changement de format à supprimer les macros du fichier donc elles n'y sont plus ... pas de solution magique

Retrouve l'ancien fichier (sauvegarde ?) ... pas d'autre solution à te proposer.

 

[soan]

Bonjour 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

 

[JAQUAND]

est il possible de m'envoyer un fichier avec les macros car je suis novice et à mon âge (58 ans) l'apprentissage n'est pas évident

 

[JAQUAND]

Bonjour 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

merci pour la réponse j'ai effectué la procédure mais je rencontre toujours le même problème voir fichier joint

 

[soan]

@JAQUAND

A) j'ai converti en .xlsm le fichier .xlsx de ton post #1

B) sur la feuille "Récapitulatif" :

* j'ai amélioré tes formules de la colonne C ; note qu'il n'y a plus
d'erreur de division par zéro ; pour exemple, formule en C4 :

=SI(B4=0;0;D4/B4)

* clique sur le bouton "Changer noms onglets" ; clique sur OK ;
appuie sur les touches Alt F11 pour voir le code VBA.

soan

 

[soan]

@JAQUAND

les noms actuels des onglets sont les mêmes ; clique sur le bouton
"Changer noms onglets" ; vérifie les nouveaux noms d'onglets.

---

EDIT : Y'AVAIT UN BUG ➯ J'AI SUPPRIMÉ LE CODE VBA ET LE FICHIER JOINT ;
PUIS J'AI CORRIGÉ LE BUG ; LE BON FICHIER EST DANS LE POST #15 (plus bas)

lien sur le post #15. (cliquer sur le texte bleu)

soan

 

[JAQUAND]

re bonjour j'ai suivi la procédure mais les onglets ne changent pas de date j'ai peut être mal compris.

 

[JAQUAND]

merci ça fonctionne encore merci.

 

[soan]

ok, merci de ton retour !

 

[soan]

@JAQUAND

désolé, je m'suis aperçu que j'ai fait une erreur à la fois grosse et stupide ! avec mon code VBA précédent, la fin des noms d'onglet est toujours " 06 2022", quelle que soit la date de E1 ! c'est maintenant corrigé : ça prend le mois correct de la date de E1 ; idem pour l'année, si tu mets par exemple en E1 : 01/01/2025. (rappel : mettre la date en E1 avant de cliquer sur le bouton !)​

nouveau code VBA :

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

soan