Discussion :

[jerem7w]

Bonjour

J'ai des tâches planifiées qui mettent à jour des fichiers la nuit. Des fois ça plante, et il me faut trouver le fichier qui a planté.

Mon idée serait, depuis un fichier excel, lister tous mes fichiers qui doivent se rafraichir la nuit et affichier dans la cellule d'à côté la date de dernière mise à jour.

Est-ce possible via VBA excel, ou faut-il se contenter de l'explorateur Windows, guère pratique ?

bonne soirée

[drakkar_agfa]

Bonjour,

Voici une macro te permettant de lister les fichiers dans un répertoire:

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
16
17
18
19
 Sub ListerFichier()
    Dim Chemin As String, Fichier As String
    Dim i As Integer
 
    Range("A:A").ClearContents
    'Définit le répertoire contenant les fichiers
    MsgBox "Vous devez sélectionner un fichier dans le répertoire à lister."
    Fichier = Application.GetOpenFilename
    Chemin = Left(Fichier, InStrRev(Fichier, "\"))
 
    'Boucle sur tous les fichiers du répertoire.
    Fichier = Dir(Chemin & "*.*")
    Do While Len(Fichier) > 0
        i = i + 1
        'écrit le résultat dans le tableau.
        Cells(i, 1) = Fichier
        Fichier = Dir()
    Loop
End Sub

Et voici une macro qui te permet d'obtenir les propriétés d'un fichier:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub ListeProprietesFichier_getDetailsOf(Fichier As String)
    'source:
    'http://www.microsoft.com/resources/documentation/windows/2000/server/
    'scriptguide/en-us/sas_fil_lunl.mspx
    '
    'Nécessite d'activer la référence Microsoft Shell Controls and Automation
    '
    Dim Fso As Object, oFichier As Object
    Dim objShell As Shell32.Shell
    Dim objFolder As Shell32.Folder
    Dim strFileName As Shell32.FolderItem
    Dim Chemin As String, NomFich As String, Resultat As String
    Dim i As Byte
 
    '-----
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set oFichier = Fso.GetFile(Fichier)
    Chemin = Fso.GetParentFolderName(oFichier)
    NomFich = Fso.GetFileName(oFichier)
    '-----
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(Chemin)
    Set strFileName = objFolder.Items.Item(NomFich)
 
    For i = 0 To 34
        'Cet exemple n'affiche pas les propriétés vides
        If objFolder.GetDetailsOf(strFileName, i) <> "" Then _
        Resultat = Resultat & objFolder.GetDetailsOf(objFolder.Items, i) _
        & ":  " & objFolder.GetDetailsOf(strFileName, i) & vbLf
    Next
 
    MsgBox Resultat
End Sub

Avec ces deux macro et un peu d'adaptation, il sera possible de faire ce que tu veux!

[ucfoutu]

Bonjour,

Il me semble que le problème est à prendre dans l'autre sens ...

C'est dans ton application de sauvegarde, qu'il faut agir.

Il faut qu'elle génère tout simplement un fichier log ou un fichier txt, ainsi rempli :
A chaque fichier trouvé dans la liste à sauvegarder : inscription du fichier dans le fichier log puis sauvegarde
A la fin de chaque sauvegarde terminée : un "drapeau" (un X par ezxemple)

Le lendemain : examen du fichier log.

[jerem7w]

Bonjour et merci pour vos réponses.

Cela m' a pris 6 mois pour re-venir là dessus, mais j'avais besoin d'acquérir de l'expérience.

Donc finalement, j'ai opté pour ceci

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub resultat()
 
Dim t1 As Date
Dim chemin As String
Dim v_tb As Range
Dim i As Integer
Dim j As Integer
 
'Récupération des dates de mises à jour des fichiers pdf
'chemin vers les dossiers et fichiers dans la boucle
'--------------------------------------------------------
 
chemin = "\\Z:\GL\Automatique\"
 
Sheets("results").Select
 
Set v_tb = Range("a4").CurrentRegion
 
'la ligne 1 du tableau contient le nom des fichiers que l'on trouve dans chaque répertoire
' la colonne 1 contient le nom des répertoires
 
For i = 2 To v_tb.Rows.Count
    For j = 2 To v_tb.Columns.Count
 
t1 = FileDateTime(chemin & v_tb.Cells(i, 1) & "\" & v_tb.Cells(1, j) & """")
    v_tb.Cells(i, j) = DateValue(t1)
 
    Next
Next
End sub

@+