SaveCopyAs mais sans les macros ?

**Zebulon777** · 02/10/2015, 14h50

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** · 02/10/2015, 15h02

bonjour,

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

**Zebulon777** · 02/10/2015, 15h07

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** · 02/10/2015, 15h32

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** · 02/10/2015, 16h04

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** · 02/10/2015, 16h06

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** · 02/10/2015, 16h16

Envoyé par 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

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

Envoyé par 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

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

**antonysansh** · 02/10/2015, 16h22

Envoyé par Zebulon777

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

Etrange, chez moi ça marche tres bien.

**Marc-L** · 02/10/2015, 16h30

Envoyé par Zebulon777

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

Mes Excel 2003 ouvrent les fichiers .xlsx, il y a un module de compatibilité à télécharger chez Microsoft …

Sinon, juste en brûlant deux neurones, une fois enregistré au format .xlsx (donc sans code !)
qu'est-ce qui peut bien empêcher d'enregistrer ensuite ce .xlsx au format .xls ?‼

Deux instructions, et voilà …

**Zebulon777** · 02/10/2015, 16h37

L'application est exécutée avec Excel 2003, je ne peux donc pas gérer dur xslx.

Mais bon, quoi qu'il en soit, je relance, car je vient de me rendre compte que j'avais un problème et un gros : lors de la copie des feuilles, les formules de calcul continue de pointer sur le classeur d'origine et non sur le classeur cible.
Et il y a beaucoup de formules...

Est-ce qu'il y a un moyen de résoudre ce problème ?

**Marc-L** · 02/10/2015, 16h47

Autant pour moi pour la source en 2003 !

Dans ce cas, le plus simple est de ne pas avoir de code dans le fichier de données;
le code se trouvant soit dans un classeur maître pilotant le classeur de données soit dans un add-in (.xla) …

_____________________________________________________________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)

**Zebulon777** · 02/10/2015, 18h19

Oula, cette histoire classeur maitre et de xla, ce n'est pas pour moi, et en plus je n'ai absolument pas le temps de m'y attarder pour le moment.

Non, il faut vraiment que je trouve une solution à cette histoire de formules, maintenant.

En fait, pour être précis, les formules des cellules des feuilles copiées dans le nouveaux classeur se retrouvent avec [AncienClasseur] devant, ce qui fait qu'elles ne fonctionnent plus.

Il faudrait donc supprimer cette partie entre crochet, mais j'aime à croire qu'il y a une solution simple, non ?

**SfJ5Rpw8** · 02/10/2015, 18h20

Bonjour,

comment copie tu les feuilles d'un classeur à l'autre ? une à une ?

**Marc-L** · 02/10/2015, 20h04

Envoyé par Zebulon777

Non, il faut vraiment que je trouve une solution à cette histoire de formules, maintenant.

Trop simple : enregistrer le classeur sous un autre nom puis virer tous les codes, et voilà !

**Zebulon777** · 02/10/2015, 23h27

Envoyé par bbil

Bonjour,

comment copie tu les feuilles d'un classeur à l'autre ? une à une ?

J'ai enregistré un macro que j'ai ensuite adapté dans mon code : je sélectionne toute les feuilles du classeur d'origine, puis je les copie dans un nouveau classeur.

Envoyé par Marc-L

Trop simple : enregistrer le classeur sous un autre nom puis virer tous les codes, et voilà !

Oui, c'est ce que je voulais faire, j'enregistrais le classeur avec un SaveCopyAs, mais ensuite je n'ai pas réussit à supprimer toutes le code VBA que ne doit pas être donné.

Je précise, si besoin est, que tout ceci doit être totalement dynamique, entièrement exécutable en code VBA.

**kiki29** · 03/10/2015, 01h58

Salut, pour info voir Visual Basic Editor

**SfJ5Rpw8** · 03/10/2015, 08h55

Bonjour,

Envoyé par Zebulon777

J'ai enregistré un macro que j'ai ensuite adapté dans mon code : je sélectionne toute les feuilles du classeur d'origine, puis je les copie dans un nouveau classeur.
...

ben je m'étais arrêté sur le fait que les liens entre feuilles étaient conservés si tu copier simultanément ces feuilles ... est-tu sur que tu effectue la copie en une seule opération ...?

as-tu besoin des formules dans le fichier sans macros ?

**Zebulon777** · 05/10/2015, 10h27

Envoyé par kiki29

Salut, pour info voir Visual Basic Editor

Merci, je viens d'essayer la macro "SupprimeTout" mais lorsque je l'exécute dans mon application Excel 2003, j'ai une erreur "Erreur de compilation, type défini par l'utilisation non défini" et je ne sais pas trop quoi faire.

Envoyé par bbil

Bonjour,

ben je m'étais arrêté sur le fait que les liens entre feuilles étaient conservés si tu copier simultanément ces feuilles ... est-tu sur que tu effectue la copie en une seule opération ...?

as-tu besoin des formules dans le fichier sans macros ?

