VBA - Copier coller des données par groupe d’un fichier à un autre

Bonjour à tous,

Je cherche comment faire pour :

• Dans un fichier excel copier plusieurs cellules par exemple les cellules A1, B1, C1, D1, G1, J1.
• Les coller dans un autre fichier Excel ( nom du fichier qui existe : copie données qui est dans un autre répertoire que le fichier ouvert) aux emplacements par exemple A1 vers B5 , B1 vers D18, C1 vers A21, D1 vers J3, G1 vers E30, J1 vers E33, T1 vers G40
• Sauvegarder de nouveau fichier, dans un autre répertoire, avec un nouveau nom par exemple (CREATION) puis fermer ce fichier et revenir au fichier initiale

J’ai trouvé comment faire, mais en faisant des copier-coller donc beaucoup d’aller et retour sur les fichiers.

Y a-t-il une solution pour copier toutes les cellules en une fois, les conserver en mémoire, et les coller toutes sur le nouveau fichier ?

Merci de votre aide.

Cordialement

Salut
A tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub CopierColler()   Application.ScreenUpdating = False Application.DisplayAlerts = False   Workbooks.Open "C:\Users\Public\Documents\destination.xls"   Workbooks("origine").Worksheets("Feuil1").Range("A1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("B5")   Workbooks("origine").Worksheets("Feuil1").Range("B1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("D18")   Workbooks("origine").Worksheets("Feuil1").Range("C1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("A21")   Workbooks("origine").Worksheets("Feuil1").Range("D1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("J3")   ActiveWorkbook.Save 'sauvegarde modif destination.xls   ActiveWorkbook.SaveAs Filename:="C:\Users\Public\Documents\creation.xls"   ActiveWorkbook.Close SaveChanges:=True 'fermeture + sauvegarde modif creation.xls   Application.DisplayAlerts = True Application.ScreenUpdating = True   End Sub

---

Bonjour,
En ce qui concerne la copie de cellules présentes dans un classeur vers un autre, voir ma réponse dans cette discussion similaire Copier Coller en VBA le contenu d'une cellule avec le format de la cellule

Citation:

---

Envoyé par hyperion13

Salut
A tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub CopierColler()   Application.ScreenUpdating = False Application.DisplayAlerts = False   Workbooks.Open "C:\Users\Public\Documents\destination.xls"   Workbooks("origine").Worksheets("Feuil1").Range("A1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("B5")   Workbooks("origine").Worksheets("Feuil1").Range("B1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("D18")   Workbooks("origine").Worksheets("Feuil1").Range("C1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("A21")   Workbooks("origine").Worksheets("Feuil1").Range("D1").Copy _ Workbooks("destination").Worksheets("Feuil1").Range("J3")   ActiveWorkbook.Save 'sauvegarde modif destination.xls   ActiveWorkbook.SaveAs Filename:="C:\Users\Public\Documents\creation.xls"   ActiveWorkbook.Close SaveChanges:=True 'fermeture + sauvegarde modif creation.xls   Application.DisplayAlerts = True Application.ScreenUpdating = True   End Sub

---

---

Bonjour @hyperion13, bonjour à tous,

Merci pour la réponse, je mais en pratique à partir de demain. cordialement

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
En ce qui concerne la copie de cellules présentes dans un classeur vers un autre, voir ma réponse dans cette discussion similaire Copier Coller en VBA le contenu d'une cellule avec le format de la cellule

---

Bonjour @hyperion13, bonjour à tous,

Merci pour la réponse, je vais regarder à partir de demain. cordialement