VBA Excel et bouton annuler dans une boite de dialogueRésolu

Question

J'ai cr&#233;&#233; un fichier avec du vb pour simplifier la prise des donn&#233;es sur des feuilles excel. 
A un moment je veux enregristrer le document et j'utilise ca : (clique sur bouton qui d&#233;clenche l'enregistrement) 
 
Private Sub b_save_Click() 
Dim Filename As String 
Filename = "Donner un nom" 
Application.Dialogs(xlDialogSaveAs).Show Filename 
End Sub 
 
Il marche bien sauf que je voudrais recueuillir l'action de l'utilisateur sur la boite de dialogue "saveas". 
Je voudrais savoir si la personne a appuy&#233; sur le bouton "Annuler" ou "Enregistrer" 
 
Je ne connais pas la commande qui me donne cette information. 
 
Merci de l'aide

cs_chapata · Accepted Answer

Salut

essai 
if (Application.Dialogs(xlDialogSaveAs).Show Filename) = false then msgbox"Annuler par l'utilisateur"
else
  msgbox "Validerpar l'utilisateur"
end if

ChaPaTa

econs · Answer

Salut,



J'ai d&#233;pos&#233; une source pour d&#233;tecter l'appui sur le bouton Cancel de l'InputBox.

Tu dois pouvoir tr&#232;s facilement l'adapter &#224; la boite de dialogue SaveAs. (voir mes sources)


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

xurael · Answer

Merci &#224; manu et chapata !
Vos solutions sont tr&#233;s proches et satisfaits ma demande par contre ca me cr&#233;ait un autre soucis 
J'avais &#233;cris de tel mani&#232;re &#224; mettre un nom de fichier par d&#233;faut mais avec la m&#233;thode que vous proposez ce n'est plus possible.
Je vais creuser le sujet pour savoir comment le contourner.

cs_chapata · Answer

Ok sans souci, bon courage et bonne f&#234;te.
N'oubli pas de valider nos posts.

ChaPaTa

kalobit · Answer

Salut,

essaye avec application.getsaveasfilename qui renvoi false en cas d'annulation et que tu peux parametr&#233; &#224; ta guise

La fonction ne fait que renvoyer un nom de fichier, il ne te reste plus qu'&#224; coder l'enregistrement du fichier (application.saveas)

Et bonne ann&#233;e

xurael · Answer

Merci kalobit 
Mais j'ai pu r&#233;soudre mon second probl&#232;me. D'alleurs je mets en dessous le bout de code que j'ai utilis&#233; pour mon probl&#232;me, j'esp&#232;re que ca aidera d'autres amateur de VBA comme moi.

Private Sub b_save_Click()


    Dim Filen As String
    Dim boitesaveas As String
    'Permet de donner un nom par d&#233;faut au tableau &#224; sauvegarder
    Filen = "Donner un nom !"
    'Permettra de faire afficher la boite de dialogue avec un nom de fichier par d&#233;faut
    boitesaveas = Application.Dialogs(xlDialogSaveAs).Show(Filen)
    If boitesaveas = True Then
        'Dans le cas o&#249; il enregistre
        End
    Else
        'Dans le cas o&#249; il annule
    End If
    
End Sub

VBA Excel et bouton annuler dans une boite de dialogue

6 réponses

Discussions similaires