Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Executer une macro tous les mois

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Jw_
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

Jw_

Guest
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
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
 
Trier par date Trier par votes
Re : Executer une macro tous les mois

Bonsoir


Essaie de t'aider avec ceci:


Code: 
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
 
Vote positif 0 Vote négatif
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
Code: 
 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.
 
Vote positif 0 Vote négatif
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 ?
 
Vote positif 0 Vote négatif
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)
 
Vote positif 0 Vote négatif
Re : Executer une macro tous les mois

Re



Essayes avec ceci
Code: 
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
 
Vote positif 0 Vote négatif
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 ?
 
Vote positif 0 Vote négatif
Re : Executer une macro tous les mois

Re


Essaye cette modif
(ici la macro fonctionne sur la feuille 1 de ton classeur)
Code: 
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
 
Vote positif 0 Vote négatif
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 😉
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
532
sylvanu
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
302
sylvanu
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
839
TooFatBoy
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
509
sylvanu
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
782
thunder23
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
660
micie1509
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
771
MBEPID
M
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
962
Phil69970
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
620
JJ69
J
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
724
fanou06
F
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
780
arnoldbrice19
A
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
773
robpellan52
R
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
441
farid
F
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
719
Usine à gaz
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
858
M@xu3L
M
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
969
Compte Supprimé 979
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…