dernière modification de fichier

[Darnel]

Bonjour à tous

j'ai un fichier mis sur réseau et utilisé par plusieurs personnes dont le matricule est visible quelque part dans excel (exemple, quand je fait une macro via enregistreur, mon matricule apparait automatiquement en commentaire au début de la macro genre : macro enregistrée le 01/01/2001 par XXXX)

Je voudrai savoir comment le récupérer par formule svp ou macro,
pour que je puisse savoir qui enregistre quoi sur le fichier ( et aussi detecter les erreurs d'enregistrement pour ré expliquer aux gens comment ça marche.)

Merci d'avance.

 

[Luki]

Re : dernière modification de fichier

salut darnel,

Pas mal de fils concernant les suivis de modifications

https://www.excel-downloads.com/threads/suivre-les-modifications-dune-cellule.66035/


Vois si c'est que tu cherches.

A+

 

[Darnel]

Re : dernière modification de fichier

Bonjour


Merci, c'est intéressant, je note en particulier l'enregsitrement de la date.
Par contre, mon problème reste entier au niveau de l'utilisateur qui procède à l'enregistrement.

Si quelqu'un connait une formule à rentrer sur la feuille qui permette, un peu comme la fonction aujourdhui pour la date, de dire qui est l'utilisateur? genre :

=UTILISATEUR()

 

[PascalXLD]

Re : dernière modification de fichier

Re

en macro tu as par exemple

toto=environ("UserName")

Qui te donne le nom de connexion au réseau de la personne

 

[Luki]

Re : dernière modification de fichier

Re Darnel, Bonjour Pascal

Darnel, as-tu suivi le fil que propose Dan ?, il s'agit d'utiliser l'outil d'xl: Outils/suivi des modifications

A bientôt

 

[Darnel]

Re : dernière modification de fichier

re

Oui Lucky, j'ai essayer, mais, à moins de ne savoir correctement l'utiliser, je n'obtien pas ce que je veux.

En fait, le truc, c'est que mon fichier sert à saisir des fiches d'informations sur des contrats.
Chaque contrat est saisi puis enregistrer sur une base de données.
De la bdd, on peu selectionner un contrat et visionner la fiche.

Pour la date de création, j'ai un cellule dont la valeur est =AUJOURDHUI()
Pour la modif, c'est idem dans une autre cellule.
La date de saisie, une fois la fiche enregistrées n'est plus modifiée et est copiée/collée à chaque fois que l'on consulte une fiche.
Pour la date de modif, à chaque modification, elle est écrasée puis stockée jusqu'a la prochaine modif.
Il n'y a pas besoin d'archivage ni d'historique.

Je souhaite faire exactement la même chose avec les utilisateurs.
et pour l'instant je n'ai pas trouvé ni sur les archives du forum, ni par le biai du fil que tu m'a commuiqué.

Merci quand même.

Je continu à chercher.
😉

 

[Darnel]

Re : dernière modification de fichier

re


après avoir chercher, j'ai trouver un truc qui me va presque :

Sub test()

Range("A5").Value = Application.UserName
' Touche de raccourci du clavier: Ctrl+a
 
End Sub

mais comme vous pouvez le voir, il faut faire Ctrl+a, car je ne sais pas trop comment faire pour l'automatiser...

Je pens qu'il faut que j'aille sur la feuille pour mettre une private sub, mais comme je ne l'ai jamais fait...
je ne sais pas comment nommer la macro exactement...

 

[Gexk5]

Re : dernière modification de fichier

Bonjour le forum, darnel, les gens
Voici une macro que j'utilise pour savoir qui a modifié un fichier
Regarde si ca te convient

@micalement

'Affichage de la date, heure,nom,utilisateur de derniere sauvegarde
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Ta feuille")
.Range("AW2").Value = "Dernière Sauvegarde le " & Format(Date, "dd/mm/yy")
.Range("AW3").Value = "par " & Application.UserName
.Range("AW4").Value = "à : " & Time
.Range("AW5").Value = "L'utilisateur de la machine était " & Environ("USERNAME")
.Range("AW6").Value = "La machine se nommait " & Environ("COMPUTERNAME")
End With
End Sub

 

[PascalXLD]

Re : dernière modification de fichier

RE

Dis darnl tu n'avais pas vu mon environ("Username") Plus haut. Je pense que c'est plus judicieux que l'application.username

 

[Darnel]

Re : dernière modification de fichier

re


😱 😱 😱 😱

Euh désolé Pascal, je n'avais pas vu.

J'ai finalement réussi par obtenir ce que je voulais, mais je vais essayer avec ça voir ce que cela donne

Pour ce qui est de l'essai, je verrai ça demain, parceque là, j'ai plus les yeux en face des trou ...

Merci à vous trois

bonne soirée