Macro enregistrer sous...

[2024t3]

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

 

[@Christophe@]

Bonjour,

Voici comment montrer le saveas dialog:

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
End Sub


J'espère que cela convient

Bonne journée

@Christophe@

 

[Franck]

Salut @Christophe@

ActiveWorkbook.Save
ça doit marcher

A+ Franck

 

[2024t3]

Merci à tous pour vos réponses

 

[Scoy]

Bonjour,
Il y a t'il un moyen pour enregistrer juste la feuille 'X' d'un classeur et pas tout son contenu(feuille, UserForm, module...)?
Merci

 

[MichelXld]

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

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

 

[Scoy]

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

 

[MichelXld]

rebonjour Scoy

effectivement , je suis totalement hors sujet avec ma réponse ...;o)

je suis désolé mais je ne vois pas comment sauvegarder une seule partie du document ( je ne suis pas sur que ce soit possible )


bonne soiree
MichelXld

 

[landdrin]

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.