evenement workbook open et récupération

[jopont]

Bonsoir

J'ai un classeur dont 12 feuilles composent les mois de l'année.
Sur chaque feuille de C1 à BL1 j'ai les dates du mois.
Sous Chaque j'ai un chiffre
Je souhaiterais à l'ouverture du classeur récupérer le chiffres qui se trouve en dessous de la date du jour d'ouverture du classeur.
merci

 

[Pierrot93]

Re : evenement workbook open et récupération

bonjour Jopont,

pas tout compris moi... tu dis :

Sur chaque feuille de C1 à BL1 j'ai les dates du mois

si je ne m'abuse cela doit faire 62 cellules, et un mois comporte au maximum 31 jours.

Essaye peut être d'ête un peu plus précis, car là, en l'état pas facile...

bonne soirée
@+

 

[bqtr]

Re : evenement workbook open et récupération

Bonsoir jopont, Pierrot93

Heu... Pierrot un mois n'a pas 12 jours, mais un peu plus quand même.😀😀

Tu as des cellules fusionnées pour les dates ? et que veuxt tu faire avec le chiffre ?

A+

 

[jopont]

Re : evenement workbook open et récupération

oui mais chaque jour est réparti en deux pour le jour et la nuit.
mais si vous voulez me donner la solution avec 31 jours je saurai adapter le code par la suite
merci

 

[Pierrot93]

Re : evenement workbook open et récupération

Re, bonsoir Pierre Olivier

aarf, merci bqtr, j'ai édité mon message....

 

[Pierrot93]

Re : evenement workbook open et récupération

Re

regarde le code ci dessous... mais sans plus de détails... à placer dans le module de "thisworkbook"

Option Explicit
Private Sub Workbook_Open()
MsgBox Sheets(MonthName(Month(Date))).Cells(2, Day(Date) + 2).Value
End Sub

attention respecter les accents dans le nom des mois.

@+

 

[bqtr]

Re : evenement workbook open et récupération

Re,

A tester :

Private Sub Workbook_Open()

Dim cell As Range, Chiffr As Long

With Sheets(MonthName(Month(Date)))
    For Each cell In .Range("C1:AG1")
        If cell = Date Then Chiffr = cell.Offset(1, 0)
    Next
End With
MsgBox Chiffr

End Sub

A+

 

[jopont]

Re : evenement workbook open et récupération

Monthname récupère le nom du mois de la feuille ?
Faut-il nommer les feuilles mois d'une façon particulière?

 

[bqtr]

Re : evenement workbook open et récupération

Re

Pierrot, Y a des jours on se sent tout petit !
Bon ben y pas photo, j'ai plus qu'à prendre des cours 😀

Bonne soirée

 

[bqtr]

Re : evenement workbook open et récupération

Re

Tu nommes les feuilles avec le nom des mois en respectant la casse et ca devrait fonctionner.

A+

 

[jopont]

Re : evenement workbook open et récupération

Ok ça fonctionne mais maintenant j'aimerais afficher le chiffre pour le jour et la nuit.
je vous joint un fichier pour explication

merci

 

[tototiti2008]

Re : evenement workbook open et récupération

Bonjour à tous,

Si les chiffres sont toujours en ligne 2 :

Private Sub Workbook_Open()
Dim Colonne as long
Colonne = Application.WorksheetFunction.Match(CLng(Date),Sheets(MonthName(Month(Date))).Range("A1:IV1"),0))
MsgBox "Jour : " & Sheets(MonthName(Month(Date))).Cells(2, Colonne)).Value & chr(10) & "Nuit : " & Sheets(MonthName(Month(Date))).Cells(2, Colonne+1)).Value
End Sub

 

[jopont]

Re : evenement workbook open et récupération

J'ai une erreur de compilation avec le code ci-dessus

 

[jopont]

Re : evenement workbook open et récupération

ci-joint le fichier avec la macro de bqtr qui fonctionne mais je n'arrive pas à intégrer les chiffres du jour et de la nuit.
La macro affiche uniquement la nuit

merci

 

[jopont]

Re : evenement workbook open et récupération

personne n'a de solution