Discussion :

[akwel]

Bonjour a tous.
J'ai un petit probleme :
A l'appui sur un bouton, j'execute le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Application.Workbooks.Add
ActiveWorkbook.SaveAs Application.GetSaveAsFilename("C:\hackwell\projet\executabable\programme automate\" & fichier, fileFilter:="Classeur Microsoft Excel (*.xls), *.xls")
fichiersauv = ActiveWorkbook.FullName
ActiveWorkbook.Close

Cela m'affiche une boite de dialogue enregistrer sous. J'aimerai pouvoir gérer le bouton annuler de cette boite de dialogue, pour qu'il par définition annule l'action.

Merci d'avance.

[damyrid]

Je crois qu'en lorsque tu fais annuler il génére une erreur, tu dois donc gérer l'erreur

[SpaceFrog]

pour savoir tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim reponse as integer
reponse = msgbox("cliquez sur un bouton",vbokcancel)
msgbox reponse

cela t'affichera la valeur retournée par le bouton annuler

[bidou]

tu ne peux pas le faire en écrivant ton code comme cela
il faut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim NomFichier as String
 
NomFichier = Application.GetSaveAsFilename( "C:\hackwell\projet\executabable\programme automate\" & fichier, fileFilter:="Classeur Microsoft Excel (*.xls), *.xls")
 
If CBool(Nomfichier) Then
   ActiveWorkbook.SaveAs NomFichier 
Else 'l'utilisateur a annulé
    MsgBox "toto"
End If

[SpaceFrog]

oups !
j'avais pas lu boite de dialogue...
Je pensais qu'il s'agissait juste du msgbox ...

Désolé !

[akwel]

Merci bien. Et au fait merci en générale pour toute l'aide que vous pouvez nous apporter