Discussion :

[letal]

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

[FanTasTik]

Code :

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

Exit Sub

ça quitte la procédure en cours, donc si tu le met au bon endroit ça fera ce que tu veux.

[letal]

Génial, le bout de code le plus utile et le plus cours

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

Code :

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

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 ???

[SfJ5Rpw8]

Bonjour,

comment est ouvert le classeur ?
code ?

[letal]

en ce qui concerne ma fonction:

Code :

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

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 :

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

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

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

[letal]

Bonjour Bbil,

M'as-tu oublié ???

J'attends ta réponse avec impatience ...

[SfJ5Rpw8]

Bonjour,

comment est ouvert le classeur ?
code ?

[letal]

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

Code :

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

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 :

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

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???