Dictionnaire orthographique personnel

tontonexcel · 11 Avril 2018

Bonjour à tous

J'ai créé un dictionnaire orthographique perso contenant une liste de mots que je souhaite activer à l'ouverture d'un document spécifique
Après quelque recherches simples j'ai trouvé le code suivant :

VB:

Sub active_dico_perso()

CustomDictionaries.ActiveCustomDictionary = _
CustomDictionaries(ThisDocument.Path & Application.PathSeparator & "VBA.dic")

End Sub

En exécutant la macro, elle ne plante pas, mais le dictionnaire n'est pas activé alors qu'il est bien visible dans les options de vérification
J'ai vérifié le chemin, il est valide
Avez-vous une (ou des) explication ?
Merci

tontonexcel · 11 Avril 2018

J'ai corrigé le programme comme suit qui fonctionne :

VB:

Sub active_dico_perso()

Dim dicoperso As Dictionary

Set dicoperso = _
Application.CustomDictionaries.Add(FileName:=ThisDocument.Path & Application.PathSeparator & "VBA.dic")

CustomDictionaries.ActiveCustomDictionary = dicoperso
End Sub

Maintenant je ne comprends pas pourquoi je dois faire une méthode Add alors que le dictionnaire existe déjà
Si quelqu'un trouve une explication merci

Dictionnaire orthographique personnel

tontonexcel

XLDnaute Occasionnel

tontonexcel

XLDnaute Occasionnel

Discussions similaires