copier une feuille vers un autre classeur

[Mimi]

bonjour à toutes et à tous,
Voilà j'utilise cette macro pour copier une feuille vers un autre classeur :

Sub Macro1()

Range("A1:K53").Select
Selection.Copy
Range("A1").Select

Windows("Sol'Air.xls").Activate
Range("A1:K53").Select
Sheets("Fiche").Paste
Range("A1").Select

End Sub

elle marche bien quand le 2ème classeur porte le mème nom (SolAir), mais le problème c'est que ce 2ème classeur n'a pas le mème nom.
Et là je coince un peu, si quelqu'un avait une petite idée !
D'avance je vous remercie
Michel

 

[Pierrot93]

Re : copier une feuille vers un autre classeur

Bonsoir Michel

essaye peut être la ligne de code ci dessous :

Range("A1:K53").Copy Workbooks(2).Sheets("Fiche").Range("A1:K53")

bonne soirée
@+

 

[Pierrot93]

Re : copier une feuille vers un autre classeur

Attention, part du principe que tu as bien un onglet "Fiche" dans ton 2ème classeur...

 

[Mimi]

Re : copier une feuille vers un autre classeur

Salut,
Désolé ça ne marche pas, j'ai un message d'erreur
Merci
michel

 

[Pierrot93]

Re : copier une feuille vers un autre classeur

Bonjour Michel

le code ci dessous renvoi les données vers le classeur ouvert dans la 2 ème fenêtre Exel, a priori fonctionne si tu as seulement 2 classeurs ouverts et affichés.

Range("A1:K53").Copy Workbooks(Application.Windows(2).Caption).Sheets("Fiche").Range("A1:K53")

on doit sans doute pouvoir mieux faire mais en l'état vois pas trop, si l on utilise l'index il considère aussi les classeurs masqués (type classeur de macro personnel.

bonne journée
@+

 

[Mimi]

Re : copier une feuille vers un autre classeur

Salut Pierrot,
Si il existe autre chose c'est pas grave ta formule me convient très bien
Encore merci pour ton aide
Michel