> Tous les forums > Forum Bureautique
 savoir la date de modification fichier non excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
appyh
  Posté le 17/03/2011 @ 11:57 
Aller en bas de la page 
Nouvel astucien

tout est dans le titre ou presque^^

je viens ici car je suis deseperé^^

dans un tableau de recap on( car on est plusieurs a se servir du tableau) rentre des valeurs et des dates à partir de relevés qu'on fait avec d'autres logiciels (les relevé ne sont pas lisible par excel)

tout les fichiers des relevés sont rangés par extention dans un dossier

je voudrais que dans le tableur excel , la case du dernier relevé se colore en rouge si il y a un fichier de relevé plus recent dans le dossier (en gros controler que les relevés sont à jour)

pensez vous que ce soit possible a partir de la derniere date de modification

je vous remercie d'avance de votre aide

et je me tient pret à donner d'autre précision car je pense que l'énoncé est un peu brouillon

je tiens a préciser que je travaille sous 2003 sans l'extension de compatibilité pour fichier 2007

apres un petit test de progrmation vb j'obtien:


Private Sub CommandButton1_Click()


Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim Diag As String
Dim Nbr As Long
Dim I As Long

Set ScanFic = Application.FileSearch

With ScanFic
.NewSearch
.LookIn = "c\repertoire"

.SearchSubFolders = True
.FileType = msoFileTypeAllFiles


Nbr = .Execute


I = 0
For Each NomFic In .FoundFiles
I = I + 1
Sheets("Feuil5").Cells(I, 3).Value = NomFic ' adapter le nom de la feuille
Next

MsgBox Diag

End With


End Sub

cela m'affiche la liste des fichiers contenue dans c\repertoire hors je souhaiterais qu'il m'affiche leurs dates de modification et si possible uniquement la derniere



Modifié par appyh le 17/03/2011 14:17
Publicité
Bérylion
 Posté le 23/03/2011 à 00:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut,et bienvenue à toi

tout d'abord, oui ton énoncé est à peine brouillon... , d'ou le peu de réponse à ce jour.

