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 :

Copier avec un range et copy d'un workbook à un autre


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Copier avec un range et copy d'un workbook à un autre
    Salut guys je suis nouveau en excel vba et j'essaie de copier une colonne d'un workbook vers un autre. voici mon code:
    La fonction range_finder me donne le numéro de la colonne selon le titre que je cherche dans mon tableau. La boucle sert a trouver la dernière case non vide.
    Le problème est que mon programme semble copier a partir du workbook où je veux envoyer le paste au lieu de copier dans le bon workbook?

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
        colonne = range_finder(OpenBook, ThisWorkbook, wscopy, wsdest, Titrecolonne(13))
        ligne = 1
        Do While (IsEmpty(wscopy.Cells(ligne, colonne).Value)) = VRAI
            ligne = ligne + 1
        Loop
     
        ligne = ligne - 1
     
        'ligne = Cells(1, 1).End(xlDown).Row
     
        'Ligne = Cells(Rows.Count, Colonne).End(x1down).Row
        Set Rng = Range(Cells(2, colonne), Cells(ligne, colonne))
        OpenBook.Activate
        Sheets(2).Select
        Range(Cells(2, colonne), Cells(ligne, colonne)).Copy
        ThisWorkbook.Activate
        Sheets(1).Select
        ActiveSheet.Paste Destination:=Range("A30")

  2. #2
    Expert confirmé
    Salut,

    ajoute
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    ActiveWorkbook.Range(Cells(2, colonne), Cells(ligne, colonne)).Copy


    il est toujours préférable d'indiquer l'objet "parent" pour éviter des surprises.

    En espérant que c'est bien çà.

    GG
    Jérôme

    " Je pense donc je suis. Tu es donc j'apprends ". (GCM)

    Si ce message vous à aidé, merci de cliquer sur . Si ce message est résolu, cliquez sur .

  3. #3
    Rédacteur

    Bonjour,
    Est-ce que ce n'est pas la même question posée dans cette discussion ?
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Quelques contributions : USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire - Géolocalisation d'une adresse avec Excel et Google sans VBA

###raw>template_hook.ano_emploi###