Récupération données HTML

Bonjour,
J'ai réalisé une demande de récupération de données à mon boulot sur un site intranet de l'entreprise, la récupération se fait donc tous les jours et je reçois le fichier tous les matins sauf que celui-ci est en format HTML.

Je souhaiterais crééer une macro me permettant de récupérer tous les jours, les données du tableau HTML sur mon Excel.
Pour le moment j'ai écris :

Code:

---

1 2 3 4 5 6

Workbooks.Open ("\\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\DocLinks.htm") Workbooks("rapport1\rapport1.htm").Sheets("Rapport1").Select Selection.Copy Workbooks(NomFic).Sheets("Feuil1").Activate Range("A1").PasteSpecial

---

Pensant que ça suffirait (et oui je suis novice) et en fait ça ne fonctionne pas du tout ! :'(

Citation:

---

en fait ça ne fonctionne pas du tout ! :'(

---

"Ca ne fonctionne pas", ce n'est pas très parlant comme description de défaut. :?

Pour utiliser le PasteSpecial, il faut avoir copié des cellules.
Or, dans ton code, le Copy porte sur une feuille.

Code:

---

1 2 3

Workbooks.Open ("\\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\DocLinks.htm") Workbooks("rapport1\rapport1.htm").Sheets("Rapport1").UsedRange.Copy Workbooks(NomFic).Sheets("Feuil1").Range("A1").PasteSpecial(xlPasteValues)

---

En supposant que tu as renseigné auparavant la variable NomFic.

Cela dit, à moins qu'il est dans ton fichier de destination un format spécial, il serait plus simple de faire un simple enregistrement de ton fichier htm dans un autre format avec un SaveAs.

Code:

---

1 2	Workbooks.Open ("\\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\DocLinks.htm") Workbooks("rapport1\rapport1.htm").SaveAs Filename:=NomFic, FileFormat:=xlWorkbookDefault

---

En supposant que tu veux enregistrer ce fichier en xlsx.

Cela dit, à moins qu'il est dans ton fichier de destination un format spécial, il serait plus simple de faire un simple enregistrement de ton fichier htm dans un autre format avec un SaveAs.

Code:

---

1 2	Workbooks.Open ("\\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\DocLinks.htm") Workbooks("rapport1\rapport1.htm").SaveAs Filename:=NomFic, FileFormat:=xlWorkbookDefault

---

En supposant que tu veux enregistrer ce fichier en xlsx.[/QUOTE]

C'est exactement ça que je voulais faire !
Oui ca me donnait une feuille blanche sans aucune de mes valeurs :roll:

Cependant après avoir utilisé le code que tu m'as donné ça continue de me mettre un message "Debogage d'execution 9 L'indice n'appartient pas à la section"

Je vais mettre le code en entier peut être que la réponse est dedans

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Date_de_Secu() Application.DisplayAlerts = True Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.MaxChange = 0.001   NomFic = ThisWorkbook.Name   Workbooks.Open ("\\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\DocLinks.htm") Workbooks("rapport1\rapport1.htm").SaveAs Filename:=NomFic, FileFormat:=xlWorkbookDefault   Application.DisplayAlerts = False Application.Calculation = xlCalculationAutomatic Application.MaxChange = 0.001 Application.ScreenUpdating = True   End Sub

---

Citation:

---

Envoyé par Fhello

Cependant après avoir utilisé le code que tu m'as donné ça continue de me mettre un message "Debogage d'execution 9 L'indice n'appartient pas à la section"

---

Sur quelle ligne de code ?

Citation:

---

Envoyé par Menhir

Sur quelle ligne de code ?

---

Workbooks("rapport1\rapport1.htm").SaveAs Filename:=NomFic, FileFormat:=xlWorkbookDefault
Celle ci

On ne met pas le chemin dans le nom d'un Workbook.
De plus, il est curieux que tu ouvres un fichier nommé DocLinks.htm mais que tu récupères les données dans un classeur nommé rapport1.htm.

Le fichier que j'ouvre : \\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\DocLinks.htm
me renvoi à une page ou il faut que je clique sur "rapport1" pour arriver sur : \\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\rapport1\rapport1.htm
et c'est dans ce 2e que je trouve mes informations

Citation:

---

Envoyé par Fhello

pour arriver sur : \\besn0101\qmgt-projet\Projet\Requete_pour_Altis\Resultats\CIR Avec ALTIS _ 2360320\rapport1\rapport1.htm
et c'est dans ce 2e que je trouve mes informations

---

Dans ce cas, ne penses-tu pas que c'est celui-ci que tu devrais ouvrir ?

Mais je pense que ton problème n'est pas seulement de transformer un format de fichier mais de piloter une application Web pour en récupérer les informations, ce qui est complètement différent.

re
et oui menhir a raison tu ne peut pas ouvrir ton htm avec open et essayer de piloter avec les librairie IE

il te faut instancier une instance de l'application IE et le piloter avec ses librairie
exemple en late binding

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") With IE .Visible = True .navigate "https://www.google.fr/?gws_rd=ssl" Do: DoEvents: Loop While .readystate <> 4 Or .busy 'utilisation des librairies IE 'exemple je met "toto" dans l'input de recherche .document.getelementbyid("lst-ib").Value = "toto" 'suite '.... End With End Sub

---

fait une recherche avec le pseudo qwazerty