Macro enregistrer sous...

  • Initiateur de la discussion Initiateur de la discussion 2024t3
  • 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 !

2

2024t3

Guest
Bonjour à tous,
Je souhaiterai insérer une macro dans une feuille qui me permettrai d'enregistrer ma feuille en cliquant sur le bouton.
J'ai essayé en mode enregistrement, sans succès...
Si quelqu'un à une suggestion...
A plus
 
bonjour à tous

@Christophe@ , je suis content de te voir de retour sur le forum

Scoy , tu peux tester cette macro qui copie et sauvegarde uniquement la Feuil2 , sans le code VBA


Code:
Private Sub CommandButton1_Click()
'activer references microsoft visual basic for applications extensibilty 5.3
Dim VbComp As vbcomponent
ThisWorkbook.Sheets('Feuil2').Copy
ActiveWorkbook.SaveAs Filename:='C:\\test.xls'

'' suppression de tout le code vba
For Each VbComp In ActiveWorkbook.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp

ActiveWorkbook.Save ' enregistre les suppressions
End Sub


bon apres midi
MichelXld
 
Bonjour Michel,
Sorry je n'ai pas été très clair, mon but est juste de 'enregister' (comme allé dans le menu fichier et enregistrer,donc pas de faire une sauvegarde, ni une copie, mais 'enregister' les modif. qui viennent d'être appliquées a UNE seule feuille). Car mon problème est que mon classeur est volumineux et que ça me prend un temps dingue de faire 'ThisWorkbook.Save'....
Merci
 
Re : Macro enregistrer sous... (une feuille et pas le classeur)

Bonjour a tous,

(Petit merci à Manu avant tout, j'ai chopé le virus de la programmation 😀)
Voici ma petite contribution de débutant:
Comment enregistrer une feuille d'un classeur

Private Sub CommandButton7_Click() 'action Par Bp
Excel.Application.Visible = True 'Rendre visible Excel, seulement si l'appli n'est pas visible
Sheets("A4").Activate 'Se rendre sur la page a enregistrer
ActiveSheet.Copy 'truc qui copy..😛
Application.Dialogs(xlDialogSaveAs).Show 'Ouverture fenêtre enregistrer sous
End Sub

En faite, on extrait la feuille et on l'enregistre comme un nouveau classeur.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
43
Affichages
818
Réponses
4
Affichages
281
Réponses
2
Affichages
170
Réponses
3
Affichages
297
Réponses
15
Affichages
636
W
Réponses
3
Affichages
258
Réponses
1
Affichages
230
Retour