Afficher la date de la derniere modification

-3

Bonjour,

je n'arrive a trouver la solution pour afficher la date de la dernière modification d'un doc excel 2019 (dans la cellule B1).

Merci, cordialement.

    GREG Posté le 7 avril 2020, 09:40
    par GREG
    Répondre
    0

    Voici ce que j'ai trouvé sur le net :

    Comme tu le constateras, il n'existe pas de fonction pour faire apparaître ce que tu demandes mais on peut le faire soit manuellement soit par VBA.

    C'est très bien expliqué dans l'article ci-joint et le VBA est simple.

    A+

    Chris

    Article :

    Pour insérer l’heure de la dernière modification, sachez qu’Excel ne propose pas cette fonctionnalité. Vous devez passer par l’éditeur Visual Basic.

    Ouvrir votre fichier et suivre les différentes étapes :

    1. Cliquer sur ALT + F11 pour ouvrir Microsoft Visual Basic pour applications
    2. Cliquer sur “Insertion”
    3. Sélectionner “Module”
    4. Coller le code suivant :Public Function ModDate()
      ModDate = Format(FileDateTime(ThisWorkbook.FullName), “m/d/yy h:n ampm”)
      End Function
    5. Pour enregistrer votre module, votre fichier doit être préalablement enregistré sous *.xlsm (classeur Excel prenant en charge les macros)
    6. Retourner sur votre feuille excel et coller le code suivant dans la cellule qui affichera l’heure de la dernière modification :=ModDate()

    Ici, le code a été collé dans la cellule A2.

    Si votre fichier Excel n’est pas préalablement enregistré au format *.xlsm, vous aurez un message vous demandant de sélectionner un type de fichier prenant en charge les macros.

    Note : L’heure de dernière modification affichée est au niveau de l’ensemble du fichier et non au niveau de la ligne. En plus, lorsque vous enregistrez une modification, elle ne se met pas à jour automatiquement. Vous devez fermer votre fichier et le rouvrir pour avoir la dernière modification.


    CHRIS Posté le 8 avril 2020, 02:17
    par CHRIS
    -2

    Bonjour,

    j'avais vu cet article mais ça ne fonctionne, j'ai vérifié le format de cellule mais il y a un problème  ... ne connaissant rien au VBA c'est compliqué.

    Merci, cordialement.

    GREG Posté le 8 avril 2020, 09:13
    par GREG
    -1

    Bonjour,

    Effectivement cela ne fonctionne pas.  J'ai complété mes recherches et, après être tombé sur un site où il y avait encore un petit bug, j'ai finalement fait ma propre Public function

    Suis le même cheminement et introduit par copier / coller le petit VBA suivant dans un module :

    Public Function ModDate()

    ModDate = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date") & " à " & Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short time")

    End Function

    Après il te suffit de choisir la cellule dans laquelle tu veux mettre les renseignements et d'encoder :

    =ModDate

    Et tu auras le résultat désiré

    Je te joins un exemple en annexe et j'ai choisi A1

    Si cela ne va pas reviens moi

    A+

    Chris

    Ps : une Public function est une Fonction (comme celle existante dans Excel) que tu crées toi même.  Elle doit être inttiulée Public Function et contient dans son nom la variable qui va contenir l'information (ModDate) ensuite il faut programmer un VBA qui permet de rechercher les informations.

    https://www.cjoint.com/c/JDijxJ8VSnT

    Tu cliques sur le lien et tu suis les instructions pour récupérer le classeur.

    CHRIS Posté le 8 avril 2020, 11:24
    par CHRIS
    -4

    Désolé mais j'avais oublié de changer l'extension du classeur qui contient maintenant une macro

    Voici le bon fichier : 

    https://www.cjoint.com/c/JDijCJkpQOT

    A+

    Chris

    CHRIS Posté le 8 avril 2020, 11:30
    par CHRIS
    • Merci Chris, j'ai trouvé une autre solution qui fonctionne. Je te la mets si ça peut servir ... Merci pour ton aide et je te souhaite un bon après-midi. MODULE GENERAL Function DernièreSauvegarde() Application.Volatile DernièreSauvegarde = ThisWorkbook.BuiltinDocumentProperties("Last Save Time") End Function FORMULE =DernièreSauvegarde() – GREG 8 avril 2020, 14:29

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :