Bonjour,
Je souhaite copier une plage de donnée d'un classeur fermé vers un classeur ouvert.
Merci pour votre aide...![]()
Bonjour,
Je souhaite copier une plage de donnée d'un classeur fermé vers un classeur ouvert.
Merci pour votre aide...![]()
Bonjour,
Trouvé sur le Net :
Introduction
Nous avons besoin, dans notre classeur « Recap », d'avoir les informations situées dans la plage de cellules « A1 :F10 » de la feuille « Feuil1 » d'un classeur « source », lui-même situé dans le répertoire « C:\Utilisateur\Données\Excel\ ».
Donc pour commencer, ouvrons un classeur, inscrivons "truc", "bidule" ou "machin" en Feuil1 de la cellule A1 à la cellule F10 et enregistrons le sous « source.xls » dans le répertoire : C:\Utilisateur\Données\Excel\.
Fermons ce classeur.
Ouvrons un second classeur Excel et enregistrons le sous « Recap.xls » dans le bureau (par exemple).
La méthode, par Excel :
Dans votre classeur Recap.xls :
Insérer un nom défini :
•Menu : Insertion
•Choix : Nom
•Cliquer sur : Définir
Noms dans le classeur => saisir : plage
Fait référence à => saisir : ='C:\Utilisateur\Données\Excel\[source.xls]Feuil1'!$A$1:$F$10
Cliquer sur Ajouter.
•Dans votre classeur, en A1 saisir la formule : =plage
puis valider.
Etirer cette formule sur toute la plage de A1 à F10...
Le code VBA correspondant
Sinon, plus "pro"... Un très bon tuto!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub ImporterDonneesSansOuvrir() Dim Chemin As String, Fichier As String Chemin = "C:\Utilisateur\Données\Excel\" Fichier = "source.xls" ThisWorkbook.Names.Add "plage", _ RefersTo:="='" & Chemin & "[" & Fichier & "]Feuil1'!$A$1:$F$10" With Sheets("Feuil2") .[A1:F10] = "=plage" .[A1:F10].Copy Sheets("Feuil1").Range("A1").PasteSpecial xlPasteValues .[A1:F10].Clear End With End Sub
Partager