Msgbox et fin du programme

Version imprimable

24/08/2012, 10h10
letal

Msgbox et fin du programme

Bonjour,

Je pense que la question a déjà été posée plusieurs fois mais comme je n'ai pas trouvé la solution.... je refais appelle à vous :)

AU début de mon programme, j'ai un bouton qui lance le programme et la première instruction est une boite de dialogue qui avertit l'utilisateur de ce qui l’attend.

S'il est d'accord, il clique sur OK et le programme se lance (ça c'est OK dans mon code), mais s'il ne veut pas le lancer, il clique sur annuler le programme s’arrête.

Qu'est ce que je mets sur mon vbCancel pour avoir un truc du genre "goto début" ou réinitialise et attend que l'utilisateur soit prêt à cliquer une nouvelle fois sur le bouton de lancement ou qu'il ferme carrément la feuille car il a fini sa journée, sans qu'un message d'erreur n'apparaisse :mrgreen:
24/08/2012, 10h15
FanTasTik

Code:

Exit Sub

ça quitte la procédure en cours, donc si tu le met au bon endroit ça fera ce que tu veux.
24/08/2012, 13h54
letal
Génial, le bout de code le plus utile et le plus cours :D

Et dans mon cas j'ai fait exit Function et j'ai ajouté ensuite une condition:
Code:

1 2 si = vrai alors exit sub
par contre j'ai un deuxième classeur ouvert que j'aimerais fermer et il n'a pas de nom désigné puisque je suis sorti

classeur01
classeur02

etc...

Comment fermer le dernier classeur ouvert car si je fais thisworkbook il me ferme celui de la macro ???
24/08/2012, 14h17
SfJ5Rpw8

Bonjour,

comment est ouvert le classeur ?
code ?

en ce qui concerne ma fonction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function miseEnRoute() As String
 
Dim nameFile As String
 
        Set NewBook = Workbooks.Ad
        fname = Application.GetSaveAsFilename
            If fname = False Then
                ThisWorkbook.Close savechanges:=False
                Exit Function
                Else: NewBook.SaveAs Filename:=fname
        End If
        nameFile = Dir(fname)
 
miseEnRoute = nameFile
 
End Function

et ensuite il retourne dans le sub:

Code:

1
2
3
4
5
 
nomFichierFinal = miseEnRoute()
        If nomFichierFinal = Empty Then
           Exit Sub
        End If

Qu'est-ce que tu en penses...

05/09/2012, 08h25
letal

Bonjour Bbil,

M'as-tu oublié ???

J'attends ta réponse avec impatience ... ;)
05/09/2012, 19h23
SfJ5Rpw8

Citation:

Envoyé par bbil

Bonjour,

comment est ouvert le classeur ?
code ?

Ben c'est ce code lié avec le msgbox que j'ai mis précédemment:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function miseEnRoute() As String Dim nameFile As String Set NewBook = Workbooks.Ad fname = Application.GetSaveAsFilename If fname = False Then ThisWorkbook.Close savechanges:=False Exit Function Else: NewBook.SaveAs Filename:=fname End If nameFile = Dir(fname) miseEnRoute = nameFile End Function
Code:

1 2 3 4 nomFichierFinal = miseEnRoute() If nomFichierFinal = Empty Then Exit Sub End If
Ensuite un classeur actif apparaît avec comme nom classeur1

Si la personne continue le process en cliquant "enregistrer sous", aucun soucis
Si la personne clique sur "annuler", mon programme principal ce ferme et il me reste sur les bras, la fenêtre active classeur01

Est-ce que c'est cette information dont tu as besoin???

12/10/2012, 21h42
SfJ5Rpw8

Bonsoir,
J'avais pas vu ton code incomplet d'ouverture classeur. Il manque un d a add.
Pour fermer ton classeur agit sur ton objet newbook comme tu le fais pour thisworbok...

Eureka, j'ai trouvé :)

C'est ThisWorkbook.close qui posait problème, j'ai remplacé par activeWorkbook

Et pour le ad, cela devait être une erreur de copier/coller, l'autocompile ne m'aurait jamais laissé aller plus loin!!!

Merci à toi pour le coup de pouce :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
 Set NewBook = Workbooks.Add
        'Do
            fname = Application.GetSaveAsFilename
            If fname = False Then
                ActiveWorkbook.Close savechanges:=False   'ferme la fenêtre active, donc le classeur qui vient de s'ouvrir: classeur1.xlsx
                'ThisWorkbook.Close savechanges:=False   'ferme la fenêtre de mon programme, ce que je ne voulait pas
                Exit Function
                Else: NewBook.SaveAs Filename:=fname
            End If
 
            nameFile = Dir(fname)

Je clos le post et je vous souhaite une exellente journée ;)

16/10/2012, 21h13
SfJ5Rpw8

Citation:

Envoyé par letal

Eureka, j'ai trouvé :)

C'est ThisWorkbook.close qui posait problème, j'ai remplacé par activeWorkbook

E..

:nono:

il faut utiliser ta variable NewBook !

Code:

NewBook.close

moins on utilise ActiveWorkbook mieux ce porte ton code ...:D