XL 2016 Importer une plage de donnees

Bonjour KTM,
A+

job75 à dit:

Bonjour KTM,

VB:

Sub Importer()
Dim w As Worksheet, fichier$
Set w = Feuil1 'CodeName
fichier = ThisWorkbook.Path & "\Export.xlsx"
If Dir(fichier) = "" Then MsgBox "Le fichier Export n'existe pas !", 48: Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est ouvert
w.Cells.Clear 'RAZ
With Workbooks.Open(fichier)
    .Sheets(1).UsedRange.Copy w.[A1]
    .Close False
End With
w.Activate 'facultatif
End Sub

A+

Cliquez pour agrandir...

Merci cher Maitre
Mille fois merci pour le soutient que tu nous apporte sur ce forum. C'est Super!!

Bonjour Ktm,
Bonjour Job,

Une proposition par PowerQuert (intégré dans excel 2016 dans 'Données/Acquérir et transformer/afficher les requêtes').
Dans l'étape 'Source' de la requête, renseigner le bon répertoire du fichier.
Plus qu'à rafraîchir ensuite.

P.S. J'espère que cette fois ci je ne me ferai pas engueuler pour avoir osé proposer autre chose que du VBA🙂 (tout à l'heure j'ai commis l'outrage d'une telle proposition à quelqu'un qui n'a pas aimé...)

bonne continuation