créer une feuille à chaque ouverture

[daniel]

bonjour,
dans un fichier, je souhaite créer une feuille supplémentaire lors de chaque ouverture de ce fichier. Jusque là ça va (je passe par 'add', mais là où cela se complique, c'est que je souhaite renommer cette nouvelle feuille.
En effet, il faut faire référence à la feuille créer (ex: feuil4) pour le renommer mais la fois prochaine, ce sera un autre nom en l'occurence 'feuil5). Donc je serai rester avec 'feuil4' dans ma macro.

Avez-vous une idée pour que je puisse renommer une feuille automatiquement à chaque fois qu'elle est crée ?
merci d'avance

 

[CBernardT]

Bonjour Daniel,

Je te propose d'aller voir sur ce fil :


Lien supprimé

Je pense qu'il y a quelque chose d'utile à ton problème. Si cela ne te convient pas, reviens sur ton fil.

Cordialement

Bernard

 

[dg62]

Bonsoir Daniel

Sub ajoutfeuille()
dim rep as string

Sheets.Add
    rep = InputBox('Quel nom voulez-vous donner à la nouvelle feuille ?', 'Création nouvelle feuille')
    
    ActiveSheet.Name = rep

Cordialement