rudy dehaudt
XLDnaute Occasionnel
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
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