Copier feuille vers un autre classeur
a
Bonjour,
Je souhaite en VBA copier coller le contenue d'une feuille vers un autre classeur (colonne de A à N) (ligne A2 jusqu'à dernière ligne non vide).
Les données doivent être copiées sur la première ligne vide.
Enfin j'aimerai avoir un contrôle sur les potentiel doublon.
Nom fichier source = "Voiture 2018" Feuille source = "Synthése"
Nom fichier destinataire = "Récap 2018" Feuille destinataire = "Recap 1"
Merci beau à vous de votre aide.
Antho19
Salut!
Voila un début (et je dit bien un début) de projet :
Dim Voiture2018 As Workbook, Récap2018 As Workbook 'Commence en nommant tes fichiers
Sub Transfert_Données()
Set Voiture2018 = Workbooks.Open(Filename:="C:\Ton chemin\Voiture 2018.xls") 'donne le chemin d'accès à tes fichiers
Set Récap2018 = Workbooks.Open(Filename:="C:\Ton chemin\Récap 2018.xls") 'donne le chemin d'accès à tes fichiers
Voiture2018.Worksheets("Feuil1").Range("A2:A5000").Copy 'On viens copier sur ton fichier Voiture 2018
Récap2018.Worksheets("Feuil1").Activate 'On ouvre le fichier Récap
Récap2018.Worksheets("Feuil1").Range("A1").Select 'On cible la cellule où l'on va coller
ActiveSheet.Paste 'on colle
Récap2018.Worksheets("Feuil1").Columns("A:A").Select 'On sélectionne les colonnes où il faut supp doublon
ActiveSheet.Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlNo 'On supp les doublons
End SubRestant à ta disposition si tu a des question