Dim mois As Date(mois)

[Chasse]

Bonjour à tous,

Je souhaite avoir de l'aide sur un problème bien particulier

Que dois-je modifier dans ce code pour qu’il prenne seulement le mois en considération

Avec ce code le msgBox (« nouveau Mois ») s’affiche tous les jours je voudrais qu’il s’affiche seulement quand le mois est différant

Sub nouveauMois ()

Dim Mois1 As Date
Dim Mois2 As Date
    Date1 = Sheets(Worksheets.Count - 1).Range("I1")
    Date2 = Sheets(Worksheets.Count - 2).Range("I1")

     If Mois1 <> Mois2 Then
 MsgBox ("nouveau Mois")
Call enregisterSous

End If
End Sub

Salutations

 

[Pierrot93]

Re : Dim mois As Date(mois)

Bonjour,

euh... perso pas tout compris de ton problème et de ton code... attention, en l'état tes variables vont être consiérées comme des dates et non comme des mois... pour obtenir le mois à partir d'une variable date, utiliser la fonction "month" :

Dim d As Date
d = Date
MsgBox Month(d)

bon après midi
@+

 

[Chasse]

Re : Dim mois As Date(mois)

Salut Pierrot93

Je cherche a extraire le mois qui se trouve a l’avant dernière feuille Range("I1")
format date

Date1 = Sheets(Worksheets.Count - 1).Range("I1")

et l’avant avant dernière feuille Range("I1") format date

Date2 = Sheets(Worksheets.Count - 2).Range("I1")

de les comparer

If Mois1 <> Mois2 Then

et si ils sont différent de déclencher un MsgBox et le sub enregistrerSous

 MsgBox ("nouveau Mois")
Call enregisterSous

Cordialement

 

[Pierrot93]

Re : Dim mois As Date(mois)

Re,

essaye comme ceci, en supposant des dates dans les cellules en question :

Dim m1 As iteger
m1 = Month(Sheets(Worksheets.Count - 1).Range("I1"))

@+

 

[Chasse]

Re : Dim mois As Date(mois)

Re

Merci super ça fonctionne

Je joins le fichier cela peut intéresser quel qu’un

Public Sub AjouterJour()


Dim d As Date
    'Copie de l'avant dernier onglet
    Sheets(Worksheets.Count - 1).Copy After:=Sheets(Worksheets.Count - 1)
    With ActiveSheet
        d = .Range("I1").Value + 1
        'Si on ne veut pas des Samedis et Dimanche
        If Weekday(d, vbMonday) = 6 Then d = d + 2
        .Range("I1").Value = d
'         Si on ne veut pas des Dimanches
'         If Weekday(D, vbMonday) = 7 Then D = D + 1
          'MAJ date en A1
        
        'Nom de la Feuille
        .Name = Format(d, "DDDD d mmm YYYY")
    End With
    Dim m1 As String
    Dim m2 As String
        m1 = Month(Sheets(Worksheets.Count - 1).Range("I1"))
        m2 = Month(Sheets(Worksheets.Count - 2).Range("I1"))
   
    If m1 <> m2 Then
    MsgBox ("Attention nouveau mois")
'Call EnregistrerSous
 End If

End Sub

Je joins le fichier cela peut intéresser quel qu’un

Mont prochain fil serra enregistrer sous

Cordialement