Par Macro, enregistrer le fichier sans les Macros

[malabarbe]

Bonjour à tous,

Comment par Macro, enregistrer le fichier sous
un autre nom mais sans les Macros ?

Ceci fonctionne mais garde les Macros :

    ActiveWorkbook.SaveAs Filename:=fcourse, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Merci pour vos conseils.

 

[MJ13]

Re : Par Macro, enregistrer le fichier sans les Macros

Bonjour malabarbe

Il serait déjà bien de donner ta version.

Sinon si c'est en XL2003 ou version d'avant, il faudra supprimer les macros avant d'enregistrer le fichier. Une petite recherche sur XLD et Hop .

 

[Risleure]

Re : Par Macro, enregistrer le fichier sans les Macros

Bonjour malabarbe, MJ13, Le Forum
Question mainte fois traitée.
Ci dessous un petit code probablement récupèré sur ce Forum

'- le projet à exporter ne doit pas être protégé
'- la librairie Microsoft Visual Basic Extensibility 5.x doit être cochée
Sub copieFeuilleSansModulesNiMacro()
 Dim i As Integer
 Dim oComposant As VBComponent
 Dim sNomModule As String, LigneTitre As String
 ThisWorkbook.Sheets("Feuil1").Copy
 For Each oComposant In ActiveWorkbook.VBProject.VBComponents
    sNomModule = oComposant.Name
    If oComposant.Type = vbext_ct_ClassModule Or vbext_ct_StdModule Or vbext_ct_MSForm Then
        With oComposant.CodeModule
            .DeleteLines 1, .CountOfLines
        End With
    End If
 Next oComposant
End Sub

 

[malabarbe]

Re : Par Macro, enregistrer le fichier sans les Macros

Ok, merci pour vos conseils,

Cela tourne parfaitement.

@ +