Discussion :

[graphikris]

Bonjour,
de retour sur le forum, j'ai de nouveau une question à poser suite à une macro résolue et également postée dans la section "Contribuez"

Code :

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

1
2
3
4
5
' Envoi de mails 1er jour du mois ouvré
 If [Accueil!A2] = "" Then [Accueil!A2] = 1
    If Month([Accueil!A2]) <> Month(Date) Then
        [Accueil!A2] = Date
        Envoi_Mail_VMA_Obsolete

Dans ce code, en cellule A2 se trouve la date du jour [=aujourdhui()] mais je me suis aperçu qu'il y avait un souci avec le code car si je prends en exemple le mois de JUIN 2013, le 1er jour ouvré du mois est donc le lundi 03 juin puisque dans ma société, nous ne travaillons pas le Samedi, ni le dimanche.
Mais par rapport au calendrier, le 1er jour ouvré du mois est le Samedi 01 juin.
La macro ne sait donc pas déclenché le lundi 03 juin au matin lorsque j'ai ouvert mon fichier.
Comment faire pour que çà fonctionne correctement tout en sachant que si par exemple le lundi 03 juin, j'avais été en vacances jusqu'au 10 juin matin, il aurait donc fallu que la macro se déclenche le 10 juin à l'ouverture de mon fichier.

Cordialement

[lelensois16]

Bonjour,

1- Supposons qu'il n'ya pas de congés. Weekday renvoie le numéro de la semaine (système US) 1 étant le dimanche, 7 le samedi :

Code :

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

1
2
3
4
 
     while  Weekday([Accueil!A2]) =1 Or Weekday([Accueil!A2]) =7
       Date =  DateAdd("d",1,Date)
    Wend

2- Par contre si vous voulez rajouter des jours de congés, il faut rajouter des conditions de ce genre

Code :

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

1
2
3
4
    while  Weekday([Accueil!A2]) =1 Or Weekday([Accueil!A2]) =7 Or 
   ( DebutVacances <[Accueil!A2]  And [Accueil!A2]> FinVacances)
       Date =  DateAdd("d",1,Date)
    Wend

Après ca dépend comment sont gérés les jours de congés... Donc cette méthode est perfectible faute d'informations de votre part.

3- Personnellement, cette méthode d'automatisation a un gros défaut : la nécessité d'ouvrir la feuille Excel. Je vous conseille soit de passer en mode batch, soit de passer en vbscript (ou les 2). Comme ça, l'utilisateur n'aura même pas besoin d'ouvrir Excel

Cdt

[Ben_L]

Bonjour,

Si n'êtes pas opposés à l'idée d'avoir une feuille cachée dans votre classeur, vous pouvez y stocker la date de dernière mise à jour de votre fichier.
A l'ouverture de votre classeur, vous pourrez alors vérifier si la dernière mise à jour a eu lieu durant le mois en cours.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    If Year([FeuilCachée!A1]) < Year(Now()) or Month([FeuilCachée!A1]) < Month(Now()) Then
        'Réaliser ici les actions de mise à jour
        ' ...
        'Puis stocker la date de mise à jour
        [FeuilCachée!A1] = Now()
    End If
End Sub

Les mises à jour seront ainsi exécutées automatiquement lors de la première ouverture du mois, quelle que soit la date et quelle que soit la personne qui ouvre le fichier.

Cdt

[graphikris]

Bonjour LELENSOIS 16 et à BEN L,

Tout d'abord je m'adresse à LELENSOIS 16, je suis preneur de l'idée concernant : mode batch, mode vbscript, mais le souci c'est qu'il faudrait m'expliquer car je suis novice.

Merci également à toi BEN L, je vais tester cette méthode dès que possible.

Je teste vos propositions dès que je rentre au boulot car suis souvent en déplacement.

Je vous tiens au courant.

Dans l'attente d'une reponse sur le mode batch, ou vbscript.

Cordialement,
Graphikris.