Discussion :

[Oui-Oui MB]

Bonjour !

J'aimerais pouvoir faire cette chose qui parait si simple : sauvegarder mon fichier (sous un autre nom) mais sans les macros.

Le contexte est simple : j'ai un fichier avec des tags spéciaux dedans et un fichier de donnée. Lors de l'ouverture, une macro lit le fichier de donnée et remplis les tags et après doit sauver le fichier (avec un autre nom). Ce dernier ne doit pas contenir de macro...

Est-ce possible ?

[Oui-Oui MB]

Voila j'ai bien chipoté et j'ai trouvé une jolie bidouille pour parvenir à mes fins...

Le truc consiste à sauver le document au format rtf (comme ça, il ne contient plus de macros) puis de le remettre au format doc.

Voici mon bout de code :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub SaveWithoutMacro()
 
    'Enregistre le document sans les macros
 
    'Methode de fou :
    ' - enregistrer le document
    ' - en créer une copie qu'on ouvre (A)
    ' - enregistrer A en tant que rtf (-> enleve les macros)
    ' - re-enregistrer A en tant que doc
 
    Dim path, filename, nfname As String
    Dim docCur, docNew As Document
 
    'Sauvegarde
    ThisDocument.Save
 
    path = ThisDocument.path
    filename = ThisDocument.Name
 
    'Creation d'une copie
    CopyFile path & "\" & filename, path & "\_tmp_" & filename, False
 
    'Ouverture de cette copie
    Set docCur = ThisDocument
    Set docNew = Documents.Open(path & "\_tmp_" & filename)
 
    'Enregistrer docNew en rtf
    docNew.SaveAs filename:=path & "\_tmp_" & filename & ".rtf", FileFormat:=wdFormatRTF
 
    'Fermer ce fichier
    docNew.Close
 
    'Re ouvrir docNew
    Set docNew = Documents.Open(path & "\_tmp_" & filename & ".rtf")
 
    'Sauvegarde en doc
    nfname = Strings.Mid(filename, 2)
    docNew.SaveAs filename:=path & "\" & nfname, FileFormat:=wdFormatDocument
 
    'Kill des 2 fichiers temporaires
    Kill path & "\_tmp_" & filename & ".rtf"
    Kill path & "\_tmp_" & filename
 
    'Fermeture du template
    ThisDocument.Saved = True
    Application.ActiveDocument.Saved = True
    docCur.Close
 
End Sub

[OyoBrans]

ton document doit forcément n'être que du texte, tout ce qui est tableaux, images dégage, non ?

[Heureux-oli]

Le RTF peut contenir des objets sans aucune difficulté.

Tout est gardé, les images, les tableaux et les objets OLE.