Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Afficher date d'actualisation

Afficher date d'actualisation

3 réponses
Avatar
Louchadiere
Bonjour,
J'ai un classeur partagé qui comporte 2 parties, une est renseignée par moi
même sur sur un poste, l'autre partie est enrichie par un collegé sur un
autre poste en rézeau. Peut on insérer automatiquement la date de
modification de chaque partie.

merci de votre aide.
Signaler un problème avec ce contenu

3 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
Ardus Petus
Supprime (temporairement) le partage.
Colle le code suivant dans le code de ThisWorkbook
(en adaptant les noms d'utilisateurs)
Ré-active le partage

Et voilà!

Cordialement,
--
AP

Code:
'------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim destrng As Range
Select Case Application.UserName
Case "Louchadiere"
Set destrng = Me.Worksheets("Feuil1").Range("B1")
Case "Toto"
Set destrng = Me.Worksheets("Feuil1").Range("B2")
Case Else
Set destrng = Me.Worksheets("Feuil1").Range("B3")
End Select
destrng.Value = Now
End Sub
'----------------------------------------------

"Louchadiere" a écrit dans le
message de news:
Bonjour,
J'ai un classeur partagé qui comporte 2 parties, une est renseignée par
moi

même sur sur un poste, l'autre partie est enrichie par un collegé sur un
autre poste en rézeau. Peut on insérer automatiquement la date de
modification de chaque partie.

merci de votre aide.


Avatar
Louchadiere
Merci Ardus Petus
J'essaierai mardi.



Supprime (temporairement) le partage.
Colle le code suivant dans le code de ThisWorkbook
(en adaptant les noms d'utilisateurs)
Ré-active le partage

Et voilà!

Cordialement,
--
AP

Code:
'------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim destrng As Range
Select Case Application.UserName
Case "Louchadiere"
Set destrng = Me.Worksheets("Feuil1").Range("B1")
Case "Toto"
Set destrng = Me.Worksheets("Feuil1").Range("B2")
Case Else
Set destrng = Me.Worksheets("Feuil1").Range("B3")
End Select
destrng.Value = Now
End Sub
'----------------------------------------------

"Louchadiere" a écrit dans le
message de news:
Bonjour,
J'ai un classeur partagé qui comporte 2 parties, une est renseignée par
moi

même sur sur un poste, l'autre partie est enrichie par un collegé sur un
autre poste en rézeau. Peut on insérer automatiquement la date de
modification de chaque partie.

merci de votre aide.







Avatar
JB
Bonjour,


Voir : http://cjoint.com/?equZT7OBLy

-Ecrit la date et l'heure de la dernière utilisation de chaque
utilisateur sur une feuille nommée DernierUtilisateur:
-Environ("username") donne le nom d'utilisateur réseau.
-Si l'utilisateur n'existe pas, il est ajouté à la liste

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

Cordialement JB