Re: Ouvrir une page web et récupérer les données d'un tableau |
Titre du sujet : Re: Ouvrir une page web et récupérer les données d'un tableau par myDearFriend! le 07/03/2023 21:08:25 Bonsoir Icedarts, le Forum,
En modifiant une partie du code précèdent comme suit (en rouge), ça devrait suffire pour répondre à cette nouvelle demande : 'Complétude du tableau With Sheets("Données") For L = 1 To NbLignTab For C = 0 To NbColTab With .Cells(Lmax + L + 1, C + 1) .Value = TabDoc.Rows(L).Cells(C).innerText If C = NbColTab Then .Offset(0, 1).Value = vTabLiens(Lnk, 2) End If End With Next C Next L End With En pièce jointe, le code en action.
Bien cordialement, |
Forums