historique des dates de mises à jour

Le
freedo
Bonjour à Toutes et à Tous,
j'ai récupéré ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Select 'A1 étant la cellule où le texte s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " & Format(Date,"dd/mm/
yyyy")
End Sub
JPS
1°) et j'aimerais adapter cette macro pour réaliser un historique des
mises à jour c'est à dire que par exemple :
dans la feuille historique j'aurais en a1, a2, a3, .toutes les
mises à jour qui auront été faite
en considérant que la colonne A ne sert qu'à çà.
2°) le même traitement mais en ayant les mises à jour en A1, B1,
B3, .
Merci de complèter cette macro,
Freedo
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4751431
Bonjour,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = _
"Dernière Maj " & Format(Now, "dd/mm/yy hh:mm:ss")
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) =
Environ("username")
End Sub

JB
http://boisgontierjacques.free.fr

On 10 sep, 12:42, freedo
Bonjour à Toutes et à Tous,
j'ai récupéré ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Select 'A1 étant la cellule où le texte s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " & Format(Date,"dd/mm/
yyyy")
End Sub
JPS
1°) et j'aimerais adapter cette macro pour réaliser un historique des
mises à jour c'est à dire que par exemple :
dans la feuille historique j'aurais en a1, a2, a3, ....toutes les
mises à jour qui auront été faite
en considérant que la colonne A ne sert qu'à çà.
2°) le même traitement mais en ayant les mises à jour en A1, B1,
B3, ....
Merci de complèter cette macro,
Freedo


JB
Le #4751421
Il est préférable de le mettre avant sauvegarde:

http://boisgontierjacques.free.fr/pages_site/evenements.htm#Mémorisationu tilisateur

JB

On 10 sep, 13:01, JB
Bonjour,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = _
"Dernière Maj " & Format(Now, "dd/mm/yy hh:mm:ss")
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) =
Environ("username")
End Sub

JBhttp://boisgontierjacques.free.fr

On 10 sep, 12:42, freedo


Bonjour à Toutes et à Tous,
j'ai récupéré ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Select 'A1 étant la cellule où le texte s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " & Format(Date,"dd/m m/
yyyy")
End Sub
JPS
1°) et j'aimerais adapter cette macro pour réaliser un historique d es
mises à jour c'est à dire que par exemple :
dans la feuille historique j'aurais en a1, a2, a3, ....toutes les
mises à jour qui auront été faite
en considérant que la colonne A ne sert qu'à çà.
2°) le même traitement mais en ayant les mises à jour en A1, B1,
B3, ....
Merci de complèter cette macro,
Freedo- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme