Bonjour ,
Cette proc=E9dure ci dessous permet de lancer une macro automatiquement
tous
les matins =E0 8h00. la macro ne se lance pas les
jours non ouvrables,( samedi, dimanche, f=E9ri=E9) car le poste sur
lequel est lanc=E9 la macro n'est jamais =E9teint.
if Application.WorksheetFunction.Weekday(Now, 2)<6
Application.OnTime TimeValue("08:00:00"), "TOTO"
end if
si je voulais qu'une proc=E9dure soit lanc=E9e uniquement le dernier jour
ouvrable d'un mois qu'est ce qu'il faut faire?
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
Daniel
Bonjour. If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then Application.OnTime TimeValue("08:00:00"), "TOTO" Cordialement. Daniel a écrit dans le message de news:
Bonjour , Cette procédure ci dessous permet de lancer une macro automatiquement tous les matins à 8h00. la macro ne se lance pas les jours non ouvrables,( samedi, dimanche, férié) car le poste sur lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6 Application.OnTime TimeValue("08:00:00"), "TOTO" end if
si je voulais qu'une procédure soit lancée uniquement le dernier jour ouvrable d'un mois qu'est ce qu'il faut faire?
votre aide serait la bienvenue.
Bonjour.
If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then
Application.OnTime TimeValue("08:00:00"), "TOTO"
Cordialement.
Daniel
<sice42@hotmail.com> a écrit dans le message de news:
1157104891.187770.127660@74g2000cwt.googlegroups.com...
Bonjour ,
Cette procédure ci dessous permet de lancer une macro automatiquement
tous
les matins à 8h00. la macro ne se lance pas les
jours non ouvrables,( samedi, dimanche, férié) car le poste sur
lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6
Application.OnTime TimeValue("08:00:00"), "TOTO"
end if
si je voulais qu'une procédure soit lancée uniquement le dernier jour
ouvrable d'un mois qu'est ce qu'il faut faire?
Bonjour. If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then Application.OnTime TimeValue("08:00:00"), "TOTO" Cordialement. Daniel a écrit dans le message de news:
Bonjour , Cette procédure ci dessous permet de lancer une macro automatiquement tous les matins à 8h00. la macro ne se lance pas les jours non ouvrables,( samedi, dimanche, férié) car le poste sur lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6 Application.OnTime TimeValue("08:00:00"), "TOTO" end if
si je voulais qu'une procédure soit lancée uniquement le dernier jour ouvrable d'un mois qu'est ce qu'il faut faire?
votre aide serait la bienvenue.
anonymousA
Bonjour,
histoire de copier un peu Daniel
Attention, ci-dessous, ne teste pas le fait qu'un jour ouvrable puisse être un jour férié
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or (lastday = 5 And diffday = 2) Then 'ici placer tes instructions que tu veux faire le dernier jour ouvrable du mois End If
A+
wrote:
Bonjour , Cette procédure ci dessous permet de lancer une macro automatiquement tous les matins à 8h00. la macro ne se lance pas les jours non ouvrables,( samedi, dimanche, férié) car le poste sur lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6 Application.OnTime TimeValue("08:00:00"), "TOTO" end if
si je voulais qu'une procédure soit lancée uniquement le dernier jour ouvrable d'un mois qu'est ce qu'il faut faire?
votre aide serait la bienvenue.
Bonjour,
histoire de copier un peu Daniel
Attention, ci-dessous, ne teste pas le fait qu'un jour ouvrable puisse
être un jour férié
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or
(lastday = 5 And diffday = 2) Then
'ici placer tes instructions que tu veux faire le dernier jour ouvrable
du mois
End If
A+
sice42@hotmail.com wrote:
Bonjour ,
Cette procédure ci dessous permet de lancer une macro automatiquement
tous
les matins à 8h00. la macro ne se lance pas les
jours non ouvrables,( samedi, dimanche, férié) car le poste sur
lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6
Application.OnTime TimeValue("08:00:00"), "TOTO"
end if
si je voulais qu'une procédure soit lancée uniquement le dernier jour
ouvrable d'un mois qu'est ce qu'il faut faire?
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or (lastday = 5 And diffday = 2) Then 'ici placer tes instructions que tu veux faire le dernier jour ouvrable du mois End If
A+
wrote:
Bonjour , Cette procédure ci dessous permet de lancer une macro automatiquement tous les matins à 8h00. la macro ne se lance pas les jours non ouvrables,( samedi, dimanche, férié) car le poste sur lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6 Application.OnTime TimeValue("08:00:00"), "TOTO" end if
si je voulais qu'une procédure soit lancée uniquement le dernier jour ouvrable d'un mois qu'est ce qu'il faut faire?
votre aide serait la bienvenue.
anonymousA
Oups.Erreur de la banque en votre défaveur.Il faut bien sur écrire
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or (lastday = 7 And diffday = 2) Then
A+
anonymousA wrote:
Bonjour,
histoire de copier un peu Daniel
Attention, ci-dessous, ne teste pas le fait qu'un jour ouvrable puisse être un jour férié
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or (lastday = 5 And diffday = 2) Then 'ici placer tes instructions que tu veux faire le dernier jour ouvrable du mois End If
A+
wrote:
Bonjour , Cette procédure ci dessous permet de lancer une macro automatiquement tous les matins à 8h00. la macro ne se lance pas les jours non ouvrables,( samedi, dimanche, férié) car le poste sur lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6 Application.OnTime TimeValue("08:00:00"), "TOTO" end if
si je voulais qu'une procédure soit lancée uniquement le dernier jo ur ouvrable d'un mois qu'est ce qu'il faut faire?
votre aide serait la bienvenue.
Oups.Erreur de la banque en votre défaveur.Il faut bien sur écrire
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or
(lastday = 7 And diffday = 2) Then
A+
anonymousA wrote:
Bonjour,
histoire de copier un peu Daniel
Attention, ci-dessous, ne teste pas le fait qu'un jour ouvrable puisse
être un jour férié
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or
(lastday = 5 And diffday = 2) Then
'ici placer tes instructions que tu veux faire le dernier jour ouvrable
du mois
End If
A+
sice42@hotmail.com wrote:
Bonjour ,
Cette procédure ci dessous permet de lancer une macro automatiquement
tous
les matins à 8h00. la macro ne se lance pas les
jours non ouvrables,( samedi, dimanche, férié) car le poste sur
lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6
Application.OnTime TimeValue("08:00:00"), "TOTO"
end if
si je voulais qu'une procédure soit lancée uniquement le dernier jo ur
ouvrable d'un mois qu'est ce qu'il faut faire?
If (lastday < 6 And diffday = 0) Or (lastday = 6 And diffday = 1) Or (lastday = 5 And diffday = 2) Then 'ici placer tes instructions que tu veux faire le dernier jour ouvrable du mois End If
A+
wrote:
Bonjour , Cette procédure ci dessous permet de lancer une macro automatiquement tous les matins à 8h00. la macro ne se lance pas les jours non ouvrables,( samedi, dimanche, férié) car le poste sur lequel est lancé la macro n'est jamais éteint.
if Application.WorksheetFunction.Weekday(Now, 2)<6 Application.OnTime TimeValue("08:00:00"), "TOTO" end if
si je voulais qu'une procédure soit lancée uniquement le dernier jo ur ouvrable d'un mois qu'est ce qu'il faut faire?
