Bonjour,
Il ne reste plus qu'un jour ouvrable dans le mois de Septembre et je
n'arrive toujours pas =E0 trouver une solution pour lancer
automatiquement une macros le dernier jour du mois. j'ai re=E7u des
propositions mes aucunes ne s'adaptent =E0 ce que je veux faire. est ce
que quelqu'un peut me proposer un code clair et pr=E9cis avec les
arguments ...bref un code complet ? ci dessous le code qui me permet de
lancer automatiquement ma macro et auquel je veux rajouter le lancement
le dernier jours du mois :
Private Sub Workbook_Open()
If Application.WorksheetFunction.Weekday(Now, 2) < 6 Then
Application.OnTime TimeValue("08:00:00"), "NewMC"
Else
End If
End Sub
Merci d'avance
Bonne journ=E9=E9 =E0 Tous et =E0 Toute
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
MonOnc'
bonjour sice,
d'après les informations que tu donnes, j'agirais comme ceci : à l'ouverture du classeur, je teste si aujourd'hui est le dernier jour du mois (c-à-d si le jour du mois d'aujourd'hui + 1 est égal à 1). Si oui la macro se lance.
Private Sub Workbook_Open() If Day(Date + 1) = 1 Then NewMC end if end sub
Cela sous entend que tu lances ton fichier chaque matin.
cordialement
Il se trouve que a formulé :
Bonjour, Il ne reste plus qu'un jour ouvrable dans le mois de Septembre et je n'arrive toujours pas à trouver une solution pour lancer automatiquement une macros le dernier jour du mois. j'ai reçu des propositions mes aucunes ne s'adaptent à ce que je veux faire. est ce que quelqu'un peut me proposer un code clair et précis avec les arguments ...bref un code complet ? ci dessous le code qui me permet de lancer automatiquement ma macro et auquel je veux rajouter le lancement le dernier jours du mois : Private Sub Workbook_Open()
If Application.WorksheetFunction.Weekday(Now, 2) < 6 Then Application.OnTime TimeValue("08:00:00"), "NewMC" Else End If
End Sub
Merci d'avance Bonne journéé à Tous et à Toute
bonjour sice,
d'après les informations que tu donnes, j'agirais comme ceci : à
l'ouverture du classeur, je teste si aujourd'hui est le dernier jour du
mois (c-à-d si le jour du mois d'aujourd'hui + 1 est égal à 1). Si oui
la macro se lance.
Private Sub Workbook_Open()
If Day(Date + 1) = 1 Then
NewMC
end if
end sub
Cela sous entend que tu lances ton fichier chaque matin.
cordialement
Il se trouve que sice42@hotmail.com a formulé :
Bonjour,
Il ne reste plus qu'un jour ouvrable dans le mois de Septembre et je
n'arrive toujours pas à trouver une solution pour lancer
automatiquement une macros le dernier jour du mois. j'ai reçu des
propositions mes aucunes ne s'adaptent à ce que je veux faire. est ce
que quelqu'un peut me proposer un code clair et précis avec les
arguments ...bref un code complet ? ci dessous le code qui me permet de
lancer automatiquement ma macro et auquel je veux rajouter le lancement
le dernier jours du mois :
Private Sub Workbook_Open()
If Application.WorksheetFunction.Weekday(Now, 2) < 6 Then
Application.OnTime TimeValue("08:00:00"), "NewMC"
Else
End If
d'après les informations que tu donnes, j'agirais comme ceci : à l'ouverture du classeur, je teste si aujourd'hui est le dernier jour du mois (c-à-d si le jour du mois d'aujourd'hui + 1 est égal à 1). Si oui la macro se lance.
Private Sub Workbook_Open() If Day(Date + 1) = 1 Then NewMC end if end sub
Cela sous entend que tu lances ton fichier chaque matin.
cordialement
Il se trouve que a formulé :
Bonjour, Il ne reste plus qu'un jour ouvrable dans le mois de Septembre et je n'arrive toujours pas à trouver une solution pour lancer automatiquement une macros le dernier jour du mois. j'ai reçu des propositions mes aucunes ne s'adaptent à ce que je veux faire. est ce que quelqu'un peut me proposer un code clair et précis avec les arguments ...bref un code complet ? ci dessous le code qui me permet de lancer automatiquement ma macro et auquel je veux rajouter le lancement le dernier jours du mois : Private Sub Workbook_Open()
If Application.WorksheetFunction.Weekday(Now, 2) < 6 Then Application.OnTime TimeValue("08:00:00"), "NewMC" Else End If
