[VBA][EXCEL] Bouton annuler ?

Bouton annuler ? [VBA][EXCEL] - VB/VBA/VBS - Programmation

Marsh Posté le 30-12-2005 à 15:10:51    

J'ai créé un fichier avec du vb pour simplifier la prise des données sur des feuilles excel.
A un moment je veux enregristrer le document et j'utilise ca : (clique sur bouton qui dé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é sur le bouton "Annuler" ou "Enregistrer"
 
Je ne connais pas la commande qui me donne cette information.
 
Merci de l'aide


---------------
Visiter l'île de la Réunion ! Découvrez son volcan, sa nature sauvage et les plages de rêves :D
Reply

Marsh Posté le 30-12-2005 à 15:10:51   

Reply

Marsh Posté le 30-12-2005 à 22:52:31    

Bonjour,
Une boite de dialogue prédéfinie renvoie la valeur True si l'utilisateur clique sur OK ou la valeur False si l'utilisateur clique sur Annuler.
 
Private Sub b_save_Click()  
Dim Filename As String  
Filename = "Donner un nom"  
Resultat= Application.Dialogs(xlDialogSaveAs).Show Filename  
If Resultat = true then
'OK button
else
'Annuler
end if
End Sub  
 
Cordialement
 
Epéna

Reply

Marsh Posté le 30-12-2005 à 23:28:47    

Rectification, remplacer
Resultat= Application.Dialogs(xlDialogSaveAs).Show Filename  
par
Resultat= Application.Dialogs(xlDialogSaveAs).Show(Filename)

Reply

Marsh Posté le 31-12-2005 à 20:05:22    

Coucou
Merci de la solution car elle marche impect :)
Bonne fête.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed