Copier coller à la fin d'un autre classeur vba

Vdelz -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention - 23 déc. 2017 à 20:32

Bonjour,

J'essaie de faire un truc pas facile pour moi qui débute en programmation et je deviens fou: j'aimerais en cliquant sur un bouton copier certaines valeurs et les coller à la dernière ligne d'un autre classeur (déjà ouvert). Voici le code que j'ai essayé:


 Dim derligne As Integer
    
 
    derligne = Workbooks("Classeurtest.xlsm").Worksheets("Feuill1").Range("A" & Rows.Count).End(xlUp).Row
    derligne = derligne + 1 'j'ai essayé sans " Workbooks("Classeurtest.xlsm").Worksheets("Feuill1")" mais ça rajoute à la première ligne du nouveau classeur


    
    
        With ThisWorkbook.Worksheets("Formulaire") ' Mon premier classeur qui servira de source pour la copie
            Set MaPlage = Range("B2")
        End With

        MaPlage.Copy
        ActiveSheet.Paste Destination:=Workbooks("Classeurtest.xlsm").Worksheets("Feuil1").Cells(derligne) 'Copie vers le fichier de Michael, changer le nom
        Application.CutCopyMode = False

Pourriez-vous m'aider svp? D'avance, merci.

Afficher la suite

A voir également:

Copier coller à la fin d'un autre classeur vba
Retrouver un copier-coller android - Guide
Style d'écriture a copier coller - Guide
Copier coller pdf - Guide
Copier-coller - Accueil - Informatique
Fin des zfe - Guide

3 réponses

Réponse 1 / 3

patty5046 Messages postés 46 Date d'inscription Statut Membre Dernière intervention 5

Bonjour


With ThisWorkbook.Worksheets("Formulaire") ' Mon premier classeur qui servira de source pour la copie
            Set MaPlage = Range("B2")
        End With

Je pense que tu devrais faire cela :


With ThisWorkbook.Worksheets("Formulaire") ' Mon premier classeur qui servira de source pour la copie
            Set MaPlage = .Range("B2")
        End With

Rajouter un point devant range.
Si cela ne va toujours pas joins un extrait de tes 2 fichiers

Bye

Réponse 2 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Bonjour,

Pour l'exemple, je préfère :

Option Explicit
Sub xxx()
Dim MaPlage As Range
Dim MaDestination As Range
  
  With Workbooks("Classeurtest.xlsm").Worksheets("Feuill1")
    Set MaDestination = .Range("A" & Rows.Count).End(xlUp).Offset(1)
  End With
  With ThisWorkbook.Worksheets("Formulaire") ' Mon premier classeur qui servira de source
    Set MaPlage = .Range("B2")
  End With
  MaPlage.Copy Destination:=MaDestination
 
End Sub

Réponse 3 / 3

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

attention: Feuil1 ou Feuill1?

Discussions similaires

dessin avec symbole clavier

Arobase

dessin au clavier cannabis

Comment retrouver le presse papier sur iPhone ?

Votre réponse

Discussions similaires