|
|
|
|
Bonjour à tous,
Je lutte sur une formule dans l'un de mes codes et je sollicite donc vos connaissances. Dans une boucle VBA je veux faire apparaître dans une cellule le nom du mois dernier + celui de l'année en cours (exemple : Février 2007). J'ai commencé par ne m'intéresser qu'au mois et je suis déjà bloqué :(
Voilà ce que je ne veux pas :
Cells(1, 1).Formula = "=Text(""1/"" & Month(Today())-1, ""mmmm"")"
Cette formule me met bien Février dans A1 mais sous forme de formule et non sous forme de valeur. J'ai donc tenté ceci:
Cells(1, 1).Value = Application.WorksheetFunction.Text("1/" & Month(Now()) - 1, "mmmm")
J'ai désormais bien une valeur fixe dans A1, mais Excel me retourne Janvier et non pas Février du fait de son mode de codage des dates...
Bref avant que je devienne dingue par pitié aidez-moi :)
D'avance merci!
Configuration: Windows XP Internet Explorer 6.0
Répondre à rasta67
|
Bonjour,
Sub ChercheMois()
Dim LaDate As Date, Lannee As Long
Dim LeMois As Variant, LeJour As Variant
LaDate = Date
Lannee = Year(LaDate)
LeMois = Month(LaDate)
LeJour = Day(LaDate)
LeMois = MonthName(Month(LaDate))
LeJour = WeekdayName(Weekday(LaDate))
MsgBox LeMois & vbCrLf & LeJour
End Sub
'
Lupin |
Datedif format heure excel Diagramme de gantt excel 2003 Excel 2007 comment lancer vba Excel 2007 regression polynomiale Excel afficher date sans les années Excel depuis vb 6 Excel vba format date Excel vba recopie date Excel vba récupérer date dans tableau Exel date semaine dynamique Ferme tout dossier excel par macro Importer des documents excel sur stata Multi courbes excel vba Range excel vba Vba excel boucle impression Vba excel ecrire dans une cellule Vba excel erreur automation Vba excel impression zone defini
