nommage de feuille dans macro

[grodep]

je cherche, je cherche mais sans succès, aussi me tourné-je vers vous pour ce petit souci :
la formule

With ActiveWorkbook.VBProject.VBComponents("Feuil27").CodeModule

n'accepte pas d'être écrite :

With ActiveWorkbook.VBProject.VBComponents("prévi").CodeModule

(prévi étant le nom de ma feuille telle qu'elle est créée lors de l'initialisation de mon classeur

With ThisWorkbook
vry = Array("prévi", "vols", "sols", "recap")
    For i = 1 To 4
        .Sheets.Add after:=.Sheets(.Sheets.Count)
        .Sheets(.Sheets.Count).Name = vry(i)
    Next i
End With

Mon problème est que je ne peux pas savoir à l'avance le "numéro" de la feuille créée, ce qui rend de facto la structure de ma formule bancale.
Y a t'il un moyen de contourner ce probleme et si oui lequel?
merci à tous de vos avis et conseils.

 

[Cousinhub]

Re : nommage de feuille dans macro

Bonsoir,

essaie ainsi :

With ActiveWorkbook.VBProject.VBComponents(Sheets("prévi").CodeName).CodeModule

Bonne soirée

 

[grodep]

Re : nommage de feuille dans macro

merci pour cette réponse aussi rapide qu'efficace.