Mettre une ligne sous excel automatiquement
Résolu
Jiben59
Messages postés
127
Statut
Membre
-
Jiben59 Messages postés 127 Statut Membre -
Jiben59 Messages postés 127 Statut Membre -
Bonjour,
Je souhaiterai que chaque jour le "5" de chaque mois s'affiche ma ligne de mon emprunt mais ceci dès que j'ouvre le fichier Excel 2007.
Je veux faire ce là pour éviter d'oublier de l'actualiser dans mon compte.
Je vous remercie de vos réponse d'avance,
Cordialement.
<img src="http://d29.e-loader.net/X3qEIPRUEN.jpg" alt="E-Loader.net"/>
Je souhaiterai que chaque jour le "5" de chaque mois s'affiche ma ligne de mon emprunt mais ceci dès que j'ouvre le fichier Excel 2007.
Je veux faire ce là pour éviter d'oublier de l'actualiser dans mon compte.
Je vous remercie de vos réponse d'avance,
Cordialement.
<img src="http://d29.e-loader.net/X3qEIPRUEN.jpg" alt="E-Loader.net"/>
1 réponse
-
Bonjour
Il te suffit de placer une macro qui cherche la date dans
This Workbook
Private Sub Workbook_Open()
Ton code
End sub
Cordialement-
-
-
-
-
Je ne sais pas comment recevoir ce fichier et rien que moi.
A part avec mon mail perso que je n'ai pas envie de donner sur ce forum.
Avez vous essayé une tache planifié comme je vous le suggérais plus haut ?
Une tache planifié tous les 5 du mois et vous placer le code ci dessous
dans visual basic - This WorbookPrivate Sub Workbook_Open() Dim maDate As Byte Dim monMotif As String maDate = "5" If Day(Date) = maDate Then Sheets("Feuil1").Activate '' à adapter avec le non de votre feuille et la bonne colonne For lig = 2 To Range("a65536").End(xlUp).Row ' à adapter la bonne colonne If Sheets("Feuil1").Cells(lig, 1).Value = Date Then ' à adapter la bonne colonne monMotif = Sheets("Feuil1").Cells(lig, 2).Value ' à adapter la bonne colonne lemontant = Sheets("Feuil1").Cells(lig, 3).Value ' à adapter la bonne colonne MsgBox "Attention, aujourd 'hui " & " " & Date & " " & monMotif & " " & lemontant, vbCritical Sheets("Feuil1").Cells(lig, 1).Activate '' à adapter avec le non de votre feuille et la bonne colonne Exit For End If Next lig End If End Sub
Il s'excutera grace à la tache planifié tous les 5 du mois et automatiquement vous aurez un message d'avertissement.
-