Re : Demarrer une macro tous les jours a la meme heure
Bonjour,
J'en suis là actuellement.
Sub Macro12()
'
' Macro12 Macro
' Macro enregistrée le 20/03/2008 par XXXXXX
'
'
Application.OnTime TimeValue("14:25:00"), "Macro12"
With Application.FileSearch
.NewSearch
.LookIn = "C:\Documents and Settings\Desktop"
.SearchSubFolders = False
.Filename = "Report1.csv"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute (msoSortByFileName)
On Error Resume Next
For Each Report In .FoundFiles
Workbooks.Open Report1.csv
Activate.Workbook
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:=True
ActiveWindow.WindowState = xlNormal
Range("A2").Select
Columns("A:A").EntireColumn.AutoFit
ActiveWindow.FreezePanes = True
Rows("1:1").Select
Selection.AutoFilter
ChDir "C:\Documents and Settings\472086\Report1.csv"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Desktop\Report1.xls", FileFormat _
:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Range("K16").Select
Application.WindowState = xlMinimized
ActiveWindow.WindowState = xlNormal
Next Report
End With
End Sub
J'ai un autre module dans lequel il est ecrit le code suivant.
Private Sub Workbook_Open()
Application.OnTime TimeValue("14:25:00"), "Macro12"
End Sub
La macro marche tres bien quand je la lance à la main,
Par contre j'aimerais bien quelle demarre toute seule, (classeur ouvert ou pas je ne sais pas).
Je creuse de mon coté.
Merci votre aide.