Date de création=cellule
travailleur
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'aurais besoin de votre aide pour m'indiquer comment à l'aide d'une macro VBA , je peut attribué comme date de création le contenu d'une cellule d'un classeur excel ,pour qu'il apparaisse sauvegardé à la date qui se trouve dans cette cellule.
Merci
J'aurais besoin de votre aide pour m'indiquer comment à l'aide d'une macro VBA , je peut attribué comme date de création le contenu d'une cellule d'un classeur excel ,pour qu'il apparaisse sauvegardé à la date qui se trouve dans cette cellule.
Merci
A voir également:
- Date de création=cellule
- Creation de site web - Guide
- Creation compte gmail - Guide
- Creation de compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Proteger cellule excel - Guide
1 réponse
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)
