Executer une macro tous les mois

[Jw_]

Bonsoir .

Ca m'embette un peu de poser cette question, car ce problème a surement été soulevé ici, mais je n'ai rien trouvé.

J'aimerais executer une macro tous les mois.
J ai essayé la commande If Day(Now) = x trouvée sur le net.

Sur le VB lorsque je démarre la macro (F5), elle fonctionne.. mais rien ne se fait au démarrage du fichier excel.


Voici le code

Private Sub Workbook_Open()
    [COLOR="Sienna"]If Day(Now) = 3[/COLOR] [COLOR="RoyalBlue"]Then[/COLOR]

[COLOR="SeaGreen"]'Procédure de ma macro'[/COLOR]
     Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A4:K4").Copy
    Range("A3").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

End If
End Sub

Merci pour votre attention.
Julien

 

[vbacrumble]

Re : Executer une macro tous les mois

Bonsoir


Essaie de t'aider avec ceci:

Sub premierjourdumois()
Select Case Day(Date)
Case 1
MsgBox "Premier jour du mois de : " & StrConv(MonthName(Month(Date)), vbProperCase)
Case Else
MsgBox "Le " & Date & " est le :" & Chr(10) & _
Day(Date) & " ème jour du mois de " & _
StrConv(MonthName(Month(Date)), vbProperCase)
End Select
End Sub

 

[Jw_]

Re : Executer une macro tous les mois

Bonsoir, merci pour ton intervention instantanée.

J'ai regardé ta macro, mais je n'ai pas vraiment compris comment elle pourrait m'aider.

Je n'ai peut-être pas été assez clair. Je voudrais que ma macro

 Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A4:K4").Copy
    Range("A3").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

Qui n'est qu'une insertion de ligne, soit exécutée tous les mois.

 

[vbacrumble]

Re : Executer une macro tous les mois

RE



Dans ce cas , je ne peux plus rien pour toi (lol)

Cette macro est juste un exemple
qui dit si aujourd'hui est ou n'est pas le 1er jour du mois en cours


Tu ne vois pas ou je veux en venir ?

 

[Jw_]

Re : Executer une macro tous les mois

Ah d'accord.

Donc si aujourd'hui est le 1er jour, la macro se lance.

Mais je sais pas comment l'associer à mon autre macro (création d'une ligne)

 

[vbacrumble]

Re : Executer une macro tous les mois

Re



Essayes avec ceci

Private Sub Workbook_Open()
Dim a
Select Case Day(Date)
Case 1
a = [A4:K4].Value: [A3].EntireRow.Insert: [A3:K3] = a
Case Else
'
End Select
End Sub

 

[Jw_]

Re : Executer une macro tous les mois

J ai essayé .

C'est ce que je cherchais merci! .

Cependant il y a un autre problème... lorsque j'ouvre mon fichier excel, après avoir changé la date de windows (1er du mois) , rien ne se passe.

Hors sur le VB quand je démarre la macro, elle fonctionne correctement, la ligne s'insère uniquement le 1er du mois..

Il y a quelque chose à parametrer pour que le WORKBOOK_OPEN fonctionne ?

 

[vbacrumble]

Re : Executer une macro tous les mois

Re


Essaye cette modif
(ici la macro fonctionne sur la feuille 1 de ton classeur)

Private Sub Workbook_Open()
Dim a, s as Worksheet
set s=Worksheets(1)
Select Case Day(Date)
Case 1
a = s.[A4:K4].Value: s.[A3].EntireRow.Insert: s.[A3:K3] = a
Case Else
'
End Select
End Sub

 

[Jw_]

Re : Executer une macro tous les mois

Bonsoir vbacrumble.

J ai essayé ta macro, elle fonctionne, aussi bien que l'autre, cependant je ne comprends pas pourquoi lorsque j'ouvre mon fichier excel le 1er du mois, la macro ne se déclanche pas d'elle même..

Ou alors aurais-je mal compris le principe ?


EDIT : ... En faait il fallait mettre la commande dans le WorkBook.


Merci beaucoup pour ton aide et ta patience 😉