Ne pas copier le code VBA

Créer une discussion
Répondre

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
P

phiphi27

XLDnaute Junior
Bonjour
Voila j'ai ce code qui me permet de sauvegarder la feuille "Calendrier" dans un autre classeur mais je ne veux pas que le code VBA soit copier pouvez vous adapter ce code
Merci

Code: 
Sub Sauvegarde()
   
ActiveSheet.Unprotect 'Désactive la protection
    ActiveSheet.Shapes("AutoShape 90").Select 'Masque le bouton de sauvegarde
    Selection.ShapeRange.ZOrder msoSendToBack
MsgBox ("Bonjour ") & Environ("username") & (" ,tu vas créer une sauvegarde de cette feuille 'Calendrier'") 'Affiche une Box avec message

Dim Nouveaufichier As String
ActiveSheet.Copy
With ActiveSheet
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
     Application.ErrorCheckingOptions.NumberAsText = False 'retire l'option Nb stoké en tant que texte
End With
Nouveaufichier = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Nouveaufichier & "xls"
MsgBox ("La Feuille 'Calendrier' as été créé et fermé ")
ActiveWorkbook.Close 'Ferme le fichier EXCEL créé
ActiveSheet.Shapes("AutoShape 90").Select 'Affiche le bouton de sauvegarde
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Active la protection de la feuille
End Sub
 
Trier par date Trier par votes
Re : Ne pas copier le code VBA

Bonsoir Phiphi27 🙂,
Le problème est que tu te trouves dans le classeur enregistré, donc si tu supprimes le VBA, celui-ci s'arrête 😱...
Pour pouvoir enregistrer sans le VBA, il faudrait créer un nouveau classeur, copier ta feuille dedans et enregistrer celui-ci 😉.
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Ne pas copier le code VBA

Re 🙂,
phiphi27 à dit:
Je ne peux pas copier ma feuille "calendrier" dans un autre classeur sans son code VBA?
Cliquez pour agrandir...
Si ton code est dans un module, il ne sera pas copié avec ta feuille. Si c'est le code de ta feuille, tu peux supprimer le texte avec
Code: 
With Workbooks("Classeur1").VBProject.VBComponents("Calendrier").CodeModule
.DeleteLines 1, .CountOfLines
End With
en remplaçant Workbooks("Classeur1") par la variable classeur que tu auras créé.
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Ne pas copier le code VBA

Bonjour phiphi27 & JNP

Dans mes tablettes j'avais ceci

Merci à celui qui à fait cette macro

VB: 
 'copier (ou déplacer) une feuille d'un classeur sans son code VBA

Sub CopieFeuilleSansMacros()
Dim NomEtChemin$, NomCodeFueille$
  NomEtChemin = ThisWorkbook.Path & "\copier sans code vba.xls" ' Inscrit le nom et le chemin que tu veux

  With ThisWorkbook.Sheets("A copier")
    NomCodeFeuille = .CodeName
    .Copy                                 'Fait une copie de la feuille
'    .Move                                 'Coupe la feuille de ce classeur
  End With
  With ActiveWorkbook
    .SaveAs NomEtChemin
    With .VBProject.VBComponents(NomCodeFeuille).CodeModule
      .DeleteLines 1, .CountOfLines
    End With
    .Save
  End With
End Sub
 
Vote positif 0 Vote négatif
Re : Ne pas copier le code VBA

Bonjour a tous
Voila ce code VBA appartient à la feuille "Calendrier" je n'arrive pas a l'adapter pour que je puisse copier la feuille avec sa mise en forme sans les formules et sans le code VBA qui reste accroché à la feuille
merci de pour les personnes qui mon donné des bout de code mais comme j'ai très très peu de connaissance en VBA je n'arrive pas à les inserer
A l'avance merci
Phiphi27

Code: 
Sub Sauvegarde()
   
ActiveSheet.Unprotect 'Désactive la protection
    ActiveSheet.Shapes("AutoShape 90").Select 'Masque le bouton de sauvegarde
    Selection.ShapeRange.ZOrder msoSendToBack
