Copier coller en VBA [Résolu/Fermé]

Signaler
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
Bonjour,

J’utilise le code si dessous pour copier et coller une feuille sur un nouveau classeur.
Ca marche bien, mais le classeur et créé avec une feuille 1 et la copie est réalisée à la suite avec le code normale puisqu’il y a After.

Je n’ai pas trouvé comment copier la feuille sur la feuille 1, donc j’ai ajouté les deux dernières lignes pour remplir la fonction mais cela oblige à répondre oui ou nom à la suppression.

Y a-t-il une méthode plus directe pour faire l’action ?
Je n’ai pas encore trouvé ou compris comment coder.

Dim wk As Workbook
Dim ws As Worksheet

    Set wk = Workbooks.Add(xlWBATWorksheet) 
    Set ws = ThisWorkbook.Worksheets(1)
    ws.Copy After:=wk.Sheets(Sheets.Count)

    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.Delete



Merci pour votre aide

Cordialement

2 réponses

Messages postés
7226
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 janvier 2021
604
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

Merci au Pivert pour ces bons conseilles.
ça marche nickel maintenant

Cordialement