XL 2019 Création bouton avec macro enregistrer sous

[Mel46]

Bonjour,

J'aimerais avoir un peu d'aide afin de trouver la macro nécessaire pour enregistrer mon formulaire de soumission (modèle), avec un nom précis + les données d'une cellule précise, vers un emplacement précis! hihihihi

Je voudrais que cette action soit envoyée en cliquant sur un bouton formulaire active X.

Je n'y connais absolument rien en VBA! Sauf ce que j'ai lu ici...

Merci

 

[pat66]

ok pour V3, tu as raison "ouvert et fermé de suite", c'est parfait

Encore un grand merci pour ton aide très précieuse

A bientôt

 

[Staple1600]

Bonsoir le fil, patricklopez66, patricktoulon

=>patricklopez66

Bonjour Stapple1600,
j'ai testé ta macro qui fonctionne très bien, mais serait il possible de l'adapter pour n'exporter que certaines feuilles

Oui, c'est possible mais on ne m'en pas laissé le temps
Le principal c'est que ta question soit solutionnée
(Même si l'usage c'est de créer sa propre discussion pour poser sa question plutôt que de triple guillemets """squatter """ un fil initié par un autre membre)

 

[pat66]

Bonsoir le fil

ok je créerais ma discussion la prochaine fois, merci pour tes conseils Stapple

Pour info, a l'ouverture la copie xlsx me demande de mettre à jour un lien, alors qu'il y en a ni sur le xlsm ni sur le xlsx

j'ai trouvé la solution radicale avec :
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever que j'ai placé et qui a l'air de fonctionner :

Private Sub CommandButton5_Click()
Dim NOM_PRECIS$, vEMPLACEMENT$, messheets
Application.EnableEvents = False
messheets = Array("Feuil1", "Feuil2", "Feuil5") 'mettre les noms de sheets que tu veux ici

If Sheets("V3").Range("G27") = "" Then
If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "vous informe") = vbAbort Then Exit Sub
Else
NOM_PRECIS = Sheets("V3").Range("G27").Value & "_" & Format(Now, "dd-mm-yyyy") & ".xlsx"
vEMPLACEMENT = ThisWorkbook.Path & "\"
Sheets(messheets).Copy ' a pour effet de copier les sheets dans un new classeur
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs vEMPLACEMENT & NOM_PRECIS
.Close
End With
End If
'peut on fermer aussi le xlsm <<!!sans fermer Excel ?>>!!
'ben...
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub



Bonne soirée à tous et merci encore