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
-
mijean94
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
6480
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 janvier 2020
439
Bonjour,

Pour ne pas avoir de message, voir ceci:

https://msdn.microsoft.com/fr-fr/library/office/ff839782.aspx
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