pb avec les méthodes sur SHEETS

[Alex]

Bonjour tout le monde !

Je vous explique mon pb, j'ai créé une procédure avec un workbook en paramètre. Ma procédure doit ensuite ajouter une feuille à ce workbook mais la ca coince : "La méthode Name de l'objet _Worksheet a echouée"


*** CODE ***

Sub test(newBk as Workbook)

Dim newSheet as Worksheet
newBk.Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Set newSheet = newBk.Worksheets(Worksheets.Count)
newSheet.Name = "blabla"

end Sub

Merci pour votre aide.

 

[Pascal76]

Salut

Essaies tout simplement

Sub test(newBk as Workbook)

Dim newSheet as Worksheet
newBk.Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Activesheet.Name = "blabla"

end Sub

Bon courage


Pascal

 

[Alex]

yep ca marche merci !

j'ai un autre pb avec la méthode Range, mais je vais lancer un nouveau post.

Mais voici mon pb tout de même : "la méthode Range de l'objet _Worksheet a échouée"


*** CODE ***

Sub MiseEnPage(sheetName As Worksheet)

sheetName.Activate
sheetName.Range(Cells(1, 1), Cells(3, 2)).Select

End Sub