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

 

[jopont]

Re : evenement workbook open et récupération

Il doit bien y avoir une solution

 

[Pierrot93]

Re : evenement workbook open et récupération

Bonjour,

peut être comme ceci, sur la base de mon code précédent, en supposant le 1er jour du mois en A1, ce qui n'est pas le cas dans ton fichier joint...

Option Explicit
Private Sub Workbook_Open()
MsgBox Sheets(MonthName(Month(Date))).Cells(3, (Day(Date) * 2) - 1).Value & _
    " et " & Sheets(MonthName(Month(Date))).Cells(3, Day(Date) * 2).Value
End Sub

bonne journée
@+

 

[jopont]

Re : evenement workbook open et récupération

Le premier jour du mois sur mon fichier se trouve en C1

 

[jopont]

Re : evenement workbook open et récupération

ça fonctionne mais comment je fais pour déclaer en C1

 

[tototiti2008]

Re : evenement workbook open et récupération

Bonjour à tous,

Désolé jopont, j'avais pas vu que tu appelais à l'aide...

une version de mon code corrigée :

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(3, Colonne).Value & Chr(10) & "Nuit : " & Sheets(MonthName(Month(Date))).Cells(3, Colonne + 1).Value
End Sub

 

[jopont]

Re : evenement workbook open et récupération

tototiti j'ai une erreur d'éxécution 1004 avec ta macro

 

[tototiti2008]

Re : evenement workbook open et récupération

sur quelle ligne ? la 1ère ou la seconde ? chez moi ça fonctionne, à partir du moment où :

il y a une feuille nommée octobre
la date du jour se trouve en ligne 1 (sinon modifier Range("A1:IV1") en conséquences)
les valeurs à faire apparaître dans la msgbox doivent être en ligne 3 (sinon modifier les 2 ".Cells(3," en conséquences)

 

[jopont]

Re : evenement workbook open et récupération

Les dates sont en C1:BL1.
Les valeurs à afficher sont en ligne 11

regardes le fichier ci joint ça fonctionne pas

 

[tototiti2008]

Re : evenement workbook open et récupération

c'est amusant ça, j'ai ouvert ton fichier et hop, la msgbox est apparue avec les valeurs... quelle version d'excel as-tu ?

bon, si vraiment ça veut pas marcher, tu peux changer la ligne :

Colonne = Application.WorksheetFunction.Match(CLng(Date), Sheets(MonthName(Month(Date))).Range("A1:IV1"), 0)

qui pose problème, par

Colonne = Day(Date)*2+1

 

[jopont]

Re : evenement workbook open et récupération

excel version 2003

 

[tototiti2008]

Re : evenement workbook open et récupération

et en changeant la ligne, ça marche ?

 

[jopont]

Re : evenement workbook open et récupération

Bon ça semble fonctionner à présent.
Mais dans la msgbox comment je peux afficher la date qui correspond à l'effectif ?
Deplus comment afficher la feuille du mois en cours ?

merci

 

[jopont]

Re : evenement workbook open et récupération

Bon ça fonctionne mis à part à l'ouverture ou j'aimerais afficher la feuille du mois en cours.
D'autre part comment afficher l'effectif du lendemain?
ci-dessous le code qui fonctionne :


Private Sub Workbook_Open()
Dim Colonne As Long
Colonne = Day(Date) * 2 + 1
MsgBox "effectif du : " & Sheets(MonthName(Month(Date))).Cells(1, Colonne).Value & Chr(10) & " Jour : " & Sheets(MonthName(Month(Date))).Cells(71, Colonne).Value & Chr(10) & "Nuit : " & Sheets(MonthName(Month(Date))).Cells(71, Colonne + 1).Value & Chr(10) & " Jour : " & Sheets(MonthName(Month(Date))).Cells(81, Colonne).Value & Chr(10) & "Nuit : " & Sheets(MonthName(Month(Date))).Cells(81, Colonne + 1).Value
End Sub

 

[tototiti2008]

Re : evenement workbook open et récupération

Bonjour jopont,

le nom de la feuille du mois en cours est renvoyé par :

MonthName(Month(Date))

l'effectif du lendemain se situe certainement en colonnes

Colonne + 2
et
Colonne + 3

pour le numéro de la ligne, je te laisse voir, moi je ne sais pas.

 

[jopont]

Re : evenement workbook open et récupération

et bien merci à toi tototiti.
on était à colonne et colonne + 1.
Il est donc logique de passer de colonne + 2 à colonne + 3 pour le lendemain.