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. 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
    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?
    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 ?
    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.
    4. ok merci :-)
    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