letroubadour
XLDnaute Occasionnel
Bonsoir au forum
dans la macro suivante lorsque j'envoie mon courrier, s'affiche dans une colonne "courrier envoyé"
Je voudrais rajouter la date de l'envoie a la suivante de courrier envoyé dans la meme colonne
merci par avance
RAPHAEL
dans la macro suivante lorsque j'envoie mon courrier, s'affiche dans une colonne "courrier envoyé"
Je voudrais rajouter la date de l'envoie a la suivante de courrier envoyé dans la meme colonne
Code:
Sub Rectangleàcoinsarrondis2_Clic()
ActiveSheet.Unprotect "281"
Application.ScreenUpdating = 0: Application.EnableEvents = 0
NbLignes = Cells(Rows.Count, 7).End(xlUp).Row
For ligne = 3 To NbLignes
If Cells(ligne, 7) - Date <= Cells(2, 14) And Cells(ligne, 8) = "" And Cells(ligne, 9) = FAUX Then
export_données_dans_signet_word (ligne)
Cells(ligne, 8) = "courrier envoyé"
End If
Next ligne
Application.ScreenUpdating = -1: Application.EnableEvents = -1
ActiveSheet.Protect "281"
End Submerci par avance
RAPHAEL
Dernière édition: