Problème avec boite de dialogue enregistrer sous [Résolu]

[biddal]

Bonjour,
Voilà mon souci!
Mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub CopieFeuille(stFeuille As String)
 
    Dim wb As Workbook
    Dim x As String, fichier As String, stdir As String
    Application.DisplayAlerts = False
    If stFeuille = "MAT1017" Then
        x = ThisWorkbook.Sheets("Index").Range("C4").Text
    Else
        If stFeuille = "MENSUELLE" Then
            x = ThisWorkbook.Sheets("Index").Range("C2").Text
        Else
            x = ThisWorkbook.Sheets("Index").Range("C6").Text
        End If
    End If
 
    ThisWorkbook.Sheets(stFeuille).Copy
    Set wb = ActiveWorkbook
    wb.Sheets(stFeuille).Cells.Copy
    wb.Sheets(stFeuille).Cells.PasteSpecial xlPasteValues
'
    If stFeuille = "DTO" Then
        fichier = stdir & stFeuille & " du " & x & ".xls"
    Else
        fichier = stdir & stFeuille & " de " & x & ".xls"
    End If
    NomFichier = Application.GetSaveAsFilename(fichier, "Microsoft Excel (*.xls), *.xls")
 
    If NomFichier = False Then
        MsgBox "Enregistrement annulé."
        wb.Close True
    Else
        MsgBox NomFichier
        wb.Sheets(stFeuille).Cells(1, 1).Select
        wb.SaveAs NomFichier
        wb.Close
    End If
    Application.DisplayAlerts = True
 
End Sub

Ce code me permet de copier une feuille bien précise dans un classeur, de créer un nouveau classeur (avec le nom par défaut classeur ... ) , de coller la feuille dans ce nouveau classeur et d'ouvrir la boite de dialogue enregistrer sous jusqu'ici tout va bien! Lorsque je choisis le chemin et clique sur enregistrer tout fonctionne!
Mon problème vient de quand on clique sur annuler! La boite de dialogue enregistrer sous avec le nom par défault que je lui attribut grâce aux variables se ferme mais une deuxième boite de dialogue enregistrer sous s'ouvre avec comme nom par défault classeur.... ce qui est normal vu que cette feuille n'a jamais été enregistrée! J'aimerai cependant que cette demande ne se fasse pas et que ma feuille temporaire avec le nom classeur... se ferme automatiquement sans le demander lorsqu'on clique sur annuler!
J'espère avoir été clair. Bonne soirée!

[jfontaine]

Bonjour,

Actuellement ton code sauvegarde ton classeur wb quand pas de nom
Utilise False pour ne pas sauvegarder

Code :

1
2
3
4
5
6
7
8
9
If NomFichier = False Then
        MsgBox "Enregistrement annulé."
        wb.Close False
    Else
        MsgBox NomFichier
        wb.Sheets(stFeuille).Cells(1, 1).Select
        wb.SaveAs NomFichier
        wb.Close
    End If

[biddal]

Merci beaucoup jfontaine c'est exactement ce qu'il me fallait!!
Bonne journée