Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copie feuille vers un autre classeur sans copier ses macros.

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Riko
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Riko

XLDnaute Occasionnel
Bonjour,
je rencontre un problème avec la copie d'une feuille vers un autre classeur.

La feuille (à copier) est remplie via des formules. Dans cette même feuille il y a du code VBA sur l'événement Worksheet_Calculate().
J'ai ajouté un bouton qui devrait permettre d'exporter le contenu de la feuille vers un nouveau classeur.
Code de la macro du bouton:
Code: 
Sheets("Cal-couleur").Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Lors de l'éxécution de la macro d'export, j'ai une erreur due à la macro qui est copiée en même temps que la feuille. Normal puisque plusieurs éléments sont manquants dans le nouveau classeur.
J'aurais voulu savoir comment puis-je faire pour ne pas copier le code VBA de la feuille.

Merci d'avance pour vos réponses.
 
Trier par date Trier par votes
Re : Copie feuille vers un autre classeur sans copier ses macros.

Bonjour,

Regarde en bas de cette page dans la section "Discussions similaires" il y a un sujet traitant le problème.

A+
 
Vote positif 0 Vote négatif
Re : Copie feuille vers un autre classeur sans copier ses macros.

Merci de ta réponse mais je ne dois pas être doué je n'arrive pas à adapter.
J'avais trouvé une parade en ajoutant "Application.EnableEvents = False" qui me stoppe l'événement mais il faut que je supprime le code vba.
J'ai testé avec le code que tu as indiqué sur les posts similaires mais j'ai une erreur.
Erreur 1004 - L'accès au programme visual Basic n'est pas fiable
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copie feuille vers un autre classeur sans copier ses macros.

ça fonctionne en modifiant les options de sécurité.
N'y aurait il pas une autre solution car le fichier sera sur un poste où les utilisateurs ne vont pas "gratter" les options d'excel.
 
Vote positif 0 Vote négatif
Re : Copie feuille vers un autre classeur sans copier ses macros.

Re,

Non c'est la seule solution si tu passes par Sheets("Cal-couleur").Copy

Sinon, tu peux créer un nouveau classeur, quelque chose comme ceci:

Code: 
Dim wkDestination as Workbook
Set wkDestination = WorkBooks.Add()
 
ThisWorkBook.Sheets("Cal-Couleur").UsedRange.Copy Destination:= wkDestination.Sheets(1).range("A1")

A+
 
Vote positif 0 Vote négatif
Re : Copie feuille vers un autre classeur sans copier ses macros.

oui j'avais essayé mais une erreur était survenue (à cause encore de l'événement calculate sur le fichier original) mais je n'avais pas pris la peine de regarder si le code VBA était présent dans le fichier copié.😱

Je retesterai tout ça ce soir.
Merci !
 
Vote positif 0 Vote négatif
Re : Copie feuille vers un autre classeur sans copier ses macros.

Re,


Code: 
'Le calcul de la feuille ne sera pas lancé donc son évènement Calculate non plus
Application.Calculation = xlCalculationManual
 
..... le code de copie
 
Application.Calculation = xlCalculationAutomatic

A+
 
Vote positif 0 Vote négatif
Re : Copie feuille vers un autre classeur sans copier ses macros.

Bonjour,

Voici qui est corrigé et qui fonctionne.
Avant de réactiver le calcul automatique, il faut réactiver le classeur qui contient la macro.
Lorsqu'on ajoute un classeur (Workbooks.Add) il devient le classeur actif.

VB: 
Sub Exporter()
'
' Exporter Macro
'
'
    Dim PlageAExporter As Range
    Dim wkDestination As Workbook
    'Le calcul de la feuille ne sera pas lancé donc son évènement Calculate non plus
    Application.Calculation = xlCalculationManual
    'Initialisation de la variable range à exporter (calendrier)
    Set PlageAExporter = ThisWorkbook.Sheets("Cal-couleur").Range("calendrier")
    ' création d'un nouveau classeur (il devient le classeur actif
    Set wkDestination = Workbooks.Add()
    ' copier la plage à exporter
    PlageAExporter.Copy
    'Travailler sur la feuille 1 du classeur destination, cellule B2
    With wkDestination.Sheets(1).Range("B2")
        'collage spécial nécessaire
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                             :=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                      xlNone, SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
        ActiveWindow.DisplayGridlines = False    'ne pas afficher quadrillage
    End With
    
    
    '               IMPORTANT
    'Il faut réactiver ce classeur pour que l'évènement Calculate ne provoque pas d'erreur
    ThisWorkbook.Activate
    'On remet le calcul en automatique
    Application.Calculation = xlCalculationAutomatic
End Sub

Pour enregistrer le classeur avant la fin de la macro:
wkdestination.SaveAs "c:\lenomquetuveux.xls"
A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
361
MATLEA
M
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
410
flc13090
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
629
Phil69970
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2021 VBA - Comment transformer un classeur enregistré en classeur non enregistré
2 3
Réponses
34
Affichages
1 K
patricktoulon
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
318
patricktoulon
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
460
caseras
C
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
530
Phil69970
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
934
steph_29120
S
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
611
safranien
S
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
291
vgendron
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
378
chris6999
Génération de code VBA
Réponses
3
Affichages
239
Cléa
C
  • Question Question
Microsoft 365 Copier une cellule suite macro sur un tableau externe
Réponses
2
Affichages
298
Chounoé
C
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
515
AtTheOne
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
951
jeff1494
  • Résolu(e)
XL 2019 Créer un lien Hypertexte ancré à un mot sur une autre feuille
Réponses
8
Affichages
672
sylvanu
N
  • Résolu(e)
Microsoft 365 Lien vers une feuille du classeur
Réponses
2
Affichages
577
Nathan027
N
F
  • Question Question
XL 2021 Liste déroulante vers un autre classeur
Réponses
1
Affichages
541
Dudu2
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
885
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…