[ J'abandone le fil.. ] Bug sur un fichier HTLM d'importation

[Guido]

Bonsoir le Forum

J'ai un bug dans le fichier ci dessous.

La macro du boutons2 bug sur une ligne de copie vers un fichier

Merci d'avance

Guido

 

[job75]

Re,

Bah le fichier .xls fonctionne bien à condition de limiter le UsedRange copié :

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

Cependant je ne pense pas que cela fonctionnerait sur Excel 2003 et versions antérieures.

Mais peut-être que si avec un convertisseur installé.

Fichiers (3).

A+

 

[Guido]

Re

Je reitere ma demande:

Peut-on importer la feuille "Reunions " et " Pronostics "

Par avance ,Je Vous remercie

A Plus

Guido

 

[Guido]

Re

Je reitere ma demande:

Peut-on importer la feuille "Reunions " et " Pronostics "

Par avance ,Je Vous remercie

A Plus

Guido

Re

Pas de réponse possible .???

Tan pis ???

Merci K même

Guido