ou (bissextile!!) A1 $ février 1940 '(anniversaire Guy Perillat Skieur) B1 ÚTE(ANNEE(A1);MOIS(A1)+1;0 29/02/1940
@+
-----Message d'origine----- Bonjour,
Je cherche à récupérer la date du fin de mois en VBA. J'essaye d'utiliser la commande Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas.
Quelqu'un aurait-il une solution ?
Merci Sylvain .
D.Lair
Bonjour à tous. La réponse a déjà été donnée pendant que je testais ceci : Sub RechDernJourMois() Dim AUJ, AUTM, FINM As Date, MM, AA As Integer AUJ = Now() MM = Month(AUJ) If MM < 12 Then AA = Year(AUJ) Else AA = Year(AUJ) + 1 End If AUTM = CVDate("1/" & MM + 1 & "/" & AA) FINM = AUTM - 1 MsgBox "Dernier jour du mois en cours : " & FINM End Sub Amicalement. DL
-----Message d'origine----- Bonjour,
Je cherche à récupérer la date du fin de mois en VBA. J'essaye d'utiliser la commande Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas.
Quelqu'un aurait-il une solution ?
Merci Sylvain .
Bonjour à tous.
La réponse a déjà été donnée pendant que je testais ceci :
Sub RechDernJourMois()
Dim AUJ, AUTM, FINM As Date, MM, AA As Integer
AUJ = Now()
MM = Month(AUJ)
If MM < 12 Then
AA = Year(AUJ)
Else
AA = Year(AUJ) + 1
End If
AUTM = CVDate("1/" & MM + 1 & "/" & AA)
FINM = AUTM - 1
MsgBox "Dernier jour du mois en cours : " & FINM
End Sub
Amicalement. DL
-----Message d'origine-----
Bonjour,
Je cherche à récupérer la date du fin de mois en VBA.
J'essaye d'utiliser la commande
Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires
d'analyse ne fonctionne pas.
Bonjour à tous. La réponse a déjà été donnée pendant que je testais ceci : Sub RechDernJourMois() Dim AUJ, AUTM, FINM As Date, MM, AA As Integer AUJ = Now() MM = Month(AUJ) If MM < 12 Then AA = Year(AUJ) Else AA = Year(AUJ) + 1 End If AUTM = CVDate("1/" & MM + 1 & "/" & AA) FINM = AUTM - 1 MsgBox "Dernier jour du mois en cours : " & FINM End Sub Amicalement. DL
-----Message d'origine----- Bonjour,
Je cherche à récupérer la date du fin de mois en VBA. J'essaye d'utiliser la commande Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas.
Quelqu'un aurait-il une solution ?
Merci Sylvain .
Sylvain
Merci à tous pour vos réponses
Cordialement, Sylvain
-----Message d'origine----- Bonjour Sylvain Voici une façon de procéder : Ladate = CDate(ActiveCell.Value) JourFinDeMois = Day(DateAdd("d", DateAdd("m", 1, DateSerial(Year(Ladate),
Je cherche à récupérer la date du fin de mois en VBA. J'essaye d'utiliser la commande Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas.
Quelqu'un aurait-il une solution ?
Merci Sylvain
.
AV
Telle que, une partie de ta question est formulée, il pourrait s'agir de la fonction de feuille de calcul FIN.MOIS, disponible avec l'utilitaire d'analyse
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas....
Si, si.. sous réserve de les passer par la méthode Evaluate, d'utiliser la virgule comme séparateur d'argument et de causer en anglais : Avec une date en A1, ça pourrait faire simplement : MsgBox [eomonth(A1,6)] ou bien MsgBox Format([eomonth(A1,6)], "dd/mm/yyyy")
AV
"Sylvain" a écrit dans le message news: c77801c438e0$e46f36a0$ Bonjour,
Je cherche à récupérer la date du fin de mois en VBA. J'essaye d'utiliser la commande Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas.
Quelqu'un aurait-il une solution ?
Merci Sylvain
Telle que, une partie de ta question est formulée, il pourrait s'agir de la
fonction de feuille de calcul FIN.MOIS, disponible avec l'utilitaire d'analyse
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne
pas....
Si, si.. sous réserve de les passer par la méthode Evaluate, d'utiliser la
virgule comme séparateur d'argument et de causer en anglais :
Avec une date en A1, ça pourrait faire simplement :
MsgBox [eomonth(A1,6)]
ou bien
MsgBox Format([eomonth(A1,6)], "dd/mm/yyyy")
AV
"Sylvain" <Sylvain@discussions.microsoft.com> a écrit dans le message news:
c77801c438e0$e46f36a0$a601280a@phx.gbl...
Bonjour,
Je cherche à récupérer la date du fin de mois en VBA.
J'essaye d'utiliser la commande
Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires
d'analyse ne fonctionne pas.
Telle que, une partie de ta question est formulée, il pourrait s'agir de la fonction de feuille de calcul FIN.MOIS, disponible avec l'utilitaire d'analyse
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas....
Si, si.. sous réserve de les passer par la méthode Evaluate, d'utiliser la virgule comme séparateur d'argument et de causer en anglais : Avec une date en A1, ça pourrait faire simplement : MsgBox [eomonth(A1,6)] ou bien MsgBox Format([eomonth(A1,6)], "dd/mm/yyyy")
AV
"Sylvain" a écrit dans le message news: c77801c438e0$e46f36a0$ Bonjour,
Je cherche à récupérer la date du fin de mois en VBA. J'essaye d'utiliser la commande Application.WorksheetFunction.Fin.Mois(x,y)en vain.
A priori en VBA, les fonctions Excel de l'utiltaires d'analyse ne fonctionne pas.
