Bonjour,
Voila j ai une macro mais j'aimerai qu elle se lance toute les 30 secondes
voici ma macro:
Sub RSI()
'
' RSI Macro
'
For i = 1 To 2
Sheets("Cours").Select
Dim codevaleur As Range
Set codevaleur = Worksheets("Cours").Range("a" & i)
Dim nomvaleur As Range
Set nomvaleur = Worksheets("Cours").Range("b" & (i + 1))
Dim lien1 As Range
Set lien1 = Worksheets("Cours").Range("c1")
Dim lien2 As Range
Set lien2 = Worksheets("Cours").Range("d1")
Workbooks.Open Filename:=lien1 & codevaleur & lien2
Range("C184").Select
Selection.Copy
ActiveWindow.Close
Windows("Cours.xls").Activate
Range("B" & (i + 1)).Select
ActiveSheet.Paste
Next
End Sub
J'ai essayer en lisant les reponse les lignes, mais elle ne la prend pas en compte et la lance juste une fois
Danstrentesecondes = TimeSerial (0,0,0 +30)
etc ...
J'avoue patoger un peu, et si vous pouviez me donner un cp de main ca serait bien aimable :)
Merci d'avance
PS: autre tite question en passant, comment fait ton pour que lorsque la macro ouvre une nouvelle page il la ferme sans me demander d'enregistrer ou alrs qu il enregistre directement seul.
Merci bcp
