boite de dialogue SaveAs

wilfried_42 · 23 Avril 2009

Bonjour à tous.

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

merci à vous

vbacrumble · 23 Avril 2009

Re : boite de dialogue SaveAs

Bonjour Wilfried

Voili voilou

Code:

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

Pierrot93 · 23 Avril 2009

Re : boite de dialogue SaveAs

Bonjour Wilfried, vba

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

Code:

Application.Dialogs(xlDialogSaveAs).Show

Code:

Application.GetSaveAsFilename

bonne journée
@+

wilfried_42 · 24 Avril 2009

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 · 24 Avril 2009

Re : boite de dialogue SaveAs

Bonjour Wilfried, Pierrot, les gens du forum

Jolis fichiers que voici.

Merci de les partager avec nous.

Klode · 4 Août 2009

Re : boite de dialogue SaveAs

wilfried_42 à dit:
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

boite de dialogue SaveAs

wilfried_42

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

wilfried_42

XLDnaute Barbatruc

Pièces jointes

vbacrumble

XLDnaute Accro

Klode

XLDnaute Nouveau

Discussions similaires