Nom de la feuille créée

Le
Fredo P.
Bonjour
La façon dont j'obtiens le nom de la nouvelle feuille créée me semble pas
trop Catho. because le nombre de feuilles présente ne représente pas
forcément la terminaison du nom de la dernière feuille ou me trompje?

Sub AjoutdeFeuille()
On Error GoTo gesterr
Dim wb As Workbook, Code$
Dim Nm$
Sheets("Lot 03_03").Select
Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A1,C2:AD39").ClearContents
[A1].Select
Set wb = ActiveWorkbook
Nm = "Feuil" & Sheets.Count ' Nm¬tiveSheet.name
Code = "Private Sub Worksheet_Change(ByVal Target As Range)" & vbLf
Code = Code & "Compte Target " & vbLf
Code = Code & "End Sub"
wb.VBProject.VBComponents(Nm).CodeModule.AddFromString Code
Set wb = Nothing
End Sub

--
Fredo P.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fredo P.
Le #19142781
J'oubliais: "Nm¬tiveSheet.name" ne me donne pas la bonne feuille .

-
"Fredo P." de news:
Bonjour
La façon dont j'obtiens le nom de la nouvelle feuille créée me semble pas
trop Catho. because le nombre de feuilles présente ne représente pas
forcément la terminaison du nom de la dernière feuille ou me trompje?

Sub AjoutdeFeuille()
On Error GoTo gesterr
Dim wb As Workbook, Code$
Dim Nm$
Sheets("Lot 03_03").Select
Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A1,C2:AD39").ClearContents
[A1].Select
Set wb = ActiveWorkbook
Nm = "Feuil" & Sheets.Count ' Nm¬tiveSheet.name
Code = "Private Sub Worksheet_Change(ByVal Target As Range)" & vbLf
Code = Code & "Compte Target " & vbLf
Code = Code & "End Sub"
wb.VBProject.VBComponents(Nm).CodeModule.AddFromString Code
Set wb = Nothing
End Sub

--
Fredo P.




isabelle
Le #19142901
bonjour Fredo,

as tu mis la commande Nm¬tiveSheet.name
juste après Sheets.Add ?

isabelle

Fredo P. a écrit :
J'oubliais: "Nm¬tiveSheet.name" ne me donne pas la bonne feuille .

-
"Fredo P." de news:

Bonjour
La façon dont j'obtiens le nom de la nouvelle feuille créée me semble pas
trop Catho. because le nombre de feuilles présente ne représente pas
forcément la terminaison du nom de la dernière feuille ou me trompje?

Sub AjoutdeFeuille()
On Error GoTo gesterr
Dim wb As Workbook, Code$
Dim Nm$
Sheets("Lot 03_03").Select
Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("A1,C2:AD39").ClearContents
[A1].Select
Set wb = ActiveWorkbook
Nm = "Feuil" & Sheets.Count ' Nm¬tiveSheet.name
Code = "Private Sub Worksheet_Change(ByVal Target As Range)" & vbLf
Code = Code & "Compte Target " & vbLf
Code = Code & "End Sub"
wb.VBProject.VBComponents(Nm).CodeModule.AddFromString Code
Set wb = Nothing
End Sub

--
Fredo P.










Fredo P.
Le #19145601
> Nm = Activesheet.codename


Merci Denis, encore une apprise!
Fredo P.
Le #19145591
--
Fredo P.
"isabelle" a écrit dans le message de
news:%
bonjour Fredo,

as tu mis la commande Nm¬tiveSheet.name
juste après Sheets.Add ?

isabelle



Oui merci Isabelle, regarde je l'ai mis en Rem parce que cela ne me donnais
pas la bonne feuille,
Denis m'a, je pense, sorti d'affaire avec Nm = Activesheet.codename
>> Sheets.Add


>> ActiveSheet.Paste
>> Range("A1,C2:AD39").ClearContents
>> [A1].Select
>> Set wb = ActiveWorkbook
>> Nm = "Feuil" & Sheets.Count ' Nm¬tiveSheet.name


Publicité
Poster une réponse
Anonyme