' Message affiché si on essaye de désinstaller la fonctionnalité non installée
1: MsgBox "La barre de commande n'est pas installée !", vbOKOnly + vbInformation, "New_bar"
End Sub
Et à ce sujet j'ai une question à tous les lecteurs :
Malgré l'effacement du module , la taille du fichier normal.dot ne redevient pas ce qu'elle était avant l'ajout de la fonctionnalité, et bien que le module ne soit plus visible avec l'explorateur de projet de VBA, si on ouvre le fichier normal.dot avec notepad, on constate que le texte des codes du module sont toujours présent dans le fichier ! Qui en connaît l'explication ?
31 janv. 2007 à 11:43
Je cherchais le mode opératoire pour réaliser cette fonctionnalité et votre exemple est un bon point de départ.
Juste une remarque, j'ai ajouté l'effacement du module dans le fichier normal.dot
soit :
CustomizationContext = NormalTemplate
Application.OrganizerDelete Source:=NormalTemplate.Name, _
Name:="New_bar", _
Object:=wdOrganizerObjectProjectItems
ce qui donne dans la source :
Public Sub Del_Tools()
' Suppression de la fonctionnalité de suivi des FT
On Error GoTo 1 'Ne rien faire si le tools n'existe pas
Application.CommandBars("New_bar").Delete
CustomizationContext = NormalTemplate
Application.OrganizerDelete Source:=NormalTemplate.Name, _
Name:="New_bar", _
Object:=wdOrganizerObjectProjectItems
NormalTemplate.Save
Exit Sub
' Message affiché si on essaye de désinstaller la fonctionnalité non installée
1: MsgBox "La barre de commande n'est pas installée !", vbOKOnly + vbInformation, "New_bar"
End Sub
Et à ce sujet j'ai une question à tous les lecteurs :
Malgré l'effacement du module , la taille du fichier normal.dot ne redevient pas ce qu'elle était avant l'ajout de la fonctionnalité, et bien que le module ne soit plus visible avec l'explorateur de projet de VBA, si on ouvre le fichier normal.dot avec notepad, on constate que le texte des codes du module sont toujours présent dans le fichier ! Qui en connaît l'explication ?
Merci