lorsque le courrier est imprimé via WORD, insérer date d'envoie

[letroubadour]

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

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 Sub

merci par avance

RAPHAEL

 

[Caillou]

Re : lorsque le courrier est imprimé via WORD, insérer date d'envoie

Bonjour,

Je voudrais rajouter la date de l'envoie a la suivante de courrier envoyé dans la meme colonne

Pas très clair cette phrase !

Sinon,
remplaces la ligne

Cells(ligne, 8) = "courrier envoyé"

par

Cells(ligne, 8) = "courrier envoyé le " & Date

Caillou