Discussion :

[Leilou65]

Bonjour à vous,

J'ai un classeur que je souhaite enregistrer sous un dossier après traitement (pas toujours le même dossier). En fait il vient remplacer un classeur .xls et je souhaite supprimer la feuille "menu" de se classeur qui est en cours de sauvegarde.
Sauf que quand je clique sur le bouton annuler de la boite de dialogue j'ai tout de même la feuille "menu" qui se supprime.

Voici le code :

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
17
18
Option Explicit
Sub Enregistrer()
Dim monClasseur$
On Error GoTo MesErreurs
 
monClasseur = Application.GetSaveAsFilename(filefilter:="Fichier Excel(*.xls, *.xls", _
Title:="Enregistrer votre classeur ?")
 
If monClasseur = False Then
Exit Sub
End If
 
ThisWorkbook.SaveAs monClasseur
Sheets("Menu").Select
ActiveWindow.SelectedSheets.Delete
 
MesErreurs:
End Sub

Je pense que le Exit Sub est mal placé mais après plusieurs tests ma feuille "menu" est tout de même supprimée.

Merci à vous pour votre aide.

Loums.

[riaolle]

Bonjour,
Essaie la chose suivante :

Code :

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

1
2
3
4
5
6
7
Dim monClasseur As Variant
monClasseur = Application.GetSaveAsFilename(filefilter:="Fichier Excel(*.xls, *.xls", _
Title:="Enregistrer votre classeur ?")
 
If monClasseur= False Then
Exit Sub
End If

En effet, comme tu délcares monClasseur comme une chaine de caractère ($), il y a peut-être un problème lorsque tu le compares à un booléen (False).
Je ne promets rien, mais essaie

[Leilou65]

Merci à toi c'est parfait