La fonction que j'utilise est celle-ci :

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
 
Sub CopieToutesFeuilles()
'On copie toutes les feuilles dans unn nouveau classeur pour pouvoir l'enregistrer sans les macros.
 
    Sheets(Array("CRM1", "1 A", "1 B", "2 A", "2 B", "3 A", "3 B", "4 A", _
        "4 B", "5 A", "5 B", "6 A", "6 B", "7 A", "7 B", "8 A", "8 B", "9 A", "9 B", "10 A", "10 B" _
        , "11 A", "11 B")).Select
    Sheets("CRM1").Activate
    Sheets(Array("12 A", "12 B", "13 A", "13 B", "14 A", "14 B", "15 A", "15 B", "16 A", _
        "16 B", "17 A", "17 B", "18 A", "18 B", "19 A", "19 B", "20 A", "20 B", "21 A", "21 B", _
        "22 A", "22 B", "23 A", "23 B", "24 A")).Select Replace:=False
    Sheets(Array("24 B", "25 A", "25 B", "26 A", "26 B", "27 A", "27 B", "28 A", "28 B", _
        "29 A", "29 B", "30 A", "30 B", "31 A", "31 B", "QFU_CRM", "02_20", "08_26exceptl", _
        "06_24exceptl", "CONFIG", "MVTORLY", "QFU", "UTILCONF", _
        "UTILISATION DES CONFIGURATIONS", "EVENEMENTS TECHNIQUES")).Select Replace:= _
        False
    Sheets(Array("DISPONIBILITE DES PISTES", "INCIDENT EN VOL", _
        "INCIDENTS PLATE-FORME", "ECOULEMENT DU TRAFIC", "REMISES DE GAZ", "COMMENTAIRES")) _
        .Select Replace:=False
    Sheets(Array("CRM1", "1 A", "1 B", "2 A", "2 B", "3 A", "3 B", "4 A", _
        "4 B", "5 A", "5 B", "6 A", "6 B", "7 A", "7 B", "8 A", "8 B", "9 A", "9 B", "10 A", "10 B" _
        , "11 A", "11 B")).Select
    Sheets("CRM1").Activate
    Sheets(Array("12 A", "12 B", "13 A", "13 B", "14 A", "14 B", "15 A", "15 B", "16 A", _
        "16 B", "17 A", "17 B", "18 A", "18 B", "19 A", "19 B", "20 A", "20 B", "21 A", "21 B", _
        "22 A", "22 B", "23 A", "23 B", "24 A")).Select Replace:=False
    Sheets(Array("24 B", "25 A", "25 B", "26 A", "26 B", "27 A", "27 B", "28 A", "28 B", _
        "29 A", "29 B", "30 A", "30 B", "31 A", "31 B", "QFU_CRM", "02_20", "08_26exceptl", _
        "06_24exceptl", "CONFIG", "MVTORLY", "QFU", "UTILCONF", _
        "UTILISATION DES CONFIGURATIONS", "EVENEMENTS TECHNIQUES")).Select Replace:= _
        False
    Sheets(Array("DISPONIBILITE DES PISTES", "INCIDENT EN VOL", _
        "INCIDENTS PLATE-FORME", "ECOULEMENT DU TRAFIC", "REMISES DE GAZ", "COMMENTAIRES")) _
        .Select Replace:=False
    Sheets(Array("CRM1", "1 A", "1 B", "2 A", "2 B", "3 A", "3 B", "4 A", _
        "4 B", "5 A", "5 B", "6 A", "6 B", "7 A", "7 B", "8 A", "8 B", "9 A", "9 B", "10 A", "10 B" _
        , "11 A", "11 B", "12 A", "12 B", "13 A", "13 B", "14 A", "14 B", "15 A", "15 B", "16 A", _
        "16 B", "17 A", "17 B", "18 A", "18 B", "19 A", "19 B", "20 A", "20 B", "21 A", "21 B", _
        "22 A", "22 B", "23 A", "23 B", "24 A", "24 B", "25 A", "25 B", "26 A", "26 B", "27 A", _
        "27 B", "28 A", "28 B", "29 A", "29 B", "30 A", "30 B", "31 A", "31 B", "QFU_CRM", _
        "02_20", "08_26exceptl", "06_24exceptl", "CONFIG", "MVTORLY", "QFU", "UTILCONF", _
        "UTILISATION DES CONFIGURATIONS", "EVENEMENTS TECHNIQUES", _
        "DISPONIBILITE DES PISTES", "INCIDENT EN VOL", "INCIDENTS PLATE-FORME", _
        "ECOULEMENT DU TRAFIC", "REMISES DE GAZ", "COMMENTAIRES")).Copy
End Sub

Cette fonction a été générée avec l'enregistreur de macro d'Excel, je ne sais donc pas trop quoi te répondre.
Par contre, je te confirme bien que les formules sont absolument indispensables dans le fichier cibles, car des pages sont mises à jour et doivent entraîner la mise à jour d'autres.