Copier une feuille en VBA et la placer en dernier

[christian.bedere]

Bonjour dominical au forum !

Quelle formule magique existe t'il pour copier une feuille 'ftk' et la placer automatiquement après toutes les autres feuilles qui ont été crées, sachant que leur nombre est indéfini.
J'ai saisis pour l'instant :
worksheets('ftk').copy after:=sheets(13)
, mais si je veux copier une 14° feuille, avec cette formule, il copie 'ftk' et la place en 13 position et non en 14°, c'est un peu compliqué non ??
Merci à vous de m'apporter votre aide
Bonne journée
Christian

 

[JC de Lorient]

Salut Christian

qqchose comme ça devrait le faire

Dim a As Byte
a = Sheets.Count
Sheets('Feuil1').Select
Sheets('Feuil1').Copy After:=Sheets(a)
End Sub


JC

 

[ChTi160]

Re:Copier une feuille en VBA et la placer en derni

Salut Christian

je pense que de cette facon celà devrait marcher
worksheets('ftk').copy after:=sheets(Sheets.count)
bonne fin de Journée

Oupssssssss Salut JC excuse

Message édité par: Chti160, à: 18/12/2005 16:04

 

[christian.bedere]

Re:Copier une feuille en VBA et la placer en derni

Salut Jean Marie, et JC

Merci ! en un mot : formidable .....

Génial ce forum! et vous alors , que dire de plus ??
Merci, tout simplement et à bientôt je pense ...
Bon dimanche à tous
Christian