J'ai créer deux macros qui permettent de modifier le positionnment du
personnel en fonction du numéro de semaine ( semaine paire et impaire ) mais
tous les lundis il faut lancer la macro et la bonne !
Y a t'il une possibilitéde lancer cette macro une fois par semaine selon le
numéro ( paire ou impaire ) mais seulement une seul fois. Je dis une seul
fois car le fichier en question est ouvert et fermé plusieurs fois dans la
journée. Merci pour vos réponses.
Non la procédure ne doit pas forcément s'excuter le lundi (surtout s'il est férié ;-)) mais a la première ouverture du fichier de la semaine. Ensuite le
' le lundi de cette semaine, sem du Lun au Dim MonLundi = date -weekday(date-1) + 1
If [A1] < MonLundi Then [A1] = MonLundi If (Int(MonLundi/ 7)) mod 2 Then ProcImPair Else ProcPair End If ' sauvegarde ton classeur ici End If
Ça va? Tu ferais évidemment mieux de changer l'adresse (A1 est un choix aléatoire)
Salutations,
Daniel M.
Salut Leonard,
Non la procédure ne doit pas forcément s'excuter le lundi (surtout s'il est
férié ;-)) mais a la première ouverture du fichier de la semaine. Ensuite le
' le lundi de cette semaine, sem du Lun au Dim
MonLundi = date -weekday(date-1) + 1
If [A1] < MonLundi Then
[A1] = MonLundi
If (Int(MonLundi/ 7)) mod 2 Then
ProcImPair
Else
ProcPair
End If
' sauvegarde ton classeur ici
End If
Ça va? Tu ferais évidemment mieux de changer l'adresse (A1 est un choix
aléatoire)
Non la procédure ne doit pas forcément s'excuter le lundi (surtout s'il est férié ;-)) mais a la première ouverture du fichier de la semaine. Ensuite le
' le lundi de cette semaine, sem du Lun au Dim MonLundi = date -weekday(date-1) + 1
If [A1] < MonLundi Then [A1] = MonLundi If (Int(MonLundi/ 7)) mod 2 Then ProcImPair Else ProcPair End If ' sauvegarde ton classeur ici End If
Ça va? Tu ferais évidemment mieux de changer l'adresse (A1 est un choix aléatoire)
Salutations,
Daniel M.
Leonard
Merci pour cette réponse si tardive, je vais tester demain au boulot et je te tiens au courant !!
Merci encore.
"Daniel.M" a écrit dans le message de news:%
Salut Leonard,
Non la procédure ne doit pas forcément s'excuter le lundi (surtout s'il est
férié ;-)) mais a la première ouverture du fichier de la semaine. Ensuite le
' le lundi de cette semaine, sem du Lun au Dim MonLundi = date -weekday(date-1) + 1
If [A1] < MonLundi Then [A1] = MonLundi If (Int(MonLundi/ 7)) mod 2 Then ProcImPair Else ProcPair End If ' sauvegarde ton classeur ici End If
Ça va? Tu ferais évidemment mieux de changer l'adresse (A1 est un choix aléatoire)
Salutations,
Daniel M.
Merci pour cette réponse si tardive, je vais tester demain au boulot et je
te tiens au courant !!
Merci encore.
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news:%23UsjYsp7DHA.1948@TK2MSFTNGP12.phx.gbl...
Salut Leonard,
Non la procédure ne doit pas forcément s'excuter le lundi (surtout s'il
est
férié ;-)) mais a la première ouverture du fichier de la semaine.
Ensuite le
' le lundi de cette semaine, sem du Lun au Dim
MonLundi = date -weekday(date-1) + 1
If [A1] < MonLundi Then
[A1] = MonLundi
If (Int(MonLundi/ 7)) mod 2 Then
ProcImPair
Else
ProcPair
End If
' sauvegarde ton classeur ici
End If
Ça va? Tu ferais évidemment mieux de changer l'adresse (A1 est un choix
aléatoire)
