Discussion :

[pointp]

Bonjour,
Je voudrais savoir s'il existe un code qui permet d'effacer les lignes Vba pour que This Workbook soit vide ou alors un code permettant de bloquer l'ouverture du fichier.
Mais le plus dur, c'est que je voudrais ce code avec un déclenchement différé dans le temps, est ce possible??

[pointp]

Après quelques recherches, j'ai trouvé ce code qui marche à merveille pour effacer les macros, maintenant , je voudrais qu'il se déclenche à une date précise, si quelqu'un sait faire, merci...

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
17
Sub DeleteAllVBA()
Dim VBComp As Variant
Dim VBComps As Variant
 
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 1 To 3
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
 
End Sub

[DeaD78]

Salut,

Regarde du côté de

Code :

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

Application.OnTime(EarliestTime, Procedure, [LatestTime], [Schedule])

mais il faut que le classeur soit ouvert.

Et mets cela dans l'event Workbook_Open().

Si tu ne veux pas que le fichier soit ouvert, il faudra utiliser le planificateur de tâche.

A+

[pointp]

En fait je voulais mettre quelque chose du genre:

Code :

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

If Date > DateSerial(Year(2010), Month(5), Day(27)) and Time > TimeSerial(Hour(12), Minute(0), Second(0)) Then

Mais hélas, celà ne marche pas, et je vois pas du tout pourquoi.

[pointp]

Pour ceux qui sont intéressé, j'ai réussi à réaliser ce que je voulais, c'est à dire exécuter une macro à partir d'une date et heure donnée, la solution n'était pas loin:

Code :

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

1
2
3
Private Sub Workbook_Open()
If Date >= DateSerial(2010, 9, 23) And Time >= TimeSerial(19, 0, 0) Then
'à l'ouverture, on n'a plus qu'à choisir la date est l'heure et à insérer la macro derrière pour quel s'exécute. Bien sur vous pouvez changer les symbôles.'

Merci à tous quand même et bonne continuation