Détection d'un nouveau fichier dans un dossier

[Maxime]

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]

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