Discussion :

[OlivierAuTravail]

Je dois changer le chemin de la macro rattachée de qques centaines de doc Word

Alors j'ai fait un VBScript. Le seul pb est que bien que mon word soit en niveau de sécurité macro "élevé", il exécute le code de la macro rattachée !! ce qui est normal vu que VbScript doit s'exécuter. Alors comment faire pour juste changer le nom de la macro rattachée (que je dois lire et en fonction de celui-ci je le remplace par un tel ou tel chemin) SANS EXECUTER le code de cette macro rattachée !!!

Voici le code du vbscript :

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
22
23
24
25
26
27
28
29
Dim fso, f, fc, fileWriter, NomAvant, NomApres, TRUC
set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set fso = CreateObject("Scripting.FileSystemObject") 
'Répertoire des éditions à modifier
Set f = fso.GetFolder("D:\Travail en cours\Test Editon 1")
Set fc = f.Files
For Each f1 in fc
 objWord.visible = False 
 
 Set objDoc = objWord.Documents.Open(f1.Path)
 'le code de la macro s'eécute ici, alors que je ne le veux pas !!!
 'Lecture du nom du dot rattaché
 NomAvant = objDoc.AttachedTemplate
 MsgBox ("Actuel:" & NomAvant)
 
 'Srvsieprod1 ?
 TRUC = Left(NomAvant,13)
 MsgBox("Nom de 13 de long : " & TRUC)
 If Left(NomAvant,13) = " \\tralala " Then
  'On met le nouveau chemin et on ajoute le reste
  TRUC = Right(NomAvant, (Len(NomAvant)-13))
  MsgBox("Reste de la chaine : " & TRUC)
  objDoc.AttachedTemplate = " \\choubidou " & Right(NomAvant, (Len(NomAvant)-13))
  objDoc.SaveAs(f.Path&"\S"&f1.name)
 End If
 objDoc.Close
 Set objDoc = nothing
Next

[ced600]

J'ai pas compris, peux tu le refaire en plus explicite stp ?

[SfJ5Rpw8]

Pour désactiver l'exécution d'une macro à l'ouverture de word, regarde dans l'aide en ligne les options de la commande Open...

[OlivierAuTravail]

Code :

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

1
2
3
'Ouverture du Word Sans activer la macro rattachée
 objWord.Application.WordBasic.DisableAutoMacros 1
 Set objDoc = objWord.Documents.Open(f1.Path)

Maintenant, si ma macro rattachée est sous par exemple D:\\truc\macro.dot,

Code :

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

MsgBox ("Actuel:" & objDoc.AttachedTemplate)

affichera
Actuel:macro.dot
alors que j'attends
D:\\truc\macro.dot

Euuhhh zolé pour la complexité de mon exposé....