Re : Trigger et macro
Bonsoir,
Une possibilité avec ce code à copier dans le ThisWorkbook mais il faut stocker dans une feuille la dates de modification précédente pour tester avec la nouvelle.
Salutations
Robert
Private Sub Workbook_Open()
'teste les propriétés du fichier B par le FileSystemObject
Dim fso, Dossier, fich As Object
Dim Fichier As String
Dim P1, P2 As Variant
Rep = "D:\Download\"
Fichier = "TableauxStat.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(Rep)
For Each fich In Dossier.Files
'On Error Resume Next
If fich.Name = Fichier Then
P1 = fich.DateCreated
' dernière modification
P2 = fich.DateLastModified
'.... à comparer avec la date de modification
' précédente du fichier B enregistrée dans une feuille
'.....
'if dateB > ancienneDateB then
' lancement macro
'endif
End If
Next
On Error GoTo 0
End Sub