OK ça marche impec merci!
Le probléme vennais des caractéres interdits dans les noms de feuille
comme les "-" de Jean-claude ou des parentéses
(un nom de jeune fille)
avec un rechércher/remplacer sa vas
Encor merci
Etienne
eric Multeau a écrit :
Salut,
Nouvel envoi mais avec les commentaires
Salut,
Nouvel envoi mais avec les commentaires sur une autre ligne afin d'éviter
les Pbmes lors du copier coller.
Je viens de la tester chez moi, tout marche impec, il s'agit surement d'1
pbme de mise en forme.
Lors du coller à partir du forum, la fin de ligne des commentaires trop
longs passe
Merci eric de ta reponse. En plus avec les commentaires je peut comprendre.
Mais voilla:
J'ais fais un copier coller (j'ais modifier juste Sub Main qui existais
dejas par Sub eric) de ton code mais il sembles qu'il y ais un petit
probléme:
lorsque je lance la macro sa bloque ici:
osheets.i
Salut,
ci-dessous un code qui devrait correspondre à tes besoins
Sub Main
Fichier1 = thisComponent
Dim oSheets, oSheet as object ' Objet sheets Contenant toutes
les feuilles
oSheets = fichier1.Sheets ' Toutes les feuilles du fichier1
onglet = InputBox("Indiquez le nom de la
Bonjours,
Petite question:
Je veut enregistrer une macros qui me permette de prendre un nom dans
une colone (A1) et qui crée une nouvelle feuilles nommer par par ce nom.
ensuite pareil pour A2 ect.. J'usqua la fin environ 70 noms mais sa change.
Je me suis servi de la fonction "enregistrer une
