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 :
- Attribute VB_Name = "Module1"
- Sub Html_Import()
- Dim myWB As Workbook, wb As Workbook
- Dim ws As Worksheet
- Dim myPath
- myPath = "c:\FilesHTML\sample1.htm" '
- Set myWB = ThisWorkbook
- Set wb = Workbooks.Open(myPath)
- For x = 1 To wb.Sheets.Count
- wb.Sheets(x).Copy after:=myWB.Sheets(myWB.Sheets.Count)
- wb.Sheets(x).UsedRange.EntireColumn.AutoFit
- Next
- wb.Close False
- myWB.Save
- 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
