Fonction d'incrémentation

[Xion]

Bonjour a tous,

je suis débutant mais j'ai réussi a faire une macro qui envoil des mails, elle fonctionne et j'aurai besoin d'aide pour créer une fonction de comptage d'envoi de chaque mail par mois. Je bloque completement et les dates a prendre en compte ne me facilitent pas la tache, ca doit pas être trop dur mais je ne me rends pas trop compte, après tout je ne sais meme pas si c'est faisable. Si quelqu'un a une idée a me soumettre elle est bienvenue.

Par avance merci beaucoup, car je ne vois pas trop quoi faire.

Si ca peut aider, voici la ligne de code qui envoi mon mail et ma pièce jointe.

chemin_demande_rma = chemin_rma & répertoire_frn & '\\'
ActiveWorkbook.SaveAs Filename:=chemin_demande_rma &
num_rma & '.xls', _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show

merci a tous

 

[ThomasR]

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