guenfood
XLDnaute Occasionnel
Bonjour,
J'ai un problème avec la macro que j'ai créé ci-dessous.
Je souhaite qu'elle m'ouvre tous les fichiers en .html d'un répertoire que je choisis, et qu'elle aille me chercher les valeurs de la ligne 13 pour les coller dans mon classeur excel.
Là, cela me boucle toujours sur le même fichier html.
Obligé de couper excel avec le gestionnaire des tâches.
Que dois-je modifier pour que cela fonctionne ?
Merci par avance pour votre aide.
J'ai un problème avec la macro que j'ai créé ci-dessous.
Je souhaite qu'elle m'ouvre tous les fichiers en .html d'un répertoire que je choisis, et qu'elle aille me chercher les valeurs de la ligne 13 pour les coller dans mon classeur excel.
Là, cela me boucle toujours sur le même fichier html.
Obligé de couper excel avec le gestionnaire des tâches.
Que dois-je modifier pour que cela fonctionne ?
Merci par avance pour votre aide.
Code:
Dim a As Workbook
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim chemin$, Classeur$, MAJ1$, MAJ2
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
chemin = oFolderItem.Path
Classeur = Dir(chemin & "\*.html")
Set a = ThisWorkbook
Do While Classeur <> Empty
With Workbooks.Open(chemin & "\" & Classeur)
With .Sheets(1)
Rows("13:13").Select
Selection.Copy
Windows("Classeur1").Activate
.Range("A65356").End(xlUp).Row 1
ActiveSheet.Paste
End With
.Close True
End With
Loop
End Sub