Trigger et macro

[mouenza]

Bonjour

Je voulais savoir si il était possible de créer des triggers sur excel en vba. En faite mon problème est que je souhaiterais lancer une macro dès l'ouverture d'un classeur A si un classeur B a été préalablement modifié. Cette macro doit donc se lancer à chaque modification du classeur B mais à l'ouverture du classeur A.

Merci d'avance

 

[Herdet]

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