Discussion :

[Enthau]

Bonjour,

j'ai un fichier Excel, et lorsque je le sauvegarde, je souhaite sauvegarder en même temps une copie à un autre emplacement.
Pour cela, j'ai ce code :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Chemin = "\\serveur\partage\"
    ThisWorkbook.SaveAs Chemin & "MaCopie.xls"
End Sub

Le problème, c'est que ça me garde la macro.
Comment faire pour que la copie soit sans code VBA ?

Merci

[Krovax]

Je pense que tu pourrais essayer de supprimer le code par la suite. Quelques idées :
Une contribution de ouskel'n'or pour supprimer les module
http://www.developpez.net/forums/d33...fichier-donne/
Le tuto pour piloter l'éditeur de macro
http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Après ne te lance pas tout de suite il est probable que quelqu'un ai une méthode directe bien plus simple

[aalex_38]

Bonjour,

A mon avis tout dépend si tu as du code dans les feuilles ou pas.

Si tu n'as pas de code, il te suffit de copier les feuilles dans un nouveau classeur.

Sinon je ne vois pas de solution de contournement à part la suppression du code.

Edit : Une autre solution possible serait de recopier toutes les données d'un classeur a l'autre, mais dans ce cas je prfère la suppression de macro.

Edit2 : Même dans ma version 2003, je viens de me rendre compte que je peux convertir au format 2007 et avec l'extension xlsx plus de macro, je n'ai pas essayé si c'est possible par code, a voir.

[Krovax]

Edit2 : Même dans ma version 2003, je viens de me rendre compte que je peux convertir au format 2007 et avec l'extension xlsx plus de macro, je n'ai pas essayé si c'est possible par code, a voir.

A condition d'avoir installer la mise a jour pour être compatible avec 2007. Ce qui n'est pas le cas partout (en tout cas c'est pas fait la ou je suis )
Mais si cela est possible c'est la solution la plus simple

[Enthau]

Je n'ai pas de code dans les feuilles.
Comment faire pour copier les feuilles dans un nouveau classeur ? En plus, j'ai une dizaine de feuilles...
Merci

[Krovax]

Pour copier les feuilles

Code :

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

1
2
3
4
5
6
7
8
9
 
dim ws as worksheet 'déclaration de la variable ws est du type onglet
Application.ScreenUpdating = False 'pas de mise a jour de l'écran
For each ws in thisworkbook.worksheets
'pour chaque onglet parmis les onglets de ce classeur
ws.Copy After:=Workbooks("CopisansMacro.xls").Sheets(Workbooks("CopisansMacro.xls").sheets.count)
'on copy le 'onglet après le dernier du classeur CopisansMacro.xls
next ws
Application.ScreenUpdating = True 'mise a jour de l'écran

Ps : Cela ne fonctionnera pas avec les onglet Graphique

Edit : j'ai ajouté les Application.ScreenUpdating