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

enregistrer feuille sans bouton et code VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion meldja
  • 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
M

meldja

XLDnaute Impliqué
Bonjour,
J'utilise une macro pour générer une facture dans une feuille du classeur actif. Jusqu'ici, pas de problème.
Ensuite, via un bouton de commande, je sauvegarde la feuille active (la facture) avec un chemin d'accès spécifier. Jusqu'ici, pas de problème.
Le problème est que la feuille active qui est copiée (la facture) prend le bouton de commande qui se trouve sur celle-ci et le code VBA.
Suite à des recherches sur le Net, j'ai trouvé des solutions pour supprimer le code VBA, mais pas pour copier sans le code VBA et sans les contrôles activeX (les boutons de commande).
Il existe peut être un paramètre lors de la copie ?
Voici le code que j'utilise :
Code: 
Private Sub CommandButton1_Click()
Dim Nom As String
Nom = Range("B16")

Sheets("Facture").Copy
ActiveWorkbook.Sheets(1).Range("C33") = Range("C33").Value
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "C:\" & "Facture_" & Nom & ".xlsx", FileFormat:= _
                          xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close

Range("A20:A26").ClearContents
Range("C20:C26").ClearContents
Range("D20:D26").ClearContents
Range("F20:F26").ClearContents
Range("D9").ClearContents
End Sub

Précision, je sauvegarde sans prise en charge de macro (format .xlsx), ce qui me fait zapper une fonction (dans un module) qui permet de convertir un nombre en texte (en cellule C33), ce pourquoi je recopie le contenu de cette cellule.
Cet enregistrement (sans macro) me supprime les modules mais pas le code de la feuille.
Si quelqu'un a une solution, merci d'avance
 
Trier par date Trier par votes
Re : enregistrer feuille sans bouton et code VBA

Bonjour meldja,

peut-être

Code: 
Private Sub CommandButton1_Click()
Dim Nom As String
Nom = Range("B16")

Sheets("Facture").Copy
ActiveWorkbook.Sheets(1).Range("C33") = Range("C33").Value
ActiveWorkbook.Sheets(1).OLEObjects("CommandButton1").Delete
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "C:\" & "Facture_" & Nom & ".xlsx", FileFormat:= _
                          xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close

Range("A20:A26").ClearContents
Range("C20:C26").ClearContents
Range("D20:D26").ClearContents
Range("F20:F26").ClearContents
Range("D9").ClearContents
End Sub

Cet enregistrement (sans macro) me supprime les modules mais pas le code de la feuille.
Cliquez pour agrandir...

Si je rouvre le fichier Facture_.xlsx, pas de code dans la feuille

Edit : bonjour Dormeur74 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : enregistrer feuille sans bouton et code VBA

N'est-il pas possible de sauvegarder la facture dans un nouveau classeur qu'on enregistre dans un dossier prévu à cet effet ?
Un truc dans ce goût-là :
Code: 
Sub Macro1()
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\factures\factures001.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWorkbook.Close
End Sub

Oups ! Percussion ! Bojour tototiti2008.
 
Vote positif 0 Vote négatif
Re : enregistrer feuille sans bouton et code VBA

Bonjour,
Je reviens sur le sujet car je m'étais contenté d'une solution partielle (suppression des boutons de commande).
Pour supprimer le code de la page ainsi que les éventuels modules, voici ce que j'ai trouvé et testé avec réussite :
Code: 
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.VBProject.VBComponents
 
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp

Par contre, vous obtiendrez une erreur si vous ne cochez pas :
Bouton office ==> Options Excel ==> Centre de gestion et de confidentialité ==> Paramètres du centre de gestion et de confidentialité ==> Paramètres des macros ==> Paramètres des macros pour les développeurs ==> Accès approuvé au modèle d'objet du projet VBA

Voila, une fois cette option cochée, ça fonctionne nickel. C'est pratique, sinon, s'il reste du code, au moment de la fermeture du fichier, on a la boite de dialogue qui demande si on veut sauvegarder en format xlsm ou xlsx. Maintenant, on n'a plus ça.
Bonne journée tout le monde
 
Vote positif 0 Vote négatif
Re : enregistrer feuille sans bouton et code VBA

Désolé,
Toujours un message d'alerte au cours de l'enregistrement (xlsx ou xlsm). Solution finale, désactiver ce message avec ;
Code: 
Application.DisplayAlerts = False
avant l'enregistrement du fichier et surtout :
Code: 
Application.DisplayAlerts = True
après l'enregistrement du fichier (sinon, vous n'aurez plus de message d'alerte qui sont pourtant très utiles)
Maintenant, je pense que le sujet est définitivement résolu.

Bon courage à tous ceux qui se prennent la tête sur Excel
 
Vote positif 0 Vote négatif
Re : enregistrer feuille sans bouton et code VBA

Bonsoir à tous

Voici un moyen qui peut servir si pas de priorité esthétique et qui fait ce que demande le titre du post:
enregistrer feuille sans bouton et code VBA
VB: 
Sub SVGNOVBANOAX()
' Macro enregistrée le 12/11/2012 par Staple
Sheets(1).Copy
ActiveWorkbook.SaveAs "C:\Temp\Test.slk", 2, False
ActiveWorkbook.Close True
End Sub
Avec cette macro, adieu VBA et bouton et aussi un peu plus 😉
Mais s'il s'agit de garder une copie d'une facture, cela peut suffire. 😉

PS: Cet astuce est bien pratique et je l'utilisais jadis pour archiver des factures.
 
Dernière édition:
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

P
  • Résolu(e)
Microsoft 365 Créer un bouton de commande
Réponses
6
Affichages
77
patoubet
P
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
156
AtTheOne
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
48
job75
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
294
cdric78
C
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
367
Rheeem
R
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
343
firecarl
F
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
74
job75
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
378
Dubuyz1
D
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
95
Pierreavecunp
P
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
122
thunder23
M
  • Résolu(e)
Microsoft 365 Code VBA Bon Commande
2
Réponses
29
Affichages
253
mld.sebastien
M
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
87
eric72
E
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
155
ManuEven
M
  • Question Question
XL 2021 Enregistrer un fichier selon date valeur cellule
Réponses
4
Affichages
97
fenec
S
  • Question Question
Macro associée à un bouton
Réponses
12
Affichages
187
Santino007
S
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
366
ma6me
M
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
2 K
patricktoulon
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
79
Ang3lina
A
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
195
sofmat
S
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
797
jebibo
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…