voilà, j´utilise ce petit programme (trouvé sur le net) afin de copier ma feuille "calculs" et de nommer la copie position i (i étant un nombre.)
Ce programme a bien fonctionné les premiéres fois mais depuis que j´essaie de le modifier, il refuse de fonctionner....
j´ai une erreur d´incompatibilité de type à la ligne:
i = WorksheetFunction.Max(i, CInt(Mid(S.Name, Len(PREFIX) + 1)) + 1)

voici, le listing du programme:
Sub copier()

Const PREFIX = "Position "
Dim i As Integer

i = 1

For Each S In Sheets
If Left(S.Name, Len(PREFIX)) = PREFIX Then
i = WorksheetFunction.Max(i, CInt(Mid(S.Name, Len(PREFIX) + 1)) + 1)
End If
Next
Sheets("calculs").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = PREFIX & i
End Sub

Merci d´avance

Je n´y connais pas grand chose, mais il n´y a pas des options de debuggage disponible du genre: "option error on" ou encore "option explicit" qui pourrait t´aider ?

si mais ça ne m´avance pas...

Je viens de tester cette procédure dans un classeur vierge et.... ça fonctionne.
Si je la remet dans mon classeur sur lequel je travail: ça bug.
J´y perd mon latin.

Tu pourrais nous donner le message d´erreur précis ?

Mais j´ai l´impression que c´est le Len(PREFIX)+1 qui cloche, car je ne vois pas pourquoi tu as besoin d´un +1 vu que prefix compte déjà un espace.

Alors mid doit renvoyer une chaine vide "". Je ne pense pas que ça gèen CInt qui devrait renvoyer 0, mais ce n´est pas peut-être pas le cas (mais si oui, tu essayerai d´appeler toute tes feuilles "Position 1" et je nesais pas si tes feuilles ont le droit d´avoir le même nom.

eh bien....
je vais pas pouvoir te donner le message d´erreur car.... aprés un plantage d´excel... ca remarche.
J´y comprend vraiment rien.

le message s´était juste : "erreur
d"éxécution 13: incompatibilité de type"
je vais continuer à tester...

bon, je vais trouver une autre méthode...
je ne ferais qu´une seule copie et si une copie existe déjà, je la supprimerais.