Discussion :

[chuspyto]

bonjour,
je travaille sous excel2007 et j' ai un tableau a 4 colonnes.
dans ma 1 ere colonne c'est la date,j'aimerais avoir a chaque ouverture du classeur sur la feuille 1 la date ,et l'heure d'ouverture automatique.et avec une incrementation de ligne de telle sorte a chaque ouverture j'ai heure et date dans chaque cellule de la colonne A(actuellement quand j'ouvre dans toutes mes cellules il ne garde pas en memoire la date et heure,il reinitialise tout a la date et heure de derniere ouverture )

merci

[JackOuYA]

bonjour,

on peu voir ton code actuel ?

[chuspyto]

en fait j'utilise que la formule =maintenant() dans les cellules,
je ne sais comment faire en code vba

[JackOuYA]

Donc tu recopie cette formule à chaque fois ..?

[chuspyto]

oui exactement,j'aimerais avoir quelque chose d'automatique sans que toutes mes cellules soient modifiées

[JackOuYA]

bon tiens, voila un code qui rajoute date/heure dans 1° cellule libre de la colonne A.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Workbook_Open()
 Dim Yac As Range
 'MODIFIER la ligne suivante le "A" en fonction de la colonne
 'prévu pour contenir la date
 Set Yac = ThisWorkbook.Sheets("Feuil1").Range("A1")
 If Yac <> "" Then
    If Yac.Offset(1, 0) = "" Then
      Set Yac = Yac.Offset(1, 0)
    Else
      Set Yac = Yac.End(xlDown).Offset(1, 0)
    End If
 End If
 Yac = Now
End Sub

à placer dans ThisWorkbook