[XL-2003] Copie de donnée classeur fermé

[celebrom]

Bonjour,

Je souhaite copier une plage de donnée d'un classeur fermé vers un classeur ouvert.

Merci pour votre aide...

[pijaku]

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

Code :

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

Sinon, plus "pro"... Un très bon tuto!