copier feuille de classeur à classeur

bonjour

Windows('départ.xls').Activate
1
nom = ActiveWorkbook.Name
2
nom = ThisWorkbook.Name

au revoir

bonjour Beber
ça ne marche pas , je ne dois pas le fair correctement
voici un peu plus de renseignement

pour déplacer une feuille 'd' de 'DEPART.xls' à 'ARRIVE.xls' , et faire une copie de 'a' à 'd'
mon problème: j'ai besoin de deplacer la feuille 'a' du dossier 'départ.xls' ouvert dans un quelconque autres dossiers ouvert
donc PAR QUOI REMPLACER 'arrivé'

Sub azer()
Windows('départ.xls').Activate
Sheets('d').Select
Sheets('d').Copy Before:=Workbooks('arrivé.xls').Sheets(3)
Sheets('a').Select
Selection.Copy
Sheets('d').Select
Range('A1').Select
ActiveSheet.Paste
End Sub

et si possible comment déplacer une feuille active d'un dossier à un autre

avec tous mes remerciement Jorge

bonjour

excuse,perdu quelque chose en chemin
pour la suite
Sheets('bdd').Copy Before:=Workbooks(Nom).Sheets(3)
au revoir

bonjour

un peu plus simple

Sub azer()
Set WbkD = ThisWorkbook 'Workbooks('départ.xls')
Set ShD = WbkD.Sheets('d')
NomArrivée = Workbooks('Arrivée.xls').Name
WbkD.Activate
ShD.Select
Windows('arrivée.xls').Activate
ShD.Copy Before:=Workbooks(NomArrivée).Sheets(Sheets.Count)
'et içi ou est tu,il faut l'indiquersauf si c'est le même que arrivée.xls
Sheets('a').Select
Selection.Copy
'et içi ou est tu,il faut l'indiquer sauf si c'est le même que arrivée.xls
Sheets('d').Select
Range('A1').Select
ActiveSheet.Paste
End Sub

a +

Désolé Beber
je n'y connais rien

je veus simplement
déplacer la feuille active d'un classeur ouvert vert un autre classeur ouvert

si ce n'est pas possible ce n'est pas grave

Merci bien

bonjour Jorge
explique ce qui ne va pas
la macro doit elle changer de classeur



au revoir