[VBA-W]Activation auto des macros au lancement d'un document

**yellowdog** · 31/01/2006, 10h32

Bonjour,

Est il possible en VBA dans un document WORD d'activer automatiquement les macros à l'ouverture du document sans avoir à cliquer sur le champ Activer les Macros.
Il va de soit qu'à la fermeture du document dans la sous routine
Private Sub Document_Close()
je réinitialise .VirusProtection = True.

En fait je ne sais pas ou déclarer .VirusProtection = False dans le source VBA pour que cette commande soit prise en compte à l'ouverture du document.
Car si je place ce code dans Private Sub Document_Open(), il demande d'activer les macros à l'ouverture du document.

Merci pour la réponse.

**ouskel'n'or** · 31/01/2006, 10h37

Mais oui, ça existe. Tu aurais sans doute trouvé ça dans la FAC mais voici tout de même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub AutoExec()
Main
End Sub
 
Public Sub Main()
Dim r
    Options.DefaultFilePath(Path:=wdDocumentsPath) = "D:\doc"
    Options.ReplaceSelection = True
End Sub

Main est lancé à l'ouverture du fichier.
Cette syntaxe est utilisée sur Office97, sans doute a-t-elle évolué depuis

A+

Edit
Si ta version est postérieure à 97, regarde dans l'aide à Document_Open

**yellowdog** · 31/01/2006, 10h51

Où dois je déclarer cette Public Sub ???
Dans l'objet ThisDocument et je déclare cette sous routine dans Général ou dois je créer un module????
Car après avoir testé le code dans ThisDocument, ça ne fonctionne toujours pas.

**ouskel'n'or** · 31/01/2006, 11h07

Tu dois mettre ce code dans un module du document concerné
Dans VBEditor : Insertion -> Module

A+

**yellowdog** · 31/01/2006, 11h29

Après création d'un module (appelé module1) dans le fichier et copie du source suivant, à l'ouverture du document, j'ai toujours l'invite d'activer ou désactiver les macros.
Pourquoi celà ne fonctionne t'il pas ????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Main()
    With Options
        .Pagination = True
        .WPHelp = False
        .WPDocNavKeys = False
        .ShortMenuNames = False
        .RTFInClipboard = True
        .BlueScreen = False
        .EnableSound = False
        .ConfirmConversions = False
        .UpdateLinksAtOpen = True
        .SendMailAttach = True
        .MeasurementUnit = wdCentimeters
        .AnimateScreenMovements = True
        [b].VirusProtection = False[/b]   
   End With
End Sub

**Catbull** · 31/01/2006, 11h38

La stratégie de sécurité est indépendante de la nature des macros. Et heureusement.

Tu dois redéfinir la stratégie de sécurité de l'appicatif Microsoft Word. Si tu souhaites exécuter ta macro sans avoir à valider le message d'alerte, alors définie le niveau de sécurité à 'bas'.

Menu Outils > Macro > Sécurité > niveau de sécurité bas (non recommandé)

**yellowdog** · 31/01/2006, 11h50

Ce sont des macros que je créé pour un WORD97 et cette option n'existe pas dans cette version....

**ThierryAIM** · 31/01/2006, 12h10

Tu n'aurais pas oublié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub AutoExec() 
Main 
End Sub

comme te l'as dit ouskel'n'or

**yellowdog** · 31/01/2006, 12h22

Même avec ou sans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub AutoExec() 
Main 
End Sub

dans le module ça ne marche pas.
J'ai ceci dans mon module.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub AutoExec()
    Main
End Sub
 
Public Sub Main()
    With Options
        .Pagination = True
        .WPHelp = False
        .WPDocNavKeys = False
        .ShortMenuNames = False
        .RTFInClipboard = True
        .BlueScreen = False
        .EnableSound = False
        .ConfirmConversions = False
        .UpdateLinksAtOpen = True
        .SendMailAttach = True
        .MeasurementUnit = wdCentimeters
        .AnimateScreenMovements = True
        .VirusProtection = False
    End With
End Sub

**ouskel'n'or** · 31/01/2006, 12h35

NB - Tu peux simplifier tes lignes en supprimant toutes celles dont les paramètres par défaut sont inutilement précisés.

Juste pour info

A+

**yellowdog** · 31/01/2006, 12h36

Le HIC est que je veux le faire pour WORD et même après fermeture de WORD, ça ne marche pas.
Qu'est ce que je peux faire de mal, ou un paramètrage dans les options WORD97 ??????

**jmfmarques** · 31/01/2006, 12h45

une macro AutoOpen ou Auto_Open selon la version

**yellowdog** · 31/01/2006, 12h48

QUE ZACO ?????
JE ne comprends pas.....
Cette fonction n'existe pas dans VBA WORD97....

Des explications ???

**jmfmarques** · 31/01/2006, 12h50

Ce n'est pas une fonction. C'est l'une des macros particulières. ==>> aide en ligne/ rechercher

voir aussi : RunAutoMacros, méthode

**ouskel'n'or** · 31/01/2006, 13h53

Attends... avant de toucher quoi que ce soit, essaie de mettre
Application.displayAlerts = False en début de la Sub Main
(Tu laisses ton code de désactivation de la protection, après)
Tu enregistres et tu tentes d'ouvrir de nouveau.

Tu dis, on verra ensuite.

A+

PS - Autant pour moi, dans les posts précédent, je parlais d'Excel... De passer d'une question à l'autre, je n'étais pas revenu sur word.
J'efface ces posts.

**ouskel'n'or** · 31/01/2006, 14h12

Eh non, ce n'est pas ça...
Pour que .VirusProtection = False soit pris en compte par macro, j'ai été obligé de faire une boucle, et la ça marche (VBA97)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    With Options
        Do While Options.VirusProtection
            .VirusProtection = False
        Loop
    End With

Tu remplaces ta/tes ligne(s) de désactivation par ça et tu nous dis

A+

**yellowdog** · 31/01/2006, 15h10

Le résultat est le même ......................
Toujours l'invite d'activation /désactivation des macros

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub AutoExec()
    Main
End Sub
 
Public Sub Main()
  Application.DisplayAlerts = False
    With Options
        .VirusProtection = False
    End With
End Sub

**ouskel'n'or** · 31/01/2006, 15h30

Alors tu as problème spécifique, que je n'ai pas, sans doute lié à ton Normal.dot dont l'option reste validée (?)
Une question cependant : Tu sors bien de la boucle ?
Tu as vérifié l'option dans le menu Outils->Options pour voir si la modif a été prise en compte ?

A+

**yellowdog** · 31/01/2006, 15h39

Ca ne marche toujours pas avec le source suivant dans le module.
J'ai l'impression que ce n'est pas possible à effectuer en version 97 de WORD.........................

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub AutoExec()
    Main
End Sub
 
Public Sub Main()
  Application.DisplayAlerts = False
    With Options
        .VirusProtection = False
    End With
End Sub