[VBA] Sauvegarder une copie sans les macros
Résolu
Elboubdelapampa
Messages postés
171
Date d'inscription
Statut
Membre
Dernière intervention
-
jojo -
jojo -
Bonjour,
J'ai un classeur Excel avec des macros. J'aimerais qu'à la fin du processus automatique, la macro sauvegarde une copie du fichier sans les macros.
Vu que j'ai des pages de graphique avec des liens, je ne peut pas me limiter à copier-coller les données dans d'autre classeurs.
Est ce que c'est possible de sauvegarder un classeur sans les macros?
Merci d'avance
J'ai un classeur Excel avec des macros. J'aimerais qu'à la fin du processus automatique, la macro sauvegarde une copie du fichier sans les macros.
Vu que j'ai des pages de graphique avec des liens, je ne peut pas me limiter à copier-coller les données dans d'autre classeurs.
Est ce que c'est possible de sauvegarder un classeur sans les macros?
Merci d'avance
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
- Copie rapide - Télécharger - Gestion de fichiers
2 réponses
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?
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
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
Merci pour le temps que t'as pris, ça faisait un moment que je travaillais sur le problème.
Bon courage pour la suite et n'hésite pas à revenir
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