Renommer plusieurs feuilles
B
Bonsoir les amis,
Je rencontre un problème erreur d'exécution 9 sur le programme suivant :
Sachant que le programme fonctionne sauf que j'ai à chaque fois le code d'erreur 9
Sub renommefeuille()
Dim num As Integer
Dim ligne As Integer
nbligne = Worksheets(1).Range("D1")
num = 2
For ligne = 1 To nbligne
num = num + 1
Sheets(num).Name = Sheets(1).Cells(ligne, 1).Value
Next ligne
End Sub
Merci pour votre aide
Bonsoir,
nbligne = combien ?
num = 2, puis num = num + 1 donc la première feuille renommée a un index de trois. Mais par rapport à nbligne qui est peut-être égale à 10, alors il vous faut au minimum 13 feuilles dans votre classeur, non ?
@ bientôt
LouReeD