Discussion :

[CoolPeanut]

Bonjour,

J'ai encore une fois besoin de votre précieuse aide, j'ai fouillé sur le forum mais je n'ai pas trouvé de réponse à ma question


J'utilise une Private Sub 'Open' pour lancer une macro automatiquement à un horaire précis, voici le code ci-dessous


(Je ne peux pas utiliser le planificateur de tâche du PC puisque c'est un PC professionnel et que je n'ai pas les droits...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 
Application.OnTime EarliestTime:=TimeValue("16:20:00"), Procedure:="Message_Temps", Schedule:=True
Application.OnTime EarliestTime:=TimeValue("16:25:00"), Procedure:="Effacement", Schedule:=True
 
 
End Sub

Problème rencontré :
Le code ci-dessus se lance même quand le fichier Excel est fermé, cependant je souhaite qu'il ne se lance que si le classeur est ouvert
(Cela évitera que la macro se lance plusieurs fois si plusieurs utilisateurs ont ouvert le fichier dans la même journée)

Selon vous qu'elle est la meilleure méthode ?

-Annuler le 'Private Sub Open' à la fermeture du fichier ?
-Mettre une condition dans le 'Private Sub Open' pour qu'il ne se lance que si le fichier est ouvert ?
-Autre chose ?

Si besoin, voici les autres procédures :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Message_Temps()
 
MsgBox "Bonjour " & Application.UserName & " !... Les informations de l'onglet *Compil finale Collaborateurs* du fichier *Responsable COP* seront effacées à 16h25 pour être remplacées. Veuillez ne pas fermer le fichier."
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Effacement()
 
Workbooks("Responsable COP.xlsm").Activate
Sheets("Compil finale Collaborateurs").Select
Range("A2:AC2000").ClearContents
 
MsgBox "Onglet *Compil finale Collaborateurs* effacée"
 
ThisWorkbook.Close savechanges:=True
 
End Sub

Merci beaucoup pour votre aide

[deedolith]

Hello,

Je résume:
TU veux lancer une macro a partir d'un classeur A, sur un classeur B ouvert par un autre utilisateur.
Ce n'est pas possible.

Garde en tête que les macros ne s'exécutent que sur un environnement connu, ce qui se résume à la session Windows ouverte sur ton PC.
Connaitre l'état des processus sur un autre PC est impossible.

Quelle tâche essayes-tu d'accomplir ?
A mon avis, tu fais fausse route.

[CoolPeanut]

Bonjour,

Non ça n'est pas exactement ça, j'ai dû mal m'exprimer, tout se passe sur le même fichier

Ici je cherche à trouver un moyen de stopper mes procédures automatiques qui se lancent via le 'Private Sub Open' (à l'ouverture de mon fichier) lorsque je ferme mon fichier

Exemple :

-J'ouvre mon fichier contenant les macros à 9h00 puis je le ferme à 12h00
-J'ouvre un autre fichier Excel (peut importe lequel)
-A 16h25, Excel va ré ouvrir mon premier fichier contenant les macros pour les effectuer, hors je ne veux pas qu'elles se lancent si le fichier est fermé


Je souhaite donc trouver un moyen d'annuler les procédures 'On Time' de mon 'Private Sub Open'

Merci pour ton aide en tous cas

[deedolith]

Tu mixes traitements 'à la demande" et traitements planifiés (batch), ce qui engendre des conflits.

A mon avis, le mieux est de dissocier les 2.
Déporte les macros "batch" dans un second classeur, il est alors facile de vérifier quels classeurs sont ouverts par l'utilisateur (via la collection Workbooks).
Ce sera autrement plus simple que d'essayer d'interrompre un traitement en cours, avec toutes les problématiques qui vont avec (verification permanente d'un flag, cohérence des données ect ...).

[patmeziere]

Bonjour
et bien ferme le shedule tout simplement au close du fichier
tu sais le programmer tu devrais savoir le fermer

et pour répondre en même temps a deedolith si on peut exécuter une macro d'un autre fichier a partir d'un fichier
il suffit pour cela de mettre un nom au vbaproject du classeur A
ajouter la référence a ce classeur dans le classeur B en cochant sa référence dans outils/références et que la sub ou fonction dans le classeur A soit public
cela dit quand on ouvre le classeur B il ouvre alors le classeur A
pour éviter cela on activera et déactivera la référence a ce classeur A dynamiquement par vba
rien de plus simple

[patmeziere]

Bonjour
et bien ferme le shedule tout simplement au close du fichier
tu sais le programmer tu devrais savoir le fermer

et pour répondre en même temps a deedolith si on peut exécuter une macro d'un autre fichier a partir d'un fichier
il suffit pour cela de mettre un nom au vbaproject du classeur A
ajouter la référence a ce classeur dans le classeur B en cochant sa référence dans outils/références et que la sub ou fonction dans le classeur A soit public
cela dit quand on ouvre le classeur B il ouvre alors le classeur A
pour éviter cela on activera et déactivera la référence a ce classeur A dynamiquement par vba
rien de plus simple

[CoolPeanut]

Bonjour,

Ah oui en effet je devrais pouvoir faire ça
Merci à tous les deux pour vos lumières, je vous souhaite un bon mois de février !

[CoolPeanut]

Et voilà, c'était tout simple
Parfois il ne faut pas chercher compliqué !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
 
Application.OnTime EarliestTime:=TimeValue("16:20:00"), Procedure:="Message_Temps", Schedule:=True
Application.OnTime EarliestTime:=TimeValue("16:25:00"), Procedure:="Effacement", Schedule:=True
 
 
End Sub
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
On Error Resume Next
Application.OnTime EarliestTime:=TimeValue("16:20:00"), Procedure:="Message_Temps", Schedule:=False
Application.OnTime EarliestTime:=TimeValue("16:25:00"), Procedure:="Effacement", Schedule:=False
 
End Sub

Merci patmeziere et deedolith