[VBA] Sauvegarder une copie sans les macros
Résolu/Fermé
Elboubdelapampa
Messages postés
171
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
18 mars 2012
-
21 juil. 2010 à 14:25
jojo - 1 mai 2013 à 19:54
jojo - 1 mai 2013 à 19:54
A voir également:
- [VBA] Sauvegarder une copie sans les macros
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Comment sauvegarder toutes les données de mon téléphone - Guide
2 réponses
Elboubdelapampa
Messages postés
171
Date d'inscription
mardi 26 janvier 2010
Statut
Membre
Dernière intervention
18 mars 2012
7
21 juil. 2010 à 15:41
21 juil. 2010 à 15:41
Merci, j'ai essayé, le Save as fonctionne bien, par contre à la ligne
With ActiveWorkbook.VBProject, j'obtient le message d'erreur
Laufzeitfehler '1004'
Die Methode 'VBProject' für das Objekt '_Workbook' ist fehlgeschlagen
Ce qui peut être traduit par:
Erreur '1004'
La méthode 'VBProject' pour l'objet '_Workbook' a échoué
Une idée?
With ActiveWorkbook.VBProject, j'obtient le message d'erreur
Laufzeitfehler '1004'
Die Methode 'VBProject' für das Objekt '_Workbook' ist fehlgeschlagen
Ce qui peut être traduit par:
Erreur '1004'
La méthode 'VBProject' pour l'objet '_Workbook' a échoué
Une idée?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
21 juil. 2010 à 14:48
21 juil. 2010 à 14:48
Bonjour,
Peut être une solution ici de Frédéric Sigonneau, Laurent Longre rien que ça!!!
Le code :
Peut être une solution ici de Frédéric Sigonneau, Laurent Longre rien que ça!!!
Le code :
sub SaveAsWithoutMacros() Dim NomSource$, CheminDest$, NomDest$ Dim VBC As Object NomSource = "EssaiSaveAs.xls" 'à adapter CheminDest = "C:\WindowsTemp" 'à adapter NomDest = "Essai.xls" 'à adapter Workbooks(NomSource).SaveAs CheminDest & NomDest With ActiveWorkbook.VBProject 'cette partie du code est de Laurent Longre For Each VBC In .VBComponents If VBC.Type = 100 Then With VBC.CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With Else: .VBComponents.Remove VBC End If Next VBC 'LL End With Application.Quit SendKeys "%O" end sub
21 juil. 2010 à 16:36
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
21 juil. 2010 à 16:49
Merci pour le temps que t'as pris, ça faisait un moment que je travaillais sur le problème.
21 juil. 2010 à 16:50
Bon courage pour la suite et n'hésite pas à revenir
1 mai 2013 à 19:54
je veux utiliser le code ci-dessus mais je ne m'en sors pas;
je veux creer une copie de mon classeur et l'enrégistrer dans un repertoire ( sous un autre nom) en détruisant les macros; sans fermer mon classeur de travaille. le classeur destination doit etre fermer pour une autre personne. je veux en somme faire des enrégistrement de mon classeur sans les macros s