Afficher valeur cellule nommée

Résolu
Bonjour,

Malheureusement tout n'est pas aussi simple que dans le titre.
Je m'explique :
J'ai nommé 12 cellules en mois de Janvier à Décembre
Dans chaque cellule nommée j'ai le nombre de jour ouvré du mois nommé

J'ai créé une macro qui actualise les données d'un fichier à l'ouverture de celui-ci et j'aimerai en fonction du mois auquel on ouvre le fichier qu'une des cellules affiche le nombre de jours ouvrés du mois en cours

J'espère que mes explications sont clairs
Merci d'avance pour votre aide

2 réponses

  1. Modérateur
    Bonjour,

    Peut être une piste ICI, chez Mr Boisgontier...
    0
    1. Bonjour pijaku,

      malheureusement pour moi le nombre de jour ouvré calendaire ne correspond aux jours ouvrés de mon fichier
      Le nombre de jour ouvré de mon fichier correspond aux jours d'ouverture de l'usine

      Merci
      0
      1. Modérateur
        Alors il te faudra être plus précis dans tes explications.
        Tes nombres de jours ouvrés sont dans le classeur contenant la macro? Le même classeur qui doit s'actualiser à l'ouverture?
        Si oui, donne nous le nom des feuilles ou sont situées les infos :
        - ou se trouvent les 12 mois et leurs jours ouvrés (feuil et cellules)
        - dans qu''elle feuille et qu'elle cellule placer le résultat de notre recherche?
        0
      2. tout ce passe dans le même classeur
        les jours ouvrés (avec les cellules nommées) sont dans l'onglet "JRS OUVRES" cellule E11:E22
        le résultat obtenu devra être dans l'onglet "DAILY SALES" cellule AA1

        Pourquoi me demander le nom de l'onglet des jours ouvrés ?
        Je pensais qu'en nommant les cellules il n'avait plus besoin d'aller activer l'onglet ou l'on recherche l'information ?
        0
      3. Modérateur
        Pourquoi me demander le nom de l'onglet des jours ouvrés ?
        Parce que, dans ma grande mansuétude, je vais faire un fichier de test...
        Je reviens.
        0
      4. ok merci :-)
        0
      5. Modérateur
        Voici le code proposé :
        Private Sub Workbook_Open()
        Dim mois As String
        mois = Format(Date, "mmmm")
        ThisWorkbook.Worksheets("DAILY SALES").Range("AA1") = Range(mois).Value
        End Sub

        Code à insérer dans le Module ThisWorkbook du classeur concerné

        Classeur exemple ;-) => cellule A1 au lieu de AA1
        0