Mettre une ligne sous excel automatiquement

Résolu
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"/>

1 réponse

  1. G_33
     
    Bonjour
    Il te suffit de placer une macro qui cherche la date dans
    This Workbook

    Private Sub Workbook_Open()

    Ton code

    End sub

    Cordialement
    -1
    1. Jiben59 Messages postés 127 Statut Membre 1
       
      Bonjour,

      merci de votre réponse mais par contre je n'ai jamais utilisé un macro donc pourriez vous m'aidez si vous plaît ?

      Je vous remercie de m'avoir répondu,
      cordialement.
      0
    2. G_33
       
      Au lieu d'une image postez un fichier que je puisse adapter ça.
      Par contre s'il y a des données confidentielles vous les remplacez par d'autres caractères
      0
    3. G_33
       
      Il me vient une idée beaucoup plus simple
      Créer une tache planifiée sur votre ordinateur
      allez voir ce lien
      http://forums.cnetfrance.fr/topic/157584-creer-une-tache-planifiee-dans-windows-7-ou-vista/
      0
    4. Jiben59 Messages postés 127 Statut Membre 1
       
      Comment je peux vous envoyer le fichier simplement à vous ?

      Car pour information j'ai mon tableau amortissement d'emprunt dans une autre feuille du même document avec la somme que je paie chaque mois.

      Merci pour vos réponse, cordialement.
      0
    5. G_33
       
      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 Worbook
      Private 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.
      0