En fait, j'ai un fichier dans lequel j'ai une fonction AutoOpen(). Qd j'ouvre ce fichier, une barre d'outils est installée ds l'environnement Word et toutes les fonctions contenues ds Module1 sont installées ds le Normal.dot, c'est une bonne solution car je dois diffuser ma macro sur un grand nombre de postes.
Donc ma fonction pour créer le style est ds un Autoopen() qui se trouve ds le Module1, toi y'en as comprendre?
Bon je te poste ça et tu me dis ok?
Sinon, concernant le fichier, c'est les utilisateurs qui vont utiliser la macro dc ils peuvent ouvrir les fichiers par pleins de façons différentes: avec Fichier/Ouvrir, en l'ouvrant directement , etc...
Et maintenant, la cerise sur le gateau:
Sub AutoOpen()
Dim NormalDotPath As String, MySource As String
NormalDotPath = NormalTemplate.path & Application.PathSeparator & "Normal.dot"
MySource = ActiveDocument.name
With ActiveDocument
.UpdateStylesOnOpen = False
.AttachedTemplate = "Normal"
.XMLSchemaReferences.AutomaticValidation = True
.XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False
End With
On Error GoTo dejala
Application.OrganizerCopy Source:=NormalDotPath, Destination:=MySource, name:="monStyle", Object:=wdOrganizerObjectStyles
On Error GoTo pasla
Application.OrganizerDelete Source:=NormalDotPath, name:="monStyle", Object:=wdOrganizerObjectStyles
Exit Sub
dejala:
Exit Sub
pasla:
Exit Sub
End Sub
Et voilà!
Je te rappel que cette fonction se trouve ds le module1.
Merci!!