Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

matthieu2701 · 2 Octobre 2013

Bonjour,

J'ai une macro que génère l'envoi d'un mail. J'aimerais, que lorsque l'on clique sur le bouton qui est affecté à ma macro "Envoyer le mail", la date et l'heure d'envoi se note dans une cellule.

Merci par avance de votre aide.

xhudi69 · 2 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Bonjour matthieu2701, le Forum,

A la fin de ta macro......

Code:

Sheets("Feuil1").Range("A1").Value = Format(Now, "dddd dd mmmm yyyy / h:mm")

@+ 😎

matthieu2701 · 2 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Merci. Si plusieurs mails sont envoyés est ce qu'on peux faire affichier les autres dates et heures d'as la cellule d'en dessous.

Comme ça il reste un historique.

Édit : comment faire pour noter dans une cellule le nom de la personne qui a ouvert la session windows ?

Regueiro · 2 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Bonsoir

HTML:

Private Sub Worksheet_Activate()
[A1].Value = Application.UserName   '
[A2].Value = Environ("Username")
[A3] = Environ("Username")
Range("A4") = Environ("Username")
End Sub

Code à mettre dans une feuille ou lors de l'ouverture d'excel

A+

Regueiro · 2 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Re
ou ce code de J.Boisgontier
A la fermeture du Classeur

HTML:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   p = Application.Match(Environ("username"), Sheets("DernierUtilisateur").Range("A:A"), 0)
   If Not IsError(p) Then
     Sheets("DernierUtilisateur").Cells(p, 2) = Now ' l'utilisateur existe déjà
   Else
     p = Sheets("DernierUtilisateur").[A65000].End(xlUp).Row + 1
     Sheets("DernierUtilisateur").Cells(p, 1) = Environ("username")
     Sheets("DernierUtilisateur").Cells(p, 2) = Now
   End If
 End Sub

matthieu2701 · 3 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Regueiro à dit:
Bonsoir

HTML:

Private Sub Worksheet_Activate() [A1].Value = Application.UserName ' [A2].Value = Environ("Username") [A3] = Environ("Username") Range("A4") = Environ("Username") End Sub

Code à mettre dans une feuille ou lors de l'ouverture d'excel

A+

Je mets aussi ce code à la fin de ma macro ?

matthieu2701 · 3 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Je n'arrive pas affaire afficher le nom de la personne qui envoi le mail. Je veux qu'il s'affiche dans la cellule K19

Merci

Regueiro · 3 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Bonjour pourrais-tu mettre un fichier en PJ.

matthieu2701 à dit:
Je n'arrive pas affaire afficher le nom de la personne qui envoi le mail. Je veux qu'il s'affiche dans la cellule K19

Merci

Merci

matthieu2701 · 3 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Voilà Regueiro

matthieu2701 · 4 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

help please

Si... · 4 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

salut

sans avoir tout analysé, à la fin d'envoi, une possibilité de sauvegarde de données dans la feuille Copie (avec les cellules formatées comme il se doit)

Code:

Public Sub RoutineEnvoiMailLotus_LARO243()
....
'Envoie le mail
  LeMail.Send 0

'sauvegarde de données
   With Sheets("Copie")
    Dim C As Range
    Set C = .Cells(1, .Cells(Rows.Count, 1).End(xlUp).Row + 1)
    C = Now 'avec l'heure en colonne 1
    C(1, 2) = Nd 'ici le nom du destinataire en colonne 2
    C(1, 3) = Ob 'icil'objet en colonne 3
    'et ainsi de suite ...
  End With

'LIBERE LES OBJETS
  Call Fin_Notes_Envoi
  ActiveSheet.Shapes("MonBouton6").Visible = True
  Application.OnTime Now + TimeValue("00:00:02"), "EffacerMessage6"
  End If
...

matthieu2701 · 6 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Si... à dit:

salut

sans avoir tout analysé, à la fin d'envoi, une possibilité de sauvegarde de données dans la feuille Copie (avec les cellules formatées comme il se doit)

Code:

Public Sub RoutineEnvoiMailLotus_LARO243()
....
'Envoie le mail
  LeMail.Send 0

'sauvegarde de données
   With Sheets("Copie")
    Dim C As Range
    Set C = .Cells(1, .Cells(Rows.Count, 1).End(xlUp).Row + 1)
    C = Now 'avec l'heure en colonne 1
    C(1, 2) = Nd 'ici le nom du destinataire en colonne 2
    C(1, 3) = Ob 'icil'objet en colonne 3
    'et ainsi de suite ...
  End With

'LIBERE LES OBJETS
  Call Fin_Notes_Envoi
  ActiveSheet.Shapes("MonBouton6").Visible = True
  Application.OnTime Now + TimeValue("00:00:02"), "EffacerMessage6"
  End If
...

J'ai pas tout compris. Comment cela va récupérer le nom de la personne qui envoi le mail ?

matthieu2701 · 7 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

A l'aide Regueiro stp 😉

Regueiro · 7 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Bonjour à Tous, Matthieu2701
Lorsque que tu transmets un fichier en PJ.
Pourrais-tu avertir s'il y a un auto OPEN

HTML:

Private Sub Workbook_Open()
Dim a As String

'With Sheets("EchŽancier")
    'NNI = .Range("G14")
'End With

If Sheets("EchŽancier").Range("G14") = "" Then
a = InputBox("Merci de saisir votre NNI", "Saisie")
Sheets("EchŽancier").Range("G14") = a
ActiveWorkbook.Save
Else
Exit Sub
End If
End Sub

Voilà ce que ça donne chez moi et cela me plante Excel.

Je regarde ce soir.
A+

matthieu2701 · 7 Octobre 2013

Re : Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

Regueiro à dit:
Bonjour à Tous, Matthieu2701
Lorsque que tu transmets un fichier en PJ.
Pourrais-tu avertir s'il y a un auto OPEN

HTML:

Private Sub Workbook_Open() Dim a As String 'With Sheets("EchŽancier") 'NNI = .Range("G14") 'End With If Sheets("EchŽancier").Range("G14") = "" Then a = InputBox("Merci de saisir votre NNI", "Saisie") Sheets("EchŽancier").Range("G14") = a ActiveWorkbook.Save Else Exit Sub End If End Sub

Voilà ce que ça donne chez moi et cela me plante Excel.

Je regarde ce soir.
A+

Je sais pas pourquoi cela fait ça quand je le post.

Ok. J'attends ta réponse alors.

Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

matthieu2701

XLDnaute Occasionnel

xhudi69

XLDnaute Accro

matthieu2701

XLDnaute Occasionnel

Regueiro

XLDnaute Impliqué

Regueiro

XLDnaute Impliqué

matthieu2701

XLDnaute Occasionnel

matthieu2701

XLDnaute Occasionnel

Regueiro

XLDnaute Impliqué

matthieu2701

XLDnaute Occasionnel

Pièces jointes

matthieu2701

XLDnaute Occasionnel

Si...

XLDnaute Barbatruc

matthieu2701

XLDnaute Occasionnel

matthieu2701

XLDnaute Occasionnel

Regueiro

XLDnaute Impliqué

matthieu2701

XLDnaute Occasionnel

Discussions similaires

Noter, dans une cellule, l'heure et la date de l'éxécution d'une macro

XLDnaute Occasionnel

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency