modTasks secondaires ()
Faible obj comme objet
Faible theDate comme corde
Si ActiveExplorer.Selection.count = 0 sortent alors le sous-marin
theDate = InputBox (« quelle est-ce qu'est la date required de deferrment ? ")
Sinon IsDate (theDate) sortent alors le sous-marin
Pour chaque obj dans ActiveExplorer.Selection
Si obj. Classe = puis olTask
obj.DueDate = theDate
obj. Économiser
Finir si
Après
Sous-marin d'extrémité
|