Macro qui désactive les macro

Version imprimable

04/06/2013, 11h15
sasafca

Macro qui désactive les macro

Bonjour à tous,

alors voila j'ai un fichier XLS (que l'on va appeler fichier1) qui execute plusieurs macro dont une automatique lorsque le fichier s'ouvre. Une fois le traitement terminé (modification de cellules...), mon fichier1 s'enregistre-sous afin de ne pas être modifié, et donc se transforme en fichier2.
Cependant, quand on ferme le fichier2 et qu'on le reouvre, il contient évidement les macros du fichier du coup les mêmes s'execute au lancement...
J'aimerai donc que les macros soient désactivées dans le fichier2.

Pour sauvegarder le fichier1 en fichier2 j'utilise:

Code:

Application.Dialogs(xlDialogSaveAs).Show

Le plus simple serait que le format d'enregistrement par defaut soit "fichier ne prenant pas en compte les macros".

Merci !

La solution est de copier les feuilles dans un nouveau fichier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub copie()
 
    Dim WST As Worksheet
    Dim WBK As Workbook
    Dim prem As Boolean
    prem = True
 
    Set WBK = Workbooks.Add
    For Each WST In Worksheets
        WST.Copy after:=WBK.Sheets(WBK.Sheets.Count)
        If prem Then
            Application.DisplayAlerts = False
            WBK.Sheets("Feuil1").Delete
            WBK.Sheets("Feuil2").Delete
            WBK.Sheets("Feuil3").Delete
            Application.DisplayAlerts = True
            WBK.Sheets(1).Name = WST.Name
            prem = False
        End If
    Next
 
    WBK.SaveAs CurDir & "\" & ThisWorkbook.Name & " - copie sans macro.xls"
 
End Sub

J'ai utilisé ceci du coup, encore plus simple.

Code:

1
2
3
4
5
NomFichier = Application.GetSaveAsFilename(Code, FileFilter:="XLSX (*.xlsx), *.xlsx", Title:="Enregistrer le fichier...")
 
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

Merci pour l'aide