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
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
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
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 <aff...@belgacom.net> 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
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
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 -
On 10 sep, 13:01, JB <boisgont...@hotmail.com> 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 <aff...@belgacom.net> 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 -
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 -