je te conseille de faire un tour par la case départ (te gène pas, c'est le père galopin qui distribue les 20 mille ) pour détailler ton besoin.

ensuite, je ne crois pas qu'on puisse récupérer la date de modif d'un fichier avec le FileSearch ()

dans ton cas je passerai par du FileSystemObject

voir ci-dessous un très bel exemple de P. Erlandsen () à adapter selon ton besoin :

Sub TestListFilesInFolder()
    Workbooks.Add ' create a new workbook for the file list
    ' add headers
    With Range("A1")
        .Formula = "Folder contents:"
        .Font.Bold = True
        .Font.Size = 12
    End With
    Range("A3").Formula = "File Name:"
    Range("B3").Formula = "File Size:"
    Range("C3").Formula = "File Type:"
    Range("D3").Formula = "Date Created:"
    Range("E3").Formula = "Date Last Accessed:"
    Range("F3").Formula = "Date Last Modified:"
    Range("G3").Formula = "Attributes:"
    Range("H3").Formula = "Short File Name:"
    Range("A3:H3").Font.Bold = True
    ListFilesInFolder "C:\FolderName" ' all files in folder
    'ListFilesInFolder "C:\FolderName", "*.*", True ' all files, included subfolders
    'ListFilesInFolder "C:\FolderName", "*.xl*", True ' all Excel files, included subfolders
End Sub

Sub ListFilesInFolder(SourceFolderName As String, Optional FileFilter As String = "*.*", _
    Optional IncludeSubfolders As Boolean = False)
' lists information about the files in SourceFolder
' example: ListFilesInFolder "C:\FolderName", "*.xl*", True
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File, r As Long
    If Len(FileFilter) = 0 Then FileFilter = "*.*"
    Set FSO = New Scripting.FileSystemObject
    On Error Resume Next
    Set SourceFolder = FSO.GetFolder(SourceFolderName)
    On Error GoTo 0
    If Not SourceFolder Is Nothing Then
        r = Range("A65536").End(xlUp).Row
        For Each FileItem In SourceFolder.Files
            If FileItem.Name Like FileFilter Then
                ' display file properties
                r = r + 1 ' next row number
                Cells(r, 1).Formula = FileItem.Path & FileItem.Name
                Cells(r, 2).Formula = FileItem.Size
                Cells(r, 3).Formula = FileItem.Type
                Cells(r, 4).Formula = FileItem.DateCreated
                Cells(r, 5).Formula = FileItem.DateLastAccessed
                Cells(r, 6).Formula = FileItem.DateLastModified
                Cells(r, 7).Formula = FileItem.Attributes
                Cells(r, 8).Formula = FileItem.ShortPath & FileItem.ShortName
                ' use file methods (not proper in this example)
        '        FileItem.Copy "C:\FolderName\Filename.txt", True
        '        FileItem.Move "C:\FolderName\Filename.txt"
        '        FileItem.Delete True
            End If
        Next FileItem
        If IncludeSubfolders Then
            For Each SubFolder In SourceFolder.SubFolders
                ListFilesInFolder SubFolder.Path, True
            Next SubFolder
        End If
        Columns("A:H").AutoFit
        Set FileItem = Nothing
        Set SourceFolder = Nothing
    End If
    Set FSO = Nothing
    ActiveWorkbook.Saved = True
End Sub

tu reviens quand tu veux si tu as besoin d'aide ou de précisions.


Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
57,70 €Alimentation Seasonic S12III 650W Plus Bronze à 57,70 € livrée
Valable jusqu'au 13 Mai

Amazon Allemagne propose actuellement la bonne alimentation Seasonic S12III 650W Plus Bronze à 49,81 €. Comptez 7,89 € pour la livraison en France soit un total de 57,70 € livrée. On la trouve habituellement autour de 67 €. L'alimentation est livrée gratuitement et est garantie 5 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
33,99 €Casque Audio Logitech G332 à 33,99 €
Valable jusqu'au 15 Mai

Amazon fait une promotion sur casque Logitech G332 qu'il propose à 33,99 € alors qu'on le trouve ailleurs à partir de 59,99 €. Ce casque dédié aux joueurs est compatible PC, Xbox, PS4 et Switch. Il possède un micro antiparasite qui pivote, un réglage de volume directement sur le fil. Connexion par jack 3.5 mm. La livraison est gratuite.


> Voir l'offre
54,99 €Office 365 Famille (6 utilisateurs, 15 mois) + McAfee Total Protection 6 postes à 54,99 €
Valable jusqu'au 15 Mai

Amazon fait une promotion sur Office 365 Famille qui passe ainsi à 54,99 €, en téléchargement légal alors qu'on le trouve habituellement à 99 €. Vous pourrez télécharger et installer les dernières versions d'Outlook, Word, Excel, PowerPoint et OneNote sur 6 PC, Mac ou tablettes (iOS ou Android) pendant 15 mois. Vous bénéficierez également d'un espace de stockage en ligne sur OneDrive de 1 To pour chaque utilisateur (6x1 To). Un abonnement d'un an à l'antivirus McAfee Total Protection 2021 6 appareils est également offert.


> Voir l'offre

Sujets relatifs
report automatique date et compteur fichier excel.
report automatique date et compteur fichier excel.
Apparition date dernière modif ds un fichier Excel
alerte à la modification d'un fichier excel
Creation d' une boucle macro dans fichier EXCEL pour impression
fichier excel - gestion des nombres identiques
Fichier EXCEL ne peut s'ouvrir
Word insérer date du jour dans nom du fichier
format date excel
Convertir fichier pdf en excel
Plus de sujets relatifs à savoir la date de modification fichier non excel
 > Tous les forums > Forum Bureautique