macro évènement par rapport à une date

[chinel]

Salut tout le monde !


je me suis mal exprimé sur ma demande précédente

j'ai une feuille qui se nomme "sauvegarde planning"
dans la cellule "M2" j'ai mis la date en automatique (fonction <aujourd'hui>)
je voudrais que quand la date arrive à un mardi (par exemple : mardi 4 novembre 2008)
une macro se déclenche et me demande si il y a une "réunion ou pas " si dans le cas je réponds "oui" la phrase "réunion se mardi" se met dans la cellule B42 et imprime la feuille "Présences"
mais dans le ou je réponds "non" rien ne se passe

j'espère que je suis plus explicite

Merci d'avance !

 

[chinel]

Re : macro évènement par rapport à une date

salut tout le monde !

personne pour m'aider !


bon dimanche à tous !!!!!!!!!!

 

[Dull]

Re : macro évènement par rapport à une date

Salut Chinel, Le Forum

Voilà ce que j'ai Compris

- Date du Jour en M2 de la feuille sauvegarde planning
- A l'ouverture du Fichier Si Aujourd'hui tombe un Mardi MsgBox demandant si il y a réunion
- Si OUI "Réunion ce Mardi" en B42 de la même Feuille et Impression de la Feuille Présences
- Si NON Rien ne se passe

Dans le ThisWorkBook

Private Sub Workbook_Open()
Dim MaDate, MonJour
Dim Msg, Style, Title, Réponse
MaDate = Sheets("Sauvegarde Planning").Range("M2").Value
MonJour = Weekday(MaDate)
If MonJour = 3 Then
Style = vbYesNo + vbInformation + vbDefaultButton1
    Title = "Réunion "
    Msg = " Réunion ce Mardi?  " & "     "
    Réponse = MsgBox(Msg, Style, Title)
    If Réponse = vbYes Then
        Sheets("Sauvegarde Planning").Range("B42").Value = "Réunion ce Mardi"
        Sheets("Présences").PrintPreview
        End If
    If Réponse = vbNo Then Exit Sub
End If
End Sub

J'ai remplacer l'impression par un aperçu de l'impression aremplacer
A savoir si j'ai bien Compris

Bonne Journée

 

[chinel]

Re : macro évènement par rapport à une date

super mais ma feuille "présences" n'est pas visible (et je veux qu'elle reste invisible)et est protégée !

 

[Dull]

Re : macro évènement par rapport à une date

Salut Chinel, le Forum

Remplace les lignes de codes ci-dessus par celles-ci

Private Sub Workbook_Open()
Dim MaDate, MonJour
Dim Msg, Style, Title, Réponse
MaDate = Sheets("Sauvegarde Planning").Range("M2").Value
MonJour = Weekday(MaDate)
If MonJour = 3 Then
Style = vbYesNo + vbInformation + vbDefaultButton1
    Title = "Réunion "
    Msg = " Réunion ce Mardi?  " & "     "
    Réponse = MsgBox(Msg, Style, Title)
    If Réponse = vbYes Then
        Sheets("Sauvegarde Planning").Range("B42").Value = "Réunion ce Mardi"
[B]        With Sheets("Présences")
            .Visible = xlSheetVisible
            .PrintPreview
            .Visible = xlSheetHidden [/B]'[COLOR=Green] ou .Visible = xlSheetVeryHidden[/COLOR][B]
       End With[/B]
        End If
    If Réponse = vbNo Then Exit Sub
End If
End Sub

Bonne Journée

 

[chinel]

Re : macro évènement par rapport à une date

Merci Dull mais comment mettre en plus cellule A1: H36 car ma feuille présences se me en miniature


Mais ta réponses est super !

 

[Dull]

Re : macro évènement par rapport à une date

Re chinel, le Forum

As-tud'autrescontraintes?...disletoutdesuite...😀

Ton code modifié

Private Sub Workbook_Open()
Dim MaDate, MonJour
Dim Msg, Style, Title, Réponse
MaDate = Sheets("Sauvegarde Planning").Range("M2").Value
MonJour = Weekday(MaDate)
If MonJour = 3 Then
Style = vbYesNo + vbInformation + vbDefaultButton1
    Title = "Réunion "
    Msg = " Réunion ce Mardi?  " & "     "
    Réponse = MsgBox(Msg, Style, Title)
    If Réponse = vbYes Then
        Sheets("Sauvegarde Planning").Range("B42").Value = "Réunion ce Mardi"
        With Sheets("Présences")
            .Visible = xlSheetVisible
[B]            .PageSetup.PrintArea = "$A$1:$H$36"[/B]
            .PrintPreview
            .Visible = xlSheetHidden ' ou .Visible = xlSheetVeryHidden
       End With
        End If
    If Réponse = vbNo Then Exit Sub
End If
End Sub

Bonne Soirée

 

[chinel]

Re : macro évènement par rapport à une date

c'est fini !!!!!!!!!!!!!!!!!


c'est superrrrrrrrrrrrr! un grand merci !🙂