Discussion :

[Corlo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

    Activesheet.PasteSpecial Paste:=xlPasteColumnWidths

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Corlo]

C'est bon, çà marche. Merci