XL 2019 Importer un fichier excel du web dans mon fichier

[fanfan38]

Bonjour
Je n'y connais rien en power query... (je préfère les macros)
A cette adresse je télécharge les vacances scolaires

https://data.education.gouv.fr/explore/dataset/fr-en-calendrier-scolaire/download/?format=xls&timezone=Europe/Paris&lang=fr&use_labels_for_header=true

et je souhaiterai mettre cette feuille dans mon fichier ....

Merci pour les conseils
A+ François

 

[M12]

Bonjour
Je n'y connais rien en power query... (je préfère les macros)
A cette adresse je télécharge les vacances scolaires

https://data.education.gouv.fr/explore/dataset/fr-en-calendrier-scolaire/download/?format=xls&timezone=Europe/Paris&lang=fr&use_labels_for_header=true

et je souhaiterai mettre cette feuille dans mon fichier ....

Merci pour les conseils
A+ François

Bonjour Fanfan
Teste cette macro sur une feuille vierge

Sub ImportXRates()

  Dim Ws As Worksheet
  Dim qt As QueryTable
  Dim URL As String
  URL = "https://data.education.gouv.fr/explore/dataset/fr-en-calendrier-scolaire/download/?format=xls&timezone=Europe/Paris&lang=fr&use_labels_for_header=true"
  Set Ws = Worksheets.Add
 
  Set qt = Ws.QueryTables.Add( _
    Connection:="URL;" & URL, _
    Destination:=Range("A1"))
    
  With qt
    .RefreshOnFileOpen = True
    .Name = "MonTest"
    .WebFormatting = xlWebFormattingRTF
    .WebSelectionType = xlAllTables
    .Refresh
  End With
End Sub

 

[fanfan38]

Bonjour
C'est exactement ce que je souhaitais.
Merci
A+ François