Copier Coller Classeur

Y compris Power BI, Power Query et toute autre question en lien avec Excel
k
kamellias
Membre habitué
Membre habitué
Messages : 108
Appréciation reçue : 1
Inscrit le : 10 février 2017
Version d'Excel : 2010

Message par kamellias » 10 novembre 2017, 01:09

Bonsoir a tous

je sollicite votre encore une fois de plus.

alors voila ce que je souhaite faire j ai un classeur1 avec en colonne A des donnees que je souhaite copier dans le classeur2 a la meme position c est a dire en colonne A

est il possible de me faire un code en vba pour realiser cela

merci
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 3'515
Appréciations reçues : 242
Inscrit le : 26 janvier 2011
Version d'Excel : 2007

Message par Theze » 10 novembre 2017, 06:49

Bonjour,

Une piste, adapter le chemin et nom du classeur cible, le nom des feuilles de chaque classeur (ici, Feuil1) et le code doit être mis dans un module du classeur contenant les données à copier :
Sub Test()
    
    Dim ClsSource As Workbook
    Dim ClsCible As Workbook
    Dim Plage As Range
    
    'classeur où se trouvent les données à copier
    Set ClsSource = ThisWorkbook
    
    'classeur où von être collées les données, adapter le chemin et nom du classeur !
    Set ClsCible = Workbooks.Open("D:\Mon dossier\Mon classeur.xlsm")
    
    'défini la plage en colonne A à partir de A1 sur la feuille nommée "Feuil1", adapter le nom de la feuille !
    With ClsSource.Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
    
    'inscrit les données en colonne A à partir de A1 dans la feuille nommée "Feuil1", adapter là aussi le nom de la feuille !
    With ClsCible.Worksheets("Feuil1"): .Range(.Cells(1, 1), .Cells(Plage.Rows.Count, 1)).Value = Plage.Value: End With
    
End Sub
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
k
kamellias
Membre habitué
Membre habitué
Messages : 108
Appréciation reçue : 1
Inscrit le : 10 février 2017
Version d'Excel : 2010

Message par kamellias » 11 novembre 2017, 00:04

merci pour cette aide precieuse

C'est Parfait
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message