Macro qui lance une macro après chaque fin de mois...

phlaurent55

Nous a quittés en 2020

Repose en paix

• 12 Janvier 2016

• #2

Re : Macro qui lance une macro après chaque fin de mois...

Bonjour Christian

avec ce code ( à condition d'ouvrir le fichier le 1er du mois)

Code:

Private Sub Workbook_Open()
If Day(Now) = 1 Then
    Select Case Month(Now)
        Case 1
            MoisDéc
        Case 2
            MoisJanv
        Case 3
            MoisFévr
        Case 4
            MoisMars
        Case 5
            MoisAvr
        ' la suite pour les autres mois suivant la même logique
        
    End Select
End If
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2016

• #3

Re : Macro qui lance une macro après chaque fin de mois...

Bonjour Christian, Philippe,

Si les macros sont bien dans un module standard :

Code:

If Day(Date) = 1 Then Application.Run "Mois" & Format(Date - 1, "mmm")

Sinon il faudrait préciser le nom du module.

A+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Janvier 2016

• #4

Re : Macro qui lance une macro après chaque fin de mois...

Re, le forum, Philippe, job75,

Merci pour votre aide.

Oui, job75, les macros sont dans un module standard : module6

Bien à vous,
Christian

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2016

• #5

Re : Macro qui lance une macro après chaque fin de mois...

Re,

Remarques :

- mon code fonctionne aussi tel quel sur Word

- sur Excel on peut supprimer "Application." mais pas sur Word.

A+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Janvier 2016

• #6

Re : Macro qui lance une macro après chaque fin de mois...

Re,

ce qui donne dans ThisWorkbook;

Private Sub Workbook_Open()
If Day(Date) = 1 Then Run "Mois" & Format(Date - 1, "mmm")
End If
End Sub


c'est ça..?

Merci pour votre aide.
Christian

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2016

• #7

Re : Macro qui lance une macro après chaque fin de mois...

Re,

Ben si tu mets tout mon code sur une même ligne le End If provoquera une erreur de compilation.

Tu devrais savoir ça, sinon il est temps de l'apprendre...

A+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Janvier 2016

• #8

Re : Macro qui lance une macro après chaque fin de mois...

Re,

Ben non je ne sais pas, c'est pour ça que je te demande...lol
alors pour apprendre peux-tu me dire comment il faut rédiger ce code.?

Merci, job75, pour ton aide....et ta patience...lol

Bien à toi.
Christian

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2016

• #9

Re : Macro qui lance une macro après chaque fin de mois...

Re,

Mal dormi cette nuit ?

Code:

Private Sub Workbook_Open()
If Day(Date) = 1 Then Run "Mois" & Format(Date - 1, "mmm")
End Sub

Maintenant si l'on n'ouvre pas le fichier le 1er du mois mais l'un des jours suivants :

Code:

Private Sub Workbook_Open()
If CStr([Mois]) <> Month(Date) Then
  Run "Mois" & Format(Date - Day(Date), "mmm")
  Me.Names.Add "Mois", Month(Date) 'nom défini
  Me.Save 'enregistrement (facultatif)
End If
End Sub

Le nom défini Mois permet de n'exécuter la macro qu'une fois dans le mois.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Janvier 2016

• #10

Re : Macro qui lance une macro après chaque fin de mois...

Re,

A savoir aussi, le nom défini peut être masqué :

Code:

Me.Names.Add "Mois", Month(Date), Visible:=False 'nom défini masqué

A+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Janvier 2016

• #11

Re : Macro qui lance une macro après chaque fin de mois...

Re,

Merci infiniment, job75, pour tout...deuxième code, sur ton post9, vachement bien.

Bien à toi,
Encore merci
Christian

 

Vote positif 0 Vote négatif