Effacer les macro présentes dans un modèle

Fermé
anthonnyy - 7 mars 2013 à 12:38
Bonjour,

J'ai créé un document word modèle accessible en lecture seul et dans lequel il y a cette macro qui s'active à la fermeture

Private Sub Document_Close() 'macro s'active en cliquant sur la croix de fermeture

'défini les variables
Dim nom As String
Dim répertoire As String

'défini le chemin du répertoire
répertoire = "\\bfrclocfp01\Ordo$\CONTROLE\Bilan Fournisseur\Année "

On Error Resume Next
' vérifie l'existence du répertoire année, sinon le créé
ChDir répertoire & Year(Date)
If Err <> 0 Then
MkDir répertoire & Year(Date)
End If

' vérifie l'existence du répertoire Non conformité, sinon le créé
ChDir répertoire & Year(Date) & "\Non conformité"
If Err <> 0 Then
MkDir répertoire & Year(Date) & "\Non conformité"
End If

' vérifie l'existence du répertoire fournisseur, sinon le créé
ChDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result
If Err <> 0 Then
MkDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result
End If

' vérifie l'existence du sous répertoire du nom de la référence de la NC, sinon le créé
ChDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result & "\" & ActiveDocument.FormFields(1).Result
If Err <> 0 Then
MkDir répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result & "\" & ActiveDocument.FormFields(1).Result
End If


'sauvegarde du document
'se place dans le répertoire correspondant
ChangeFileOpenDirectory répertoire & Year(Date) & "\Non conformité\" & ActiveDocument.FormFields(2).Result & "\" & ActiveDocument.FormFields(1).Result

'défini la nomenclature type du nom du fichier word
nom = ActiveDocument.FormFields(1).Result & " " & ActiveDocument.FormFields(2).Result

'vérifie l'existence du fichier word
If Dir(nom & ".doc") <> "" Then
'le fichier existe déjà, proposition de l'écraser ou non
Dim Rep As VbMsgBoxResult
Rep = MsgBox("Le fichier existe déjà, voulez vous écraser la version précédente ?", vbYesNo + vbQuestion, "Confirmation de sauvegarde")
'clic sur oui, document word est écrasé
If Rep = vbYes Then
ActiveDocument.SaveAs FileName:=nom & ".doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End If
'clic sur non, le document peut être sauvegardé en modifiant le nom
Else
ActiveDocument.SaveAs FileName:=nom & ".doc", FileFormat:=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End If
End Sub

elle vérifie l'existence des différents répertoire, les créés au besoin et ensuite archive une copie sous une nomenclature précise.
Tout se passe bien mais mes nouveaux fichiers intègrent eux aussi cette macro. du coup quand j'ouvre ces nouveaux fichiers et que je les referme et bien j'ai la boîte de dialogue qui se met en route.
comment peut on créer ces nouveaux fichiers sans qu'ils intègrent la macro et ainsi pouvoir les gérer comme n'importe quel document word ?

Merci