Discussion :

[lamama]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

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

[wilfried_42]

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

[lamama]

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

[lamama]

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

[COCONUT2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[mordrhim]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lamama]

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

Merci à tous