Discussion :

[mijean94]

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

[hyperion13]

Salut
A tester

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
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

[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

[mijean94]

Salut
A tester

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
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

[mijean94]

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