Discussion :

[Zebulon777]

Bonjour la compagnie,

Jusqu'à présent j'utilisais ActiveWorkbook.SaveCopyAs WFichierCible2 pour copier dynamiquement un classeur en entier, mais il faut maintenant que les macros ne soient pas copiées.
Est-ce qu'il y a un moyen de faire ça ? Un paramètre ?

(Si possible quelque chose qui fonctionne aussi bien avec Excel 2003 que 2010, mais j'en ai surtout besoin pour 2003)

Merci d'avance pour votre aide.

[pasdechances]

bonjour,

Modifie l'extention de ton fichier lors de la saveas, au lieu de save en xlsm, tu fais en xls

[Zebulon777]

Merci, mais c'est en Excel 2003 surtout, donc pas de xlsm et WFichierCible2 contient bien le nom du fichier complet du genre "O:\Rep\fichiercible.XLS".
De plus j'utilise un SaveCopyAs car je ne veux pas toucher au classeur dans lequel la macro est entrain de s'exécuter.

[Zebulon777]

J'ai trouvé une solution qui n'est peut-être pas la meilleure, mais qui fonctionne.
En fait, j'ai fait dans le tout bête : sélection de toutes les feuilles du classeur d'origine, copie dans un nouveau classeur puis enregistrement du classeur.

Merci quand même pour ceux qui se sont penchés sur mon pépin

[Marc-L]

Bonjour, bonjour !

En fait il y a plus simple en enregistrant sous le format de classeur sans macro ‼ (.xlsx) …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[antonysansh]

Bonjour

J'arrive peut être après la bataille mais pas grave ^^

Voilà une routine qui supprime tous les modules standards du classeur actif :
Il faut que la Référence : Microsoft Visual Basic for Application Extensibility 5.3 soit activée

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub supprimer_Modules()
    Dim VBComp As VBComponent
    With ThisWorkbook.VBProject
        For Each VBComp In .VBComponents
            If VBComp.Type = vbext_ct_StdModule Then
                .VBComponents.Remove VBComp
            End If
        Next
    End With
End Sub

Donc tu peux faire un Call supprimer_Modules juste après ton SaveCopyAs

[Zebulon777]

Bonjour, bonjour !

En fait il y a plus simple en enregistrant sous le format de classeur sans macro ‼ (.xlsx) …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Non, impossible, car il faut que ça fonctionne avec Excel 2003.

Bonjour

J'arrive peut être après la bataille mais pas grave ^^

Voilà une routine qui supprime tous les modules standards du classeur actif :
Il faut que la Référence : Microsoft Visual Basic for Application Extensibility 5.3 soit activée

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub supprimer_Modules()
    Dim VBComp As VBComponent
    With ThisWorkbook.VBProject
        For Each VBComp In .VBComponents
            If VBComp.Type = vbext_ct_StdModule Then
                .VBComponents.Remove VBComp
            End If
        Next
    End With
End Sub

Donc tu peux faire un Call supprimer_Modules juste après ton SaveCopyAs

J'avais trouvé et essayé cette petite procédure mais je n'ai pas réussit à la faire fonctionner.