XL 2016 Importer une plage de donnees

KTM

XLDnaute Impliqué
Bonjour chers tous
Je voudrais importer une plage de données du classeur "Export" vers mon classeur actif "Destination"
Les deux fichiers sont dans le meme Dossier
J'ai élaborer Deux macros pour y parvenir et cela Marche mais je voudrais avoir l'avis de plus expérimenté en VBA pour optimiser et simplifier si possible ma procedure.
Merci Forum
 

Pièces jointes

  • Destination.xlsm
    194.8 KB · Affichages: 4
  • Export.xlsx
    183.5 KB · Affichages: 7
Dernière édition:

job75

XLDnaute Barbatruc
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+
 

KTM

XLDnaute Impliqué
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+
Merci cher Maitre
Mille fois merci pour le soutient que tu nous apporte sur ce forum. C'est Super!!
 

Hasco

XLDnaute Barbatruc
Repose en paix
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
 

Pièces jointes

  • Destination.xlsm
    212.7 KB · Affichages: 12

Discussions similaires