DATÉ AUTOMATIQUEMENT LES ONGLETS

Résolu
Claude021 -  
Bonjour à tous

j'ai déjà poster ce message mais je n'ai pas eu de réponse. J'ai un fichier qui contient une feuille pour chaque jour de la semaine et je dois les datés manuellement à chaque semaine. Est-ce possible de daté automatiquement les onglets excel?

merci à l'avance

Claude021

7 réponses

  1.  pijaku Modérateur
    Bonjour,
    Testez ceci :
    1- ouvrir le classeur concerné,
    2- tapez ALT+F11
    3- Insertion/Module
    4- Copiez collez ce code : 
    Sub DaterOnglet()
ActiveSheet.Name = ActiveSheet.Name & " " & Format(Date, "dd mm yyyy")
End Sub

    5- fermer la fenêtre Visual Basic Editor
    6- tester la macro en :
    - vous plaçant sur une feuille à renommer
    - taper ALT+F8, choix : DaterOnglet et Exécuter
    0
    1. Claude021 Auteur
      Bonjour pijaku

      Merci pourla réponse je vais essayer cette après midi et je revient avec des nouvelles

      A+

      Claude 021
      0
      1. Claude021 Auteur
        Bonjour pijaku

        ce que tu m'as donnée fonctionne très bien mais ce que je j'aimerai c'est de nommer avec une seul macro les septs onglets avec les dates pour une semaine complete. Ta façon foctionne bien mais je dois quand même cliquer sur chaque onglet, faire Alt +F8 et la renommer car la macro donne la date de la journée, je ne sais pas si je suis assez clair dans mon explication.

        Si tu as autre chose en tête je suis partant

        merci et A+

        Claude021
        0
        1. pijaku Modérateur
          Bonjour,
          Tu veux renommer 7 ou plus onglets en une seule manip, avec les dates pour une semaine à partir du jour ou tu lances la macro? Ok?
          Donc : 
          Sub DaterOnglet()
Dim ws As Worksheet
Dim i As Integer
i = 0
For Each ws In ActiveWindow.SelectedSheets
    ws.Name = ws.Name & " " & Format(Date + i, "dd mm yyyy")
    i = i + 1
Next
End Sub

          Méthode :
          1- tu sélectionnes tes 7 onglets (souris + touche MAJ ou CTRL)
          2- ALT+F8...
          0
      2. Claude021 Auteur
        Bonjour pijaku

        Je suis présentement au travail, mais je vais essayer cette formule ce soir à la maison. Pour inserer la formule c'est exactement la même chose je selectionne les 7 onglets suivi j'imagine Alt + F11, inserer un module, copier et coller la nouvelle formule. Si je veux réutiliser à toute les semaines cette formule, une fois fait je peux certainement garder la feuille comme copie maitresse et faire à toute les semaine un sauvegarder-sous?

        merci et bonne journée

        A+

        Claude 021
        0
        1. pijaku Modérateur
          Non! pour l'insérer, tu fais juste ALT+F11 de n'importe ou dans le classeur, et tu remplaces l'ancienne par celle ci. En fait, un module est, contrairement au code d'une feuille, accessible de partout.
          0
      4. Claude021 Auteur
        Merci pijaku

        A+

        Claude 021
        0
        1. Claude021 Auteur
          Bonjour pijaku

          Après essai vraiment excellent un gros merci. Est-ce possible d'enlever le mot SHEET/FEUILLE dans les onglets mais juste avoir les dates d'inscrite?

          Merci beaucoup

          A+

          Claude021
          0
          1. pijaku Modérateur
            Oui : 
            Sub DaterOnglet()
Dim ws As Worksheet
Dim i As Integer
i = 0
For Each ws In ActiveWindow.SelectedSheets
    ws.Name = Format(Date + i, "dd mm yyyy")
    i = i + 1
Next
End Sub
            0
        2. Claude021 Auteur
          Merci pijaku

          Ca marche vraiment bien merci

          A+

          Claude
          0
          1. pijaku Modérateur
            De rien. Si cela réponds à tes attentes, il convient de passer ce sujet comme "résolu". Pour cela clique sur : "Marquer comme résolu" dans l'entête de ton premier message ci dessus : 
            DATÉ AUTOMATIQUEMENT LES ONGLETS 
Claude021  - 3 nov 2010 à 15:22 - Dernière réponse le 4 nov 2010 à 14:21 Claude021  
Ne plus suivre - Marquer comme résolu
            0

        Discussions similaires

        Comment supprimer les onglets?
        VictimeDeLinformatique

        2 réponses
        MFG pas encore arrivée
        kkwtanne

        2 réponses
        Problème publipostage date de naissance
        garbiche22

        3 réponses
        Problème Whatsapp - "La date est incorrecte"
        thvzzz

        5 réponses
        Abonnement jm date
        Ravesky

        1 réponse