Creer un classeur et l'activer au meme temps

Bonjour,

j'ai un ptit probleme, et j'espere trouver la solution grace a votre aide.

je cree un nouveau classeur :

Set xlApp = CreateObject("Excel.Application")
    'On ajoute un classeur
    Set xlBook = xlApp.Workbooks.Add
    'On donne un nom au classeur
    xlBook.SaveAs (CheminCompletClasseurSt)
    'On rend le classeur visible
    xlApp.Visible = True

mais je veux qu'apres cette creation, le nouveau classeur soit activé.

au debut je croyais que par defaut il le sera mais apparement non, car apres la creation j'ai tester avec :

msgbox("le classeur active est : " & activeworkbook.name)

et ça me donne le nom d'un autre classeur .

Merci a vous

bon j'ai fais cela a la place de que je fesais avant, et ça marche

'On ajoute un classeur
    Set Workbook = Application.Workbooks.Add

bon courage