Transfert de feuille à feuille

bonjour à tous pour mon projet j'aimerais en fait emmener la feuille d'un classeur nommé suivivierge.xlsx

vers n'importe quel classeur par un raccourci clavier

j'ai donc commencer avec ceci

Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
    Sheets("Feuil3").Select
    Sheets("Feuil3").Name = "Nomenclature"
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Feuil5").Select
    Sheets("Feuil5").Name = "SUIVI"
    Sheets("SUIVI").Select
    Sheets("SUIVI").Move Before:=Sheets(1)
    Windows("suivi vierge.xlsx").Activate
    Cells.Select
    Selection.Copy
    Windows("Nouveau Feuille de calcul Microsoft Excel.xlsx").Activate
    Cells.Select
    ActiveSheet.Paste
End Sub

mais il m'indique un message d'erreur sur les lignes Windows

et par ces quelques lignes je m'apperçoit que c'est forcement d'un classeur source vers un autre précis

j'aimerais de mon classeur source donc "suivivierge.xlsx" vers n'importe quel classeur créé

si quelqu'un pourrais m'aider a remettre ce macro d'aplomb

merci d'avance

Bonjour,

Personne ne t'a donné de reponse... Alors quelques questions pour faire avancer le schmilblick :

Ton classeur "suivivierge.xlsx" est ouvert au moment de l'exécution de la macro ?

Tu veux copier une feuille de ce classeur ouvert vers le classeur actif ? Dans sa globalité ?

Ou bien tu veux copier les données de cette feuille et la coller dans la feuille active ?

Rechercher des sujets similaires à "transfert feuille"