Sub Import()
Dim F As Worksheet, hier As Byte
Set F = Sheets("PRONO") 'à adapter
Application.ScreenUpdating = False
1 F.Cells.Delete 'RAZ
With Workbooks.Open("http://trading-courses.ovh/main_root/download_center/index_payant.php?excel-" _
& Format(Date - hier, "dd-mm-yyyy") & ".xlsx")
.Sheets(1).UsedRange.Resize(, 41).Copy F.[A1] 'copier-coller
.Close
End With
If hier = 0 And Not F.[A1] Like "Course*" Then hier = 1: GoTo 1 'essai sur le fichier d'hier
End Sub
Re
Je reitere ma demande:
Peut-on importer la feuille "Reunions " et " Pronostics "
Par avance ,Je Vous remercie
A Plus
Guido