IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

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


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Janvier 2012
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chef de projet en SSII
    Secteur : Conseil

    Informations forums :
    Inscription : Janvier 2012
    Messages : 1
    Par défaut [XL-2003] Copie de donnée classeur fermé
    Bonjour,

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

    Merci pour votre aide...

  2. #2
    Membre Expert
    Avatar de pijaku
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    1 817
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Août 2010
    Messages : 1 817
    Billets dans le blog
    10
    Par défaut
    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 : 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
    Sinon, plus "pro"... Un très bon tuto!

Discussions similaires

  1. [XL-2013] Copie d'un classeur fermé
    Par Nono Sto dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 22/08/2014, 15h29
  2. Extraction de données classeur fermé (multi feuilles)
    Par blanka347 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/10/2011, 19h00
  3. [XL-2010] Extraction de donnée classeur fermé.
    Par blanka347 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 23/09/2011, 20h44
  4. [XL-2007] Copie d'un classeur fermé
    Par Jay29 dans le forum Macros et VBA Excel
    Réponses: 14
    Dernier message: 27/10/2009, 13h53
  5. Copie de données depuis un classeur fermé
    Par kiki29 dans le forum Contribuez
    Réponses: 0
    Dernier message: 15/03/2008, 18h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo