Détection d'un nouveau fichier dans un dossier

Maxime · 14 Juin 2006

Bonjour,
chaque semaine, il y a un nouveau fichier dans un dossier.
Je voudrais détecter ceci à l'ouverture d'un classeur excel.
Maxime 😉

MichelXld · 14 Juin 2006

bonsoir Maxime

cette macro permet de récupérer le classeur le plus récent dans un repertoire

Option Base 1
Sub triDecroissant_dateCreation()
Dim Fichier As String, Chemin As String
Dim Fso As Object
Dim FileItem As Object
Dim Tableau()
Dim m As Integer, i As Integer
Dim z As Byte, Valeur As Byte
Dim Cible As Variant

'---lister les fichiers du répertoire ---
Chemin = 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier'
Fichier = Dir(Chemin & '\\\\\\\\*.*')

Do
m = m + 1
ReDim Preserve Tableau(2, m)
Tableau(1, m) = Fichier

Set Fso = CreateObject('Scripting.FileSystemObject')
Set FileItem = Fso.GetFile(Chemin & '\\\\\\\\' & Fichier)

Tableau(2, m) = Left(FileItem.DateCreated, 10)

Fichier = Dir
Loop Until Fichier = ''

'---trier les fichiers par ordre décroissant de création ---
Do
Valeur = 0
For i = 1 To m - 1
If CDate(Tableau(2, i)) ‹ CDate(Tableau(2, i + 1)) Then
For z = 1 To 2
Cible = Tableau(z, i)
Tableau(z, i) = Tableau(z, i + 1)
Tableau(z, i + 1) = Cible
Next z
Valeur = 1
End If
Next i
Loop While Valeur = 1

'--- le fichier plus récent ---
MsgBox Tableau(1, 1) & vbCrLf & Tableau(2, 1)
End Sub

utilise l'evenement Workbook_Open pour déclencher la procedure lors de l'ouverture d'un classeur

bonne soirée
MichelXld

Détection d'un nouveau fichier dans un dossier

Maxime

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires

Détection d'un nouveau fichier dans un dossier

Maxime

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency