modification de code VBA

[rudy dehaudt]

Bonsoir,
je ne trouve pourquoi le code ci dessous ne continu pas à créer des feuilles nommé 12708 puis 12709 etc..
il me renomme les feuilles soit en 127081 ( avec le signe + ) soit en 12708-1 ( avec le signe - ) ?
pourriez vous jeter un coup d’œil ? ( même j'ai changer de procédure avec le fichier "bon de commande et réclamation" la problématique des copier / renommer m agace un peu, donc je cherche... )

merci
A+


Sub deplacercopier()
Dim NomFeuille As String
Dim Compteur As Integer

Application.ScreenUpdating = False
Sheets("12708").Copy After:=Sheets(Sheets.Count)
On Error Resume Next
Do
Err.Clear
Compteur = Compteur + 1
NomFeuille = "12708" & Compteur
ActiveSheet.Name = NomFeuille
Loop Until Err.Number = 0
On Error GoTo 0
End Sub

 

[Robert]

Re : modification de code VBA

Bonsoir Rudy, bonsoir le forum,

Peut-etre en modifiant la ligne comme ça :

NomFeuille = CStr(12708 + Compteur)

 

[rudy dehaudt]

Re : modification de code VBA

Bonsoir Robert,
je viens de tester et c'est impect.
le code modifier, ça peut aider d'autre personne ?

Merci
A+

Private Sub CommandButton1_Click()
' copie un onglet et le renomme par un sur de chiffre
Dim NomFeuille As String
Dim Compteur As Integer

Application.ScreenUpdating = False
Sheets("12708").Copy After:=Sheets(Sheets.Count)
On Error Resume Next
Do
Err.Clear
Compteur = Compteur + 1 ' mettre - pour un décompte
NomFeuille = CStr(12708 + Compteur)

ActiveSheet.Name = NomFeuille
Loop Until Err.Number = 0
On Error GoTo 0
End Sub