Copier une feuille

zorro75fr Messages postés 11 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 27 février 2004 - 27 févr. 2004 à 18:37
superwolfy Messages postés 8 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 17 mars 2004 - 4 mars 2004 à 19:59
Bonjour

Comment faire en VBA pour copier une fuille dans un classeur surtout sans copier la vba de la fuille copier.

Merci
NANARD :)

1 réponse

superwolfy Messages postés 8 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 17 mars 2004
4 mars 2004 à 19:59
Dabord copier ou déplacer les feuilles dans le classeur : A vérifier si c'est Move ou Copy suivant si c'est pour copier ou pour déplacer.

Sheets(Array("feuilà copier 1", "feuillà copier2")).Move Before:=Workbooks(nomfichiersave & ".xls").Sheets(1)

'effacement des feuilles initiales si c'est un nouveau classeur : pour effacer feuil1 à feuil3
Application.DisplayAlerts = False
Workbooks(nomfichiersave & ".xls").Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete
Application.DisplayAlerts = True

8-) Superwolfy 8-)
0
Rejoignez-nous