Date de création=cellule
Fermé
travailleur
-
22 mai 2010 à 18:22
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 - 22 mai 2010 à 21:53
Mike-31 Messages postés 18352 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 décembre 2024 - 22 mai 2010 à 21:53
A voir également:
- Date de création=cellule
- Creation compte gmail - Guide
- Excel cellule couleur si condition texte - Guide
- Création compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Aller à la ligne dans une cellule excel - Guide
1 réponse
Mike-31
Messages postés
18352
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 décembre 2024
5 110
22 mai 2010 à 21:53
22 mai 2010 à 21:53
Salut,
Avec ce genre de code qui enregistrera colonne A feuil1 le dernier enregistrement, à activer avec un bouton
Sub DerniereModification()
Dim FS As Object, F As Object, Fichier As String
'Mettre le chemin complet du fichier
Fichier = "C:\wwww\wwww\wwwwww\Enregistrer date dernière modif.xls"
Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.getfile(Fichier)
If Range("A100").End(xlUp) = F.DateLastModified Then Exit Sub
Range("A100").End(xlUp).Offset(1, 0) = F.DateLastModified
Set FS = Nothing: Set F = Nothing
End Sub
Il est possible d'automatiser c'est enregistrement en mettant le code dans la Thiswokbook ce qui enregistrera la dernière modif avant sa fermeture ou en le couplant à une cellule ou une plage (mais la la liste risque à devenir vite longue, à moins qu'on limite le nombre de saisies)
Avec ce genre de code qui enregistrera colonne A feuil1 le dernier enregistrement, à activer avec un bouton
Sub DerniereModification()
Dim FS As Object, F As Object, Fichier As String
'Mettre le chemin complet du fichier
Fichier = "C:\wwww\wwww\wwwwww\Enregistrer date dernière modif.xls"
Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.getfile(Fichier)
If Range("A100").End(xlUp) = F.DateLastModified Then Exit Sub
Range("A100").End(xlUp).Offset(1, 0) = F.DateLastModified
Set FS = Nothing: Set F = Nothing
End Sub
Il est possible d'automatiser c'est enregistrement en mettant le code dans la Thiswokbook ce qui enregistrera la dernière modif avant sa fermeture ou en le couplant à une cellule ou une plage (mais la la liste risque à devenir vite longue, à moins qu'on limite le nombre de saisies)