Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel historique des dates de mises à jour

historique des dates de mises à jour

2 réponses
Avatar
freedo
Bonjour =E0 Toutes et =E0 Tous,
j'ai r=E9cup=E9r=E9 ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Select 'A1 =E9tant la cellule o=F9 le texte s'inscrit.
ActiveCell.Value =3D "Derni=E8re mise =E0 jour le " & Format(Date,"dd/mm/
yyyy")
End Sub
JPS
1=B0) et j'aimerais adapter cette macro pour r=E9aliser un historique des
mises =E0 jour c'est =E0 dire que par exemple :
dans la feuille historique j'aurais en a1, a2, a3, ....toutes les
mises =E0 jour qui auront =E9t=E9 faite
en consid=E9rant que la colonne A ne sert qu'=E0 =E7=E0.
2=B0) le m=EAme traitement mais en ayant les mises =E0 jour en A1, B1,
B3, ....
Merci de compl=E8ter cette macro,
Freedo
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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

JB
http://boisgontierjacques.free.fr

On 10 sep, 12:42, freedo wrote:
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


Avatar
JB
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 wrote:
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 wrote:



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 -