Discussion :

[Tchupacabra]

Bonjour,

est-il possible d'insérer la date de modification du document ou de la feuille à la manière de =MAINTENANT() ?

genre =DATEMODIF()

Merci d'avance.

[Invité]

Bonjour Tchupacabra

A l'ouverture du fichier vous pouvez afficher dans la cellule la dernière date de sauvegarde :

Code :

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

1
2
3
4
Sub Derniere_date_modif
datsav = Format(FileDateTime("C:\mon_dossier\mon_fichier.xls"), "dd/mm/yyyy")
Cells(1 , 1) = datsav
End sub

ou afficher la date du jour dans une cellule en double-cliquant dessus (la date précédente si elle existe sera écrasée :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Worksheet_Change(ByVal Target As Range)
 
d = Cells(1, 1)
 
If Target.Column = 1 And Target.Row = 1 Then
d = Date
Range("A1").Value = d
End If
End Sub

ou (même chose que le code précédent sauf que la date ne s'inscrira que si la date précédente a été effacée) :

Code :

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

1
2
3
4
5
6
7
8
Sub Worksheet_Change(ByVal Target As Range)
 
d = Cells(1, 1)
If Target.Column = 1 And Target.Row = 1 And d = "" Then
d = Date
Range("A1").Value = d
End If
End Sub

Mais il y a sans doute d'autres solutions.

[Abed_H]

Bonjour

A l'ouverture du fichier la cellule A1 affiche la dernière sauvegarde du fichier

Code :

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

1
2
3
4
 
Sub Auto_Open
  Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub

Abed_H

[Tchupacabra]

Bonjour à tous et merci...

voici la solution que je retiendrai :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    chemin = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    Cells(1, 2) = Format(FileDateTime(chemin), "dd/mm/yyyy")
End Sub

@+

[Tchupacabra]

j'ai quand même un souci avec le Format...

Format(FileDateTime(chemin), "dd/mm/yyyy") me retourne 01/10/2008
alors que
Format(FileDateTime(chemin), "dd mm yyyy") me retourne 10 01 2008
et moi j'aimerais avoir 10/01/2008 !

[Bigalo]

Bonjour,

Extrait de l’aide (E-07), Fonction Format, Exemple
Pour ce qui concerne le séparateur de date (/), d'heure ( et le littéral AM/PM, la sortie formatée réellement affichée par votre système dépend des paramètres régionaux avec lesquels le code s'exécute. Lorsque les heures et les dates sont affichées dans l'environnement de développement, ce sont les formats heure et date raccourcis des paramètres régionaux qui sont utilisés. Lorsqu'ils s'affichent par exécution du code, les formats heure et date raccourcis utilisés sont ceux des paramètres système, qui peuvent différer des paramètres régionaux.

Utilise plutôt

Code :

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

NumberFormat = "dd/mm/yyyy"

Cela t’évitera de mauvaises surprises.

Cordialement,

[Tchupacabra]

merci pour ce complément d'infos...
cependant, je ne vois pas comment utiliser NumberFormat !

[Bigalo]

Re,

Voici un exemple :

Au lieu de

Code :

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

    Cells(1, 2) = Format(MaVariableDate, "dd/mm/yyyy")

Utilise

Code :

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

1
2
    Cells(1, 2).NumberFormat = "dd/mm/yyyy"
    Cells(1, 2) = MaVariableDate

Cordialement,

[Invité]

Bonjour Bigalo et Tchupacabra,

Je viens d'essayer :

Cells(1, 2).NumberFormat = "dd/mm/yyyy"
Cells(1, 2) = MaVariableDate

Et j'ai toujours l'inversion entre le jour et le mois tant que le jour est <= 12.

Peut-être que cela fonctionnera chez Tchupacabra ?

Sinon, ce n'est peut-être pas la solution la plus élégante mais celle-ci a fonctionné parfaitement :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
chemin = ThisWorkbook.Path & "\" & ThisWorkbook.Name
datsav = Format(FileDateTime(chemin), "dd/mm/yyyy")
j = Left(datsav, 2)
m = Mid(datsav, 4, 2)
a = Right(datsav, 4)
datsav = DateSerial(a, m, j)
Cells(1, 2) = datsav
End sub

Amicalement.

[SilkyRoad]

bonjour

voici la solution que je retiendrai :

Private Sub Workbook_Open()
chemin = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Cells(1, 2) = Format(FileDateTime(chemin), "dd/mm/yyyy")
End Sub

je ne vois pas l'interet d'utiliser cette fonction puisque dans ton cas cela va te renvoyer systematiquement la date et l'heure du jour d'ouverture du fichier (thisworkbook = tu fais la recherche sur le classeur contenant la macro)...


Il est préférable d'utiliser la solution proposée par Abed_H


bon apres midi
michel

[Tchupacabra]

Peut-être que cela fonctionnera chez Tchupacabra ?

effectivement cela fonctionne chez moi...

malheureusement SilkyRoad a raison... FileDateTime() ne renvoie pas la date de modification comme indiqué dans l'aide...

Renvoie une valeur de type Variant (Date) indiquant la date et l'heure de création ou de dernière modification d'un fichier.

Il est préférable d'utiliser la solution proposée par Abed_H

effectivement, je croyais que ça renvoyer seulement l'heure...


Merci à tous !!!
Problème résolu.