MsgBox ("Bonjour ") & Environ("username") & (" ,tu vas créer une sauvegarde de cette feuille 'Calendrier'") 'Affiche une Box avec message

Dim Nouveaufichier As String
ActiveSheet.Copy
With ActiveSheet
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
     Application.ErrorCheckingOptions.NumberAsText = False 'retire l'option Nb stoké en tant que texte
End With

Nouveaufichier = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Nouveaufichier & "xls"
MsgBox ("La Feuille 'Calendrier' as été créé et fermé ")
ActiveWorkbook.Close 'Ferme le fichier EXCEL créé
ActiveSheet.Shapes("AutoShape 90").Select 'Affiche le bouton de sauvegarde
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Active la protection de la feuille
End Sub
 
Vote positif 0 Vote négatif
Re : Ne pas copier le code VBA

Re 🙂,
A tester sous 2003
Code: 
Sub test()
Workbooks.Add
With ActiveWorkbook
ThisWorkbook.Sheets("Test").Copy Before:=.Sheets(1)
.SaveAs Application.GetSaveAsFilename
.Close
End With
End Sub
en remplaçant "Test" par le nom de ta feuille. A priori, le code n'est pas dupliqué, mais je suis en 2010...
A +
 
Vote positif 0 Vote négatif
Re : Ne pas copier le code VBA

Bonsoir phiphi27 et le forum

Il me semble que la solution la plus simple consiste à copier non pas la feuille mais seulement le contenu de la plage utilisée ("UsedRange").

Pour copier dans un classeur vierge :
Code: 
Sub Copier_Feuille_dans_Classeur_Vierge()
    Dim Cellule1 As String
    
Rem     Crée un classeur vierge
    Workbooks.Add
Rem     Repère la cellule haut-gauche de la plage utilisée dans la feuille source
    Cellule1 = ThisWorkbook.Sheets("Nom_de_la_Feuille").UsedRange.Cells(1, 1).Address
Rem     Copie la plage utilisée dans la feuille source 
    ThisWorkbook.Sheets("Nom_de_la_Feuille").UsedRange.Copy
