Problème bizarre ! de référence ?
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:
1 2 3
| Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.OnTime TimeValue("17:35:00"), "report"
End Sub |
Code:
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 |