Bonjour,

J'ai une macro VBA qui réalise une tache bien précise chaque jour à une heure donnée. Cette macro est dans un fichier sur lequel j'ai la main mais sur lequel mais collègues sont en lecture seule. Chaque jour je crée une nouvelle version ce fichier v1, v2, v3... lorsque la macro se lance, chez moi tout fonctionne parfaitement mais chez mes collègues, elle ouvre aussi tous les fichiers précédents v1, v2...

Quelqu'un saurait-il comment corriger ca ?
ci dessous ma macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    Application.OnTime TimeValue("17:35:00"), "report"
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub report()
 
Dim cell As Range
ToDay = Date 'Défini la date du jour
For Each cell In Sheet21.Range("a:a") 'ballaie la plge mentionnée
 
    If cell.Value = ToDay Then
    cell.EntireRow.Copy
    cell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
Next
End Sub