Macro Excel - Importation fichier htm

Macro Excel - Importation fichier htm - VB/VBA/VBS - Programmation

Marsh Posté le 25-02-2016 à 11:27:40    

Bonjour à tous,
 
J'aimerai avoir un petit coup de pouce par rapport à une macro Excel.
Je souhaite que celle-ci importe un fichier htm dans ma feuille nommée Feuil1 (écrasement de l'existante).
 
Voici mon ébauche:
 

Code :
  1. Attribute VB_Name = "Module1"
  2. Sub Html_Import()
  4.     Dim myWB As Workbook, wb As Workbook
  5.     Dim ws As Worksheet
  6.     Dim myPath
  7.     myPath = "c:\FilesHTML\sample1.htm"  '
  8.     Set myWB = ThisWorkbook
  9.     Set wb = Workbooks.Open(myPath)
  10.     For x = 1 To wb.Sheets.Count
  11.     wb.Sheets(x).Copy after:=myWB.Sheets(myWB.Sheets.Count)
  12.     wb.Sheets(x).UsedRange.EntireColumn.AutoFit
  13.     Next
  14.     wb.Close False
  15.     myWB.Save
  17. End Sub


 
Avec mon ébauche, cela ajoute une nouvelle feuille nommée test.
Comment forcer la feuille et le remplacement de celle-ci svp ?
 
En vous remerciant par avance.
Jérôme


---------------
Neo_t3 registered Linux user number 354648. | http://www.ondaflow.com
Reply

Marsh Posté le 25-02-2016 à 11:27:40   

Reply

Marsh Posté le 26-02-2016 à 13:29:24    

 
            Bonjour, bonjour !
             
            Le fichier HTML ne contient pas plus d'une feuille, si ?
 
            Au lieu de copier une feuille, copier les données via la méthode Range.Copy (voir l'aide VBA interne et son exemple) …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed