C
CELTIC
Guest
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
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