Date de modification d'un Fichier Excel

Bonjour à tous,

Je suis vraiment toute novice, et je rencontre un gros souci en VBA EXCEL. J'ai récupéré sur le net un programme qui avait pour but d'indiquer la date de modif d'un fichier EXCEL:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Workbook_BeforeClose(Cancel As Boolean) If Modif = True Then Sheets("feuil1").Range("D1").Value = "Dernière modif le" & Format(Date, "dd/mm/yyyy") End If End Sub   Private Sub Workbook_Open() Modif = True End Sub   Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Modif = True End Sub

---

Et je rencontre un problème, la date n'apparait pas en cellule D1 (il n'y a rien, sauf le format qui à l'air d'avoir fonctionné) et je rencontre un bug: Erreur de compilation: Type défini par l'utilisateur non défini pour cette ligne ci: Private Sub Workbook_SheetChange (ByVal Sh As Object, ByVal Target As Range)

La date n'apparait toujours pas, même après plusieurs, modifs et manips y compris le débogage du message d'erreur. Y a-t-il quelqu'un pour m'aider SVP?:roll:

Merci d'avance à celui ou celle qui pourra m'aider:cry:

bonjour

As tu défini ta variable modif sous la forme :

Public modif as boolean

Option à mettre en premiere ligne d'un module

@ te lire

Non, mais je viens d'ajouter cette ligne

public modif as boolean

au dessus de ce qu'il y avait écrit en ''Module 1'':

Sub Date_de_modification_MAJ()

End Sub

Et ça ne fonctionne toujours pas:oops:

oui, en fait, en fermant et en ouvrant de nouveau le fichier EXCEL, je me retrouve avec la date, mais aussi cette inscription dans ma cellule D1:

Date de modification19/06/2007

Est-il possible de ne pas afficher ''Date de modification'', c'est à dire uniquement la date 19/06/2007?

Et merci pour ton aide:yaisse2:

Je pense que ca vient du mode Value de la formule que tu veux écrire

Et si tu remplacais .value par .Text, je pense que ca pourrait fonctionner mieux


Autre solution que j'applique, tu passes par une variable intermédiaire (que j'appelle dateur)

Code:

---

1 2 3 4

dim dateur as string dateur = "Dernière modif le" & Format(Date, "dd/mm/yyyy") Sheets("feuil1").Range("D1") = dateur

---

@+

en reprenant tout

le code que tu as copié met sur la feuille de code "Thisworkbook"

ensuite pour supprimer ''Date de modification''

tu l'enleve dans le code

soit

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeClose(Cancel As Boolean) If Modif = True Then Sheets("feuil1").Range("D1").Value = Format(Date, "dd/mm/yyyy") End If End Sub

---

Pour info, la réponse de mordrhim à fonctionnée

Merci à tous