Fonction d'incrémentation

Bonsoir Xion, le forum,

pour ce qui est du comptage tu peux te servir d'une cellule pour conserver le nombre

donc tu declare une variable puis l'incrémente à chaque envoi de mail

pour ce qui est des date il faudrait que tu sois plus precis .

exemple

dans ta procedure tu ecris

dim compteur as integer

compteur = sheets(1).range('A1').value

et avant de sortir de ta procedure d'envoi de mail tu dis

compteur = compteur + 1
sheets(1).range('A1').value = compteur
end sub

bon le code est moyen mais ca marche.
pour ce qui est des date si tu les compte par jour
exemple
feuil 1 colonne A serait les date puis B le nombre depuis la ligne 2

est là tu fait le même en disant
dim compteur as integer
dim ligne as integer
ligne = sheets(1).range('A600').end(xlup).row
if sheets(1).range('A' & ligne).value <> format (now, 'ddmmyyy') then ligne = ligne + 1
compteur = sheets(1).range('B' & ligne).value


et à la fin

compteur = compteur + 1
sheets(1).range('B' & ligne).value = compteur
sheets(1).range('A' & ligne).value = format (now, 'ddmmyyy')
end sub

Bon je n'ai pas testé alors dis moi quoi