Comment importer ou copier des données depuis un classeur fermé vers le classeur actuel ?
Il est facile de copier des données d’une feuille de calcul ouverte et de les coller dans un autre classeur ouvert, mais avez-vous déjà essayé d’importer des données depuis un classeur fermé vers un classeur ouvert ? Dans cet article, je vous explique comment importer des données à partir d’un classeur fermé.
Importer des données depuis un classeur fermé vers Classeur actuel à l’aide d’un code VBA
Importer des données depuis un classeur fermé vers Classeur actuel avec Kutools pour Excel
Importer des données depuis un classeur fermé vers Classeur actuel à l’aide d’un code VBA
Le code VBA suivant vous permet de copier des données depuis un classeur sans l’ouvrir vers le classeur actif. Voici la marche à suivre :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : importer des données depuis un classeur fermé vers Classeur actuel
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Dans la fenêtre Ouvrir un fichier, sélectionnez le classeur dont vous souhaitez importer les données (voir capture d’écran) :
4. Cliquez ensuite sur le bouton Ouvrir, et la boîte de dialogue KutoolsforExcel s’affiche pour vous inviter à sélectionner la plage de données que vous souhaitez importer dans un autre classeur (voir capture d’écran) :
5.Cliquez ensuite sur le bouton OK, puis, dans la boîte de dialogue qui s’affiche, sélectionnez une cellule où vous souhaitez insérer les données (voir capture d’écran) :
6. Cliquez ensuite sur le bouton OK, et les données du classeur fermé seront importées dans le classeur actuel.
Importer des données depuis un classeur fermé vers Classeur actuel avec Kutools pour Excel
Le code VBA peut sembler complexe aux débutants sous Excel. C’est pourquoi je vous recommande un outil particulièrement pratique : Kutools pour Excel. Grâce à sa fonctionnalité Insérer un fichier à l'emplacement du curseur, vous pouvez insérer rapidement et facilement tout le contenu d’une feuille de calcul provenant d’un classeur fermé.
Après avoir installé Kutools pour Excel, procédez comme suit :
1.Cliquez sur KUTOOLS PLUS>Importer/Exporter>Insérer un fichier à l'emplacement du curseur(voir capture d’écran) :
2. Dans la boîte de dialogue Insérer un fichier à l'emplacement du curseur, effectuez les opérations suivantes :
(1.) Cliquez sur le 
bouton pour sélectionner une cellule où vous souhaitez insérer les données importées ;
(2.) Cliquez sur le bouton 
pour sélectionner le classeur dont vous souhaitez importer les données.
Remarque : Valeurs uniquement (sans formules) : si vous cochez cette option, seules les valeurs seront importées, pas les formules.
Ne pas transférer la mise en forme : cochez cette option pour importer les données dans la feuille de calcul sans leur mise en forme.
3. Cliquez ensuite sur le bouton OK. Si le classeur contient plusieurs feuilles de calcul, une boîte de dialogue Sélectionnez une feuille de calcul s’affiche ; veuillez alors spécifier la feuille de calcul dont vous souhaitez importer les données (voir capture d’écran) :
4. Cliquez ensuite sur le bouton OK, et les données de la feuille de calcul sélectionnée seront importées dans le classeur actuel.
Téléchargez et testez gratuitement Kutools pour Excel dès maintenant !
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels