Private Sub CommandButton1_Click() 'bouton MAJ
Dim i As Variant
With Feuil2 'CodeName
.Cells.Clear 'RAZ
.[A1].QueryTable.Refresh BackgroundQuery:=False 'actualise la requête
i = Application.Match("Journal", .[A:A], 0)
If IsError(i) Then [B2,B5:J35] = "": Exit Sub
[B2] = .[A39]
[B5:J35] = .Cells(i, 1).CurrentRegion.Resize(, 9).Offset(1).Value
End With
End Sub
Bonjour,Bonjour Guismo33, le forum,
Il faut d'abord créer une requête web : menu DONNÉES => Web.
Ensuite ce code actualise la requête et met à jour B2 et B5:J35 :
Fichier joint.Code:Private Sub CommandButton1_Click() 'bouton MAJ Dim i As Variant With Feuil2 'CodeName .Cells.Clear 'RAZ .[A1].QueryTable.Refresh BackgroundQuery:=False 'actualise la requête i = Application.Match("Journal", .[A:A], 0) If IsError(i) Then [B2,B5:J35] = "": Exit Sub [B2] = .[A39] [B5:J35] = .Cells(i, 1).CurrentRegion.Resize(, 9).Offset(1).Value End With End Sub
Bonne journée.