Discussion :

[clark...kent]

Bonjour,
J'ai lu cette discussion.
Je soulève un sujet un peu vieux, mais comme il correspond exactement à mon problème, je me permets d'intervenir.

J'ai mon calendrier qui s'affiche, et j'aimerais qu'à chaque ouverture de celui-ci, il se positionne sur aujourd'hui-1 ou si c'est un lundi, aujourd'hui - 3.

En gros mon formulaire a pour but de charger des données via un autre fichier excel externe. Ce fichier source qu'on peut appelé, rapport d'activité, correspond le jour de sa création à l'activité J-1 ou J-3 si c'est un lundi. Le nom de ce fichier correspond justement à la date "d'activité".

J'ai bien essayé de déchiffrer ce code plus haut, mais utilisateur de vba depuis une semaine, je sèche.
Pour les jours fériés on verra plus tard
Merci de votre aide.

[kiki29]

Salut, comme il s'agit d'un calendrier sans Samedi, Dimanche ni Jours Fériés, il suffit d'ajouter dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Private Sub Workbook_Open()
    With Feuil1
        .Activate
        .Range("A1").Select
        .Columns("A:A").Interior.ColorIndex = xlNone
    End With
    RchDate
End Sub
 
Private Sub RchDate()
Dim LastRow As Long, c As Range
 
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    With Feuil1.Range("A1:A" & LastRow)
        Set c = .Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, SearchDirection:=xlNext, MatchCase:=True)
        If Not c Is Nothing Then
            With c.Offset(-1)
                .Select
                .Interior.ColorIndex = 36
            End With
        Else
            MsgBox "la Date Courante -1" & vbCrLf & "correspond à un Samedi, Dimanche ou Jour Férié", vbInformation + vbOKOnly, "Attention"
        End If
    End With
End Sub