Rem     Colle dans la même plage de la feuille active du classeur vierge
'       le contenu des cellules de la feuille source
    ActiveSheet.Range(Cellule1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Rem     Ajouter procédure de sauvegarde

End Sub

Pour copier dans un classeur existant :
Code: 
Sub Copier_Feuille_dans_Classeur_Existant()
    Dim Cellule1 As String

Rem     Ouvre le classeur "cible" où la feuille doit être copiée
    Workbooks.Open "Test_Copie.xls"
Rem     Ajoute une feuille vierge à ce classeur
    ActiveWorkbook.Sheets.Add after:=Sheets(ActiveWorkbook.Sheets.Count)
Rem     Repère la cellule haut-gauche de la plage utilisée dans la feuille source
    Cellule1 = ThisWorkbook.Sheets("Nom_de_la_Feuille").UsedRange.Cells(1, 1).Address
Rem     Copie la plage utilisée dans la feuille source
    ThisWorkbook.Sheets("Nom_de_la_Feuille").UsedRange.Copy
Rem     Colle dans la même plage de la feuille active du classeur cible
'       le contenu des cellules de la feuille source
    ActiveSheet.Range(Cellule1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Rem     Ajouter procédure de sauvegarde

End Sub

Bonne soirée.


PS1 : dans ton cas, il me semble que "ActiveSheet.PasteSpecial" conviendrait mieux que "ActiveSheet.Paste"

PS2 : la solution évoquée par Banzai64 fonctionne aussi, mais elle risque de créer un lien entre la feuille copiée et le fichier source s'il y a des formules.
Code: 
Sub Copie_de_feuille_Sans_Macros()

Rem     Copie la feuille dans un classeur vierge
    ThisWorkbook.Sheets("Nom_de_la_Feuille").Copy
Rem     Supprime les macros de la feuille copiée
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
      .DeleteLines 1, .CountOfLines
    End With
Rem     Ajouter procédure de sauvegarde

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ne pas copier le code VBA

Re 🙂,
phiphi27 à dit:
J'ai fait le test et non cela copie aussi les macro qui sont sous la feuille Calendrier
Cliquez pour agrandir...
Effectivement, j'ai du louper quelque chose 😛.
Avec ce code, cela devrait fonctionner
Code: 
[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]Dim[/COLOR] Feuille [COLOR=blue]As[/COLOR] Worksheet
Workbooks.Add
[COLOR=blue]With[/COLOR] ActiveWorkbook
ThisWorkbook.Sheets("Test").Copy Before:=.Sheets(1)
[COLOR=blue]With[/COLOR] .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
[COLOR=blue]End With[/COLOR]
Application.DisplayAlerts = [COLOR=blue]False[/COLOR]
[COLOR=blue]For Each[/COLOR] Feuille [COLOR=blue]In[/COLOR] .Worksheets
[COLOR=blue]If[/COLOR] Feuille.Name <> ActiveSheet.Name [COLOR=blue]Then[/COLOR] Feuille.Delete
[COLOR=blue]Next[/COLOR]
Application.DisplayAlerts = [COLOR=blue]True[/COLOR]
.SaveAs Application.GetSaveAsFilename
.Close
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Bon dimanche 😎
PS : Le code serait différent en 2007/2010, il suffirait d'enregistrer en XSLX pour supprimer les macros sans problème 🙄
 
Vote positif 0 Vote négatif
Re : Ne pas copier le code VBA

Bonjour a tous
Un grand merci à vous tous pour vos réponses
En fin de compte je me suis apperçu que plusieures codes VBA qui enfin n'était que des macros etaient dns la feuille que je voulais copier.
J'ai donc créé des modules ainsi que pour ma macro "sauvegarde" et cela fonctionne
Je n'ai plus de code sous la feuille mais je garde la mise en forme sans formules dans les cellules
Amitiés de phiphi27
 
Vote positif 0 Vote négatif
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

F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
390
fuioplde
F
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
586
patricktoulon
patricktoulon
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
876
marie3107
M
piga25
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
644
piga25
piga25
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
804
M@xu3L
M
M
  • Résolu(e)
XL 2013 Mémoriser le dernier emplacement de sauvegarde
Réponses
9
Affichages
1 K
M.Ben
M
R
  • Résolu(e)
XL 2016 Un petit coup de main pour un code VBA
Réponses
11
Affichages
949
ReneDav14000
R
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
974
Oneida
Oneida
Eric 888
  • Résolu(e)
XL 2019 alléger code VBA (supprimer activate / select / copy / activate / select / paste)
Réponses
4
Affichages
2 K
Eric 888
Eric 888
G
  • Question Question
Microsoft 365 VBA : Copier-Coller
Réponses
1
Affichages
877
Rossoneri83
R
M
  • Question Question
Microsoft 365 Evolution macro - VBA - Copier/coller en fonction d'une ligne
Réponses
6
Affichages
2 K
melinavy
M
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
1 K
MONTREAL2020
M
F
  • Question Question
Microsoft 365 Optimisation code VBA - Succession de copier coller
Réponses
8
Affichages
2 K
flomag
F
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
C
  • Question Question
XL 2013 Macro ne fonctionne pas à cause du filtre lorsque que le feuille est protégée
Réponses
2
Affichages
1 K
cdric78
C
L
  • Résolu(e)
XL 2010 Problème vba lorsque la feuille est protegée
Réponses
2
Affichages
985
Linda42
L
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
P
  • Résolu(e)
Microsoft 365 Copier/Coller Dynamique
Réponses
2
Affichages
1 K
PatLaNouille
P
S
  • Question Question
Autres Code vba incrémentation N°
Réponses
0
Affichages
990
samia89
S
R
  • Question Question
XL 2016 Gestion de chemin de fichiers + VBA
Réponses
0
Affichages
3 K
Ryoken
R
Retour