Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Project Definition auto Celendrier 2mat/2am/2n/4repos

Definition auto Celendrier 2mat/2am/2n/4repos

2 réponses
Avatar
Patrick
Bonjour

peut-on definir un calendrier automatique =E0 partir de la=20
s=E9quence :
* 2 jours de travail Matin : 6h - 14h
* 2 jours de travail Apres-midi : 14h00 - 22h00
* 2 jours de travail de Nuit : 22h00 - 6h00
* 4 jours de repos

sans devoir saisir cette s=E9quence sur 10 jours par =E9quipe=20
(il y en a 5), sur une ann=E9e.

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JF Morvan - MVP Project
Bonjour Patrick,

Une macro devrait faire l'affaire. Voici un exemple qu'il vous faudra
adapter :

Sub Macro1()
vdate = Date 'Date du jour
For I = 0 To 365 Step 10
ResourceCalendarEditDays ProjectName:¬tiveProject.Name,
ResourceName:="Dupont", StartDate:=vdate + I, EndDate:=vdate + I + 1,
Working:=True, From1:="06:00", To1:="14:00"
ResourceCalendarEditDays ProjectName:¬tiveProject.Name,
ResourceName:="Dupont", StartDate:=vdate + I + 2, EndDate:=vdate + I + 3,
Working:=True, From1:="14:00", To1:="22:00"
ResourceCalendarEditDays ProjectName:¬tiveProject.Name,
ResourceName:="Dupont", StartDate:=vdate + I + 4, EndDate:=vdate + I + 5,
Working:=True, From1:="0:00", To1:="6:00", From2:="22:00", To2:="23:59"
ResourceCalendarEditDays ProjectName:¬tiveProject.Name,
ResourceName:="Dupont", StartDate:=vdate + I + 6, EndDate:=vdate + I + 9,
Working:úlse
Next I
End Sub

Bon courage

Jean-François Morvan
www.stk-management.fr


"Patrick" a écrit dans le message de
news:1351c01c443c7$24652da0$
Bonjour

peut-on definir un calendrier automatique à partir de la
séquence :
* 2 jours de travail Matin : 6h - 14h
* 2 jours de travail Apres-midi : 14h00 - 22h00
* 2 jours de travail de Nuit : 22h00 - 6h00
* 4 jours de repos

sans devoir saisir cette séquence sur 10 jours par équipe
(il y en a 5), sur une année.

Merci
Avatar
Pätrick
merci beaucoup pour cet exemple...

-----Message d'origine-----
Bonjour Patrick,

Une macro devrait faire l'affaire. Voici un exemple qu'il
vous faudra

adapter :

Sub Macro1()
vdate = Date 'Date du jour
For I = 0 To 365 Step 10
ResourceCalendarEditDays
ProjectName:¬tiveProject.Name,

ResourceName:="Dupont", StartDate:=vdate + I,
EndDate:=vdate + I + 1,

Working:=True, From1:="06:00", To1:="14:00"
ResourceCalendarEditDays
ProjectName:¬tiveProject.Name,

ResourceName:="Dupont", StartDate:=vdate + I + 2,
EndDate:=vdate + I + 3,

Working:=True, From1:="14:00", To1:="22:00"
ResourceCalendarEditDays
ProjectName:¬tiveProject.Name,

ResourceName:="Dupont", StartDate:=vdate + I + 4,
EndDate:=vdate + I + 5,

Working:=True, From1:="0:00", To1:="6:00",
From2:="22:00", To2:="23:59"

ResourceCalendarEditDays
ProjectName:¬tiveProject.Name,

ResourceName:="Dupont", StartDate:=vdate + I + 6,
EndDate:=vdate + I + 9,

Working:úlse
Next I
End Sub

Bon courage

Jean-François Morvan
www.stk-management.fr


"Patrick" a écrit
dans le message de

news:1351c01c443c7$24652da0$
Bonjour

peut-on definir un calendrier automatique à partir de la
séquence :
* 2 jours de travail Matin : 6h - 14h
* 2 jours de travail Apres-midi : 14h00 - 22h00
* 2 jours de travail de Nuit : 22h00 - 6h00
* 4 jours de repos

sans devoir saisir cette séquence sur 10 jours par équipe
(il y en a 5), sur une année.

Merci


.