Bonjour à tous

j'ai un petit souci :

J'ai un fichier excel qui tous les soirs se met à jour et s'enregistre sous avec la date du jour. J'ai rajouté un bout de code qui copie 4 cellules du premier fichier, ouvre un autre, recherche la bonne ligne en fonction de la date et colle les 4 cellules au bon endroit.

Mon problème c'est qu'en pas à pas détaillé tout va bien, ça marche mais en auto ça marche pas, dès qu'il ouvre le nouveau fichier il s'arrète vu qu'il n'y a pas de code vb dans le second fichier

code :

dans workbook du premier fichier

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Sub Workbook_Activate()
 
'Application.OnTime TimeValue("22:00:00"), "feuil1.act"
 
End Sub
dans feuil1 du premier fichier

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public Sub act()
 
Dim dat As Date, jour As Date
Dim ligne As Integer
Dim cell As Range
Dim cell2 As Range
Dim i As Integer
 
Set cell = Workbooks("CTA.xls").Worksheets("feuil1").Range("A9")
dat = cell.Value
LancementTraitement
 
Workbooks("CTA.xls").Worksheets("feuil1").Range("G9:J9").Copy
 
Workbooks.Open ("s:\enregistrement\indicateur qualite\INDICATEUR SUIVI ERREUR CT ANALYSE.xls")
 
Set cell2 = Workbooks("INDICATEUR SUIVI ERREUR CT ANALYSE.xls").Worksheets("feuil2").Range("C3")
 
For i = 1 To 169
    If dat = cell2(i) Then ligne = cell2.Row
Next i
 
Workbooks("INDICATEUR SUIVI ERREUR CT ANALYSE.xls").Worksheets("feuil2").Range("D" & ligne + 1) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
        :=False, Transpose:=False
 
ThisWorkbook.SaveAs "s:\enregistrement\ARCHIVAGE CTANALYSES\CTANALYSES " & Format(Date, "dd mm yy")
Excel.Application.Quit
 
End Sub
Voilà si quelqu'un à un conseil ça m'arrangerais, je bloque...

Merci d'avance