Automatiser une action en VBA

Bonjour à tous,

j'essaye d'aider un de nos jeune collègue, pour ajouter automatiquement une somme de 125.00€ le 6 de chaque mois

Pour l'instant ça fonctionne, mais manuellement.

Quelqu'un peut nous aider a automatiser cette action?

Merci de votre attention et bonne journée.

Papy Pierrot

Ci-joins un petit fichier

Bonjour

J'ai trouvé cette solution en esperant que =aujourdhui() renvoie bien un format jj/mm/aaaa

En A1 j'ai mis le 06/06/2013

En B1j'ai mis =aujourdhui()

et en C1 125

Sub auto_open()
With Sheets(1)
If .Range("a1") = .Range("b1") Then
.Range("c1") = .Range("c1") + .Range("c1")
[a1] = [date(year(a1),month(a1)+1,Day(a1))]
Else
End If
End With
End Sub

Bonjour Lean

cette formule est parfaite, je vais l'adapter au programme de mon jeune ami

Un tout grand merci et très bonne journée à vous.

Papy Pierrot de Belgique.

Pareillement.