[ 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

 

[JBARBE]

Re,
Pas de changement quelque soit l’extension ( xls ou xlsx)
@+

 

[ChTi160]

re ça te mets quoi comme message ?

 

[Guido]

Re

Jean Marie

Le fichier qui se trouve dans le pave #8 quand je passe dessus avec la souris c'est une flèche qui

se dessine... et non le petit doigt qui devrais activer le bouton de la macro...???.

Merci de pouvoir regarder

Guido

 

[JBARBE]

Re,
C'est la galère !
Pourtant ça marchait avant !

 

[JBARBE]

Re,
Message en cliquant sur le bouton 2 du fichier original présenté au début

!

 

[JBARBE]

Re,
Jean Marie, on arrête tout jusqu'à 10h
En effet, le fichier source n'est disponible qu'à partir d'aujourd'hui 10h du matin !
je ne peux donc faire les tests !
Bonne nuit à tous !

 

[ChTi160]

Bonjour JBarbe
Bonjour Le Fil,Le Forum
Apparemment ya un probleme de cellules,soit celles copiees sont plus nombreuses que celle qui peuvent etre recues dans le fichier cible,ou alors il y a des cellules fusionnees dans la feuille source et pas possible de les coller.
Ou alors les deux ! lol
On peut peut etre faire l essai avec la date d hier ?
Dans l attente
Bonne journee
Amicalement
Jean marie

 

[job75]

Bonjour Guido, Philippe, JBARBE, ChTi160, le forum,

Pour pouvoir ouvrir le fichier source .xlsx il faut utiliser un fichier .xlsm, ce n'est pas possible avec .xls.

Contrairement à ce que dit ChTi160 il est bien plus simple de copier-coller les cellules :

Sub Import()
Dim F As Worksheet, hier As Byte
Set F = Sheets("PRONO") 'à adapter
Application.ScreenUpdating = False
On Error Resume Next 'si le fichier n'est pas trouvé
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")
  If hier = 0 Then If IsError(.Name) Then hier = 1: GoTo 1 'essai sur le fichier d'hier
  .Sheets(1).UsedRange.Copy F.[A1] 'copier-coller
  .Close
End With
End Sub

Fichiers .xlsm et .xls joints.

Il te faudra abandonner les fichiers .xls que tu affectionnes Guido...

Bonne journée.

 

[Guido]

Bonjour , Job75,Philippe, JBARBE, ChTi160,Le Forum

Merci a Vous Tous.

Tout fonctionne a merveille est plus simple que ca ..je n'aurais

pas trouvé sans votre savoir faire.

Je vais pouvoir amélioré des nouveau fichier qui était a la limite de saturé..

Donc a tres vite pour avancé dans me projets..

Amitiés

Guido

 

[JBARBE]

Bonjour tous, Guido, Philippe, Chti160,
Merci Job ton fichier xlsm fonctionne sur Excel 2007!
Dans la macro du fichier original j'ai rajouté en gras:
WbSrce.Worksheets("Forme et Classe").UsedRange.Copy WbDest.Worksheets("PRONO").Range("A1")
Il est évident que Guido doit mettre son fichier en xlsm et abandonner xls et donc Excel 2003 pour son fichier !
Bonne journée à tous !

 

[job75]

Re,

J'avais mal testé pour le "fichier d'hier", utiliser finalement cette macro :

Sub Import()
Dim F As Worksheet, hier As Byte
Set F = Sheets("PRONO") 'à adapter
Application.ScreenUpdating = False
On Error Resume Next 'si le fichier n'est pas trouvé
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.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

Fichiers (2).

A+

 

[Guido]

Re Bonjour a Tous

Je me permet de Vous posé une question sans recrée un nouveau fil ,Merci d'avance

Serait il possible de crées un fichier automatisé pour rapatrié deux pages qui me serais très utile

pour l'avenir en allant les récupérer avec le lien ci dessous


http://www.trading-courses.ovh/main_ro…/logiciel/courses.php

Apres avoir mis la date du jour...Mais il faut en principe attendre 10.00 le matin..

extraire les 3 pages suivante..

Forme et Classe qui se trouve dans les post précèdent et la page Réunion et la page Pronostic..

Merci d'avance pour vos futures réponses

Amitiés

Guido

 

[JBARBE]

Re Bonjour a Tous

extraire les 3 pages suivante..

Forme et Classe qui se trouve dans les post précèdent et la page Réunion et la page Pronostic..

Guido

Re,
La page Forme-Classe a pu être importée !
Reste les 2 pages :
- Réunions
- Pronostics
Bonne journée !

 

[ChTi160]

Bonjour Guido
Bonjour Le Fil, Le Forum

je ne pense pas avoir dit :

Contrairement à ce que dit ChTi160 il est bien plus simple de copier-coller les cellules :

mais :

Une idée comme une autre pourquoi ne pas importer la feuille ,plutôt que de copier les cellules?

surtout qu'au départ on faisait une copie de toutes les cellules :

WbSrce.Sheets("Forme et Classe").Cells.Copy .Range("A1")

et maintenant de la plage des Données :

.Sheets(1).UsedRange.Copy F.[A1] 'copier-coller

Mais bon!!!

Tant que ça fonctionne ! Lol

Bonne fin de Journée
Amicalement
Jean marie

 

[job75]

Re,

On peut copier toutes les cellules :

.Sheets(1).Cells.Copy F.[A1] 'copier-coller

Mais ce n'est pas utile.

A+