changement de styles dans une macro word

Bonjour,

je suis en train de reéaliser une application en VB, qui a pour finalité de generer un doc word. J'ai un probleme au moment de creer les titres

j'ecris :

    Dim objWord As Word.Application

    objWord.Documents.Add Template:= _
    "C:\Documents and Settings\gvachon\Application Data\Microsoft\Modèles\En tete proposition.dot" _
    , NewTemplate:=False, DocumentType:=0
    objWord.Activate
    ActiveDocument.UpdateStylesOnOpen = True

    objWord.Selection.Style = ActiveDocument.Styles("Titre 1;Section;Tempo Heading 1;H1;PA Chapter;heading a;Module             Header;h1;L1;Prophead level 1;Prophead 1;Heading 1k;ICL Title;l1;list;.normal;Lev 1;lev1;Section heading;Forward;new             page/chapter;Chapter Headline;Thema;Section Heading;Heading A;Heading1;t1;I")

et l'appli me renvoie une erreur : la mehode styles de l'objet selection a echoué

qu'est ce que je fais a l'envers plz

merci

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

ca marche du tonnerre !! J'ai du changer aussi activedocument pour docword parce que sinon il ne le reconaissais pas, et grace a ton conseil ca marche merci tu me sors du gouffre

merci encore

guillaume

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler