Discussion :

[Fhello]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ! :'(

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Fhello]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 ?

[Fhello]

Sur quelle ligne de code ?

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

[Menhir]

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.