[VBA-E]Copier Coller - Meme Mise en Page

Bonjour,

J'ai une macro sous VBA qui me permet de copier une page excel qui se trouve dans le classeur X et de la coller dans une nouvelle feuille excel qui elle se trouve dans le classeur Y.
J'aimerais savoir s'il est possible de garder la même mise en page des 2 feuilles (meme nom de cellule, meme taille des cellules) car dans mon cas, celà ne me le fait pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'on se place sur la cellule sur laquelle copier les valeurs Windows("X.xlsx").Activate 'on active le fichier Sheets("X1").Select 'on active la feuille "Save" Range("A1").Activate   'on se place sur la cellule sur laquelle copier les valeurs Windows("Y.xlsm").Activate Sheets("Y1").Select Sheets("Y1").Range("A1", "F278").Copy   'et on la colle sur le logiciel de calcul Windows("X.xlsx").Activate ActiveSheet.Paste

---

Merci pour votre aide !!!

Utilise pastespecial
Tu n'es pas obligé de sélectionner ton classeur ni ta feuille pour copier de l'un sur l'autre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'on se place sur la cellule sur laquelle copier les valeurs Windows("Y.xlsm").Activate Sheets("Y1").Select Sheets("Y1").Range("A1", "F278").Copy 'et on la colle sur le logiciel de calcul Windows("X.xlsx").Activate ActiveSheet.Paste 'et on la colle le format sur le logiciel de calcul Windows("X.xlsx").Activate ActiveSheet.PasteSpecial Paste:=xlPasteFormats

---

Cette méthode ne permet pas de copier le format des colonnes. pour ça, tu dois ajouter une ligne

Code:

---

Activesheet.PasteSpecial Paste:=xlPasteColumnWidths

---

Si tu copies toute la feuille il y a une autre méthose plus simple

Code:

---

Windows("Y.xlsm").Sheets("Y1").Copy Before:=Workbooks("X.xlsx").Sheets(1)

---

A+

C'est bon, çà marche. Merci