Discussion :

[phil69400]

Bonjour,

Attention, je débute ☺

J'ai besoin pour ma boite, d’effacer régulière le contenue d'une cellule (pour limiter les erreurs de la prod.)

Sur une feuille du classeur Excel, depuis le scan d'un code barre, je souhaite générer un lien qui ouvrira les bons documents de production (ça c'est ok).
Avec la macro plus bas, si un autre fichier Excel est toujours ouvert, même si le fichier qui a exécuté la macro est fermée, il est à nouveau ouvert.

J'ai aussi une première macro qui exécute, dès l'ouverture la macro ci-dessous (ça aussi c'est ok ☺).

Ce que je voudrais, c'est qu'un fois ce classeur fermé, la macro soit stoppée...
Par avance merci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Macro1()
 
    Windows("Doc_prod.xlsm").Activate
    Worksheets("Code barre").Activate
    Sheets("Code barre").Select
    Range("C3").Select
    Selection.ClearContents
    Application.OnTime Now + TimeValue("00:00:10"), "Macro1"
End Sub

[patricktoulon]

bonjour

tu devrais taper la touche f1 qunad tu es dans l'editeur de code (VBE)

et dans le moteur de recherche tu tape "ontime"
miracle on te donne la solution
pour le moment que tu demande c'est a metre dans le beforeclose du thisworkbook

[phil69400]

Merci Patrick pour ta réponse, mais... (c'est sûrement de mon côté que cela cloche)

Plus bas, tu trouveras ce que je pense avoir compris & écris :
les lignes sous "Private Sub Workbook_Close()"n'ont pas stoppées la macro"Feuil1.Macro1", si j'ai un autre fichier Excel ouvert, ce qui sera toujours le cas, le fichier est ouvert à nouveau automatiquement !

Bon WE

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Workbook_Open()
 
   Application.OnTime Now + TimeValue("00:00:10"), "Feuil1.Macro1"
 
End Sub
 
Private Sub Workbook_Close()
 
    Application.OnTime EarliestTimes:=TimeValue("00:00:10"), _
    Procedure:="Feuil1.Macro1", Shedule:=False
 
End Sub

[patricktoulon]

re
on ne peut pas appeler une macro qui est dans un module feuille avec ontime tout simplement il faut que la macro soit dans un module standard
a maconnaissance tout du moins

[phil69400]

Même résultat avec ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
 
   Application.OnTime Now + TimeValue("00:00:10"), "Macro1"
 
End Sub
 
Private Sub Workbook_Close()
 
    Application.OnTime EarliestTimes:=TimeValue("00:00:10"), _
    Procedure:="Macro1", Shedule:=False
 
End Sub

[patricktoulon]

re
autant pour moi j'ai testé on peu bien l'appeller quand la macro est dans une feuille (j'aurais appris quelque chose aujourd'hui)

et ce n'est pas Shedule mais Schedule
dans le thisworkbook

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Close()
    Application.OnTime now, "Feuil1.Macro1", Schedule:=False
End Sub
Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:05"), "Feuil1.Macro1"
End Sub

dans la feuille

Code :

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

1
2
3
4
5
Sub macro1()
 MsgBox "toto"
 'pour la reprogramer
 Application.OnTime Now + TimeValue("00:00:05"), "Feuil1.Macro1"
 End Sub

tu aura un coucou de toto toute les 5 secondes

si tu veux pas qu'elle se repete tu enleve la ligne dans la macro1 pour repeter

[phil69400]

Rien à faire, même ainsi ► copie des lignes que tu m'as proposés, mais sans la faute , ré-ouverture sans fin du fichier...

Je te joins le fichier si tu as un instant.
J'aime bien le toto en bonus

Bon WE