Couper coller de feuilles

bonsoir

j'ai un tout petit soucis avec une formulation en vba

je dispose de deux classeurs A et B , je souhaite "couper coller " la feuille active de B dans A , ( donc ma feuille active peut etre n'importe qu'elle feuille de B sur laquelle je me trouve)

j'ai ecris ceci

sub couper_coller
With Workbooks("B.xls")
    activeSheets.Select
    activeSheets.Move Before:=Workbooks("A.xls").Sheets(1)
    End With
End Sub

je ne comprend pas pourquoi j'ai l'information " activeSheets.select" non definie , puisque c'est la feuille sur laquelle je me trouve

le but etant de ne pas remplacer activesheets par le nom de la feuille sur laquelle je me trouve

Merci pour vos conseils

Bonsoir,

Comme tu le vois toi-même, dans ton code, activesheets n'a pas de majuscule....

Si tu l'avais écrit ainsi :

ActiveSheet

Tu n'aurais sans doute pas ce souci....

De plus, ton "With", "End With" ne sert à rien....

Ceci devrait faire l'affaire :

Sub couper_coller()
ActiveSheet.Move Before:=Workbooks("A.xls").Sheets(1)
End Sub

Bonne soirée

Je te remercie ,c'est en effet peu de chose

remoi

j'ai rectifié comme suit :

Sub couper_coller_feuille()
dim A as workbooks

    Workbooks.Open ("C:\Users\ROCKET\Desktop\A.xls")

    With Workbooks("B.xls")
        ActiveSheet.Activate
        ActiveSheet.Select

        ActiveSheet.Move after:=Workbooks("A.xls").Sheets(2)
        End With
    End Sub

le classeur A s'ouvre bien , mais la feuille active n'est pas copiée ,j'ai aucun bug , mon code vous semble t il exact ?

merci

Re-,

comme tu ouvres un fichier, tu n'es donc plus sur la feuille que tu désires "couper"....

Essaie ainsi :

Sub couper_coller_feuille()
Dim FeuilACopier As Worksheet 'déclaration variable
Application.ScreenUpdating = False 'masquer les raffraichissements
Set FeuilACopier = ActiveSheet 'définit la feuille
Workbooks.Open ("C:\Users\ROCKET\Desktop\A.xls") 'ouvre le fichier A
FeuilACopier.Move after:=ActiveWorkbook.Sheets(2) 'coupe la feuille et la colle
ActiveWorkbook.Close True 'ferme le fichier A en enregistrant les modifications
End Sub

Bonne soirée

Merci pour cette correction , du coup j'ai appris des bonnes choses