problème copy after excel 97

[CELTIC]

Bonjour a tous
je serai bref et précis...

mon code:

Private Sub CommandButton1_Click()
Dim iCompteur As Integer
Dim feuille As Worksheet

iCompteur = Worksheets.Count
Worksheets(1).Copy After:=Worksheets(iCompteur)
iCompteur = iCompteur + 1
Set feuille = Worksheets(iCompteur)
feuille.Name = 'BLN°' & iCompteur
Sheets(Sheets.Count).Range('G1') = iCompteur
Sheets(Sheets.Count).Range('G2') = Now

End Sub

il fonctionne sur EXCEL 200X
mais pas sur excel 97 (a cause de copy after a mon avis) kel kode pour remplacercopy after ??

merci d'avance a toutes les réponses

 

[Jacques87]

Bonjour

Je partage ton analyse
Il faudrait essayer avec 'Before' qui devrait passer

Bon courage

 

[PascalXLD]

Bonjour

n'y aurait-il pas non plus la possibilité de le faire en 2 fois

un copy

et ensuite un moveafter

Mais bon je n'ai pas 97 sous la main pour tester donc je dis peut-être une anerie

Bonne journée

 

[Jacques87]

Bonjour Pascal

J'ai une version 97 qui traîne sur mon portable, et de ce fait j'ai regardé comment une macro procédait

Voila ce que j'ai vu pour copier la feuille 2 devant la feuille 1

Sheets('Feuil2').Select
Sheets('Feuil2').Copy Before:=Sheets(1)

et par contre, si je demande qu'une copie se place en dernière position, voila ce que j'obtiens ??

Sheets('Feuil1').Select
Sheets('Feuil1').Copy After:=Sheets(4)

conclusion l'option 'After' est utilisable

A approfondir, je regarderai plus tard

 

[Charly2]

Bonsoir CELTIC, Jacques et Pascal 🙂

J'ai XL97 sous Win98SE et ton code passe sans aucune difficulté. Le 'Copy After:=', je l'utilise très souvent et il m'est arrivé une seule fois d'avoir des difficultés de code, malheureusement je n'ai pas noté la manière dont j'ai résolu ce problème...

A+ 😉