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 :

Copie de colonnes vers un autre classeur


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Inscrit en
    Novembre 2007
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 54
    Par défaut Copie de colonnes vers un autre classeur
    Bonjour,

    J'ai un probleme avec le code en rouge, je n'arrive pas a copier mes colonnes vers un autre classeur, j'aimerai copier les colonnes D J et K d'un classeur vers les colonnes A B et C d'un autre classeur, mais rien ne se passe
    Auriez vous l'oeil pour me ce qui ne va pas
    Merci



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    'OUVRIR FICHIER NATIF .XLS
     Workbooks.Open Filename:="C:\GIMA\Issue_natif.xls"
      
     'COPIER COLONNE D, J ET K ET COLLER DANS IMPORT_GIMA COL A, B ET C
     Worksheets("Feuil1").Range("D2:D1000").Copy Workbooks("importgima").Range("A2")
     Worksheets("Feuil1").Range("J2:J1000").Copy Workbooks("importgima").Range("B2")
     Worksheets("Feuil1").Range("K2:K1000").Copy Workbooks("importgima").Range("C2")
     'FERMER FICHIER NATIF .XLS
     'Workbooks("Issue_natif.xls").Close False
     Workbooks("importgima.xls").Activate

  2. #2
    Membre confirmé
    Inscrit en
    Septembre 2007
    Messages
    220
    Détails du profil
    Informations personnelles :
    Âge : 41

    Informations forums :
    Inscription : Septembre 2007
    Messages : 220
    Par défaut
    Salut

    Dans ta déclaration des destinations, tu n'as pas indiqué la feuille. Tu as simplement indiqué le classeur de destination et la cellule. Ajoute entre les 2 le nom de la feuille et tout ira mieux.

  3. #3
    Membre averti
    Inscrit en
    Novembre 2007
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 54
    Par défaut
    Je l'ai indiqué comme ceci, mais ça ne fonctionne toujours pas
    Merci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Worksheets("Feuil1").Range("D2:D1000").Copy Workbooks("importgima").Worksheets("Gima").Range("A2")

  4. #4
    Membre averti
    Inscrit en
    Novembre 2007
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 54
    Par défaut
    Bonjour,
    J'ai réussi pendant le week à trouver un code mais j'ai un soucis, j'ai bien indiqué le bon classeur, onglet etc...y-a rien a faire il ne veut pas coller les données dans le deuxième classeur
    Quelqu'un peut me dire ou j' ai pu faire une erreur, merci



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
       Dim MaPlage As Range
        With Workbooks( "Issue_natif.xls").Worksheets("Feuil1")
            Set MaPlage = Application.Union(.Range("D2:D1000"), .Range("J2:K1000"))
        End With
        MaPlage.Copy
        Workbooks("importgima").Worksheets("Feuil1").Range("A2").Activate
        ActiveSheet.Paste

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Pour copier en sélectionnant l'emplacement du collage, tu dois séparer la sélection de la feuille de celle de la cellule.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Workbooks("importgima").Worksheets("Feuil1").Activate 'ou Select
    Range("A2").Select
    ActiveSheet.Paste
    Par contre, je ne comprends pas pourquoi la syntaxe
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     Worksheets("Feuil1").Range("D2:D1000").Copy _
     Workbooks("importgima").Worksheets("Gima").Range("A2")
    ne fonctionne pas.
    Donc, je déduis que tu as un autre problème (feuille protégée ? Espace dans le nom de la feuille ?)
    Tu dis

  6. #6
    Membre averti
    Inscrit en
    Novembre 2007
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Novembre 2007
    Messages : 54
    Par défaut
    Effectivement mon Range("A2").Select était mal placé
    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Copie d'une colone d'un classeur vers une colonne d'un autre classeur
    Par GuiBar18 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 11/10/2011, 15h54
  2. ouverture et copie de données vers un autre classeur variable
    Par mustapha.ezzaouia dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 15/12/2009, 14h24
  3. Réponses: 4
    Dernier message: 07/02/2009, 17h19
  4. Copie d'une feuille vers un autre classeur
    Par zeralium dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 23/10/2008, 16h08
  5. [VBA] Copie d'une plage vers un autre classeur
    Par Pachee dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/08/2008, 15h14

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