boite de dialogue SaveAs

[wilfried_42]

Bonjour à tous.

je cherche à lancer par macro, la boite de dialogue Sauvegarder Sous
l'enregistreur de Macro ne suffit pas

merci à vous

 

[vbacrumble]

Re : boite de dialogue SaveAs

Bonjour Wilfried

Voili voilou

Sub AfficheSaveAs()
Application.CommandBars(1).Controls(1).Controls(5).Execute
End Sub

 

[Pierrot93]

Re : boite de dialogue SaveAs

Bonjour Wilfried, vba

autres solutions,mais vu ton niveau, sans doute à coté

Application.Dialogs(xlDialogSaveAs).Show

Application.GetSaveAsFilename

bonne journée
@+

 

[wilfried_42]

Re : boite de dialogue SaveAs

Bonjour Vbacrumble , Pierrot

Quand j'ai posté, je n'avais plus le temps de chercher sur internet, je partais au boulot et je viens de rentrer. Je ne connais aucun nom des boites de dialogue. Généralement, je ne les utilise pas mais j'avais besoin d'intercepter cet évènement (BeforeSave avec SaveAsUI à true) et de la lancer par moi même.
Cela fait plusieurs jours que je réfléchis et l'idée m'est venue en discutant avec Vbacrumble sur le fil de la numérotation.
Maintenant la numérotation automatique est entièrement automatisée... Pas de macros à lancer tout se fait avec les interruptions.

Merci à vous deux pour vos réponses. j'ai choisi la solution de pierrot car (à cause de mes tics ) je n'utilise jamais les index pour accéder à un objet.

je fournis le fichier exemple et la macro complémentaire pour ceux que cela intéresserait.

Merci encore, à bientôt sur le Forum

 

[vbacrumble]

Re : boite de dialogue SaveAs

Bonjour Wilfried, Pierrot, les gens du forum



Jolis fichiers que voici.

Merci de les partager avec nous.

 

[Klode]

Re : boite de dialogue SaveAs

Bonjour Vbacrumble , Pierrot
Maintenant la numérotation automatique est entièrement automatisée... Pas de macros à lancer tout se fait avec les interruptions.

Je fournis le fichier exemple et la macro complémentaire pour ceux que cela intéresserait.

Merci encore, à bientôt sur le Forum

Cette formule de numérotation automatique semble très bien me convenir pour l'utilisation que je veux en faire.

Le problème, c'est que je ne sais pas comment faire pour l'installer dans ma feuille. Quelques infos supplémentaires seraient appréciées. Merci d'avance pour votre aide.

Klode