Trigger et macro

mouenza

XLDnaute Nouveau
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

Nous a quitté
Repose en paix
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
 

Discussions similaires

Réponses
2
Affichages
461
Réponses
5
Affichages
495

Statistiques des forums

Discussions
312 884
Messages
2 093 244
Membres
105 658
dernier inscrit
Mario Richard