Annuler fenetre "enregistrer sous"

[yves03]

J'utilise cette macro pour copier une feuille dans un fichier, mais je voudrais pouvoir sortir de la macro si l'on appuie sur le bouton "Annuler" de la fenetre "enregistrer sous".
J'ai fait diverse tentative avec :

If x = false then exit sub

ça fonctionne à moitie, car j'ai

Activesheet.copy

avant, et si je le met apres, ça ne marche pas.

Si vous avez une idéé, voici le code:

Merci d'avance.

Sub Archive()
Dim archivage As String
Dim nom As String
Dim datt As String

Sheets("Historique Cde").Unprotect password:="yves"
If Range("A3").Value = "" Then
MsgBox "Archivage impossible, votre Historique est vide !! ", vbExclamation, "Attention..."
Exit Sub
End If

archivage = MsgBox(" Voulez-vous archivez votre Historique des Commandes ?", vbYesNo + vbExclamation, "Archivage")
If archivage = 7 Then Exit Sub
MsgBox "L'Historique des Commandes sera éffacé et sauvegardé ", vbInformation, "INFO"

ActiveSheet.Copy

datt = CStr(Format(Date, "dd mmmm yyyy"))
nom = CStr("Archive Cde ") & datt & ".xls"
Application.Dialogs(xlDialogSaveAs).Show nom

Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
Sheets("Historique Cde").Unprotect password:="yves"
Call effacehisto
Sheets("Historique Cde").Protect password:="yves"
Application.ScreenUpdating = True
End Sub

 

[tototiti2008]

Re : Annuler fenetre "enregistrer sous"

Bonjour yves,

Voilà la méthode que j'utilise en général, ça permet de faire un test avant de faire l'enregistrement :

Dim FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogSaveAs)
rep = FD.Show
If rep = False Then Exit Sub
FD.Execute

 

[yves03]

Re : Annuler fenetre "enregistrer sous"

Bonjour yves,

Voilà la méthode que j'utilise en général, ça permet de faire un test avant de faire l'enregistrement :

Dim FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogSaveAs)
rep = FD.Show
If rep = False Then Exit Sub
FD.Execute

Il me met une erreur sur cette ligne

Dim FD As FileDialog

 

[MichelXld]

Re : Annuler fenetre "enregistrer sous"

bonsoir

Il me met une erreur sur cette ligne
Dim FD As FileDialog

Peut être utilises tu une version d'Excel antérieure à 2002. Dans ce cas tu peux essayer:

Sub ChoixFichier()
    'La variable est de type Variant car elle peut prendre les valeurs:
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Fichier As Variant
    
    'Affiche la boîte de dialogue "Ouvrir"
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Fichier = False Then Exit Sub
    
    'Affiche le chemin et le nom du fichier sélectionné.
    MsgBox Fichier
    
End Sub

bonne soirée
michel
Microsoft Excel MVP

 

[yves03]

Re : Annuler fenetre "enregistrer sous"

bonsoir





Peut être utilises tu une version d'Excel antérieure à 2002. Dans ce cas tu peux essayer:

Sub ChoixFichier()
    'La variable est de type Variant car elle peut prendre les valeurs:
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Fichier As Variant
    
    'Affiche la boîte de dialogue "Ouvrir"
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    
    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    If Fichier = False Then Exit Sub
    
    'Affiche le chemin et le nom du fichier sélectionné.
    MsgBox Fichier
    
End Sub

bonne soirée
michel
Microsoft Excel MVP

Oui j'utilise Excel 2000.

Ta macro fonctionne, mais par contre je ne sais pas comment l'adapter a ma macro que j'ai mis dans le 1er post.
Si quelqu'un pouvait m'aider.
Merci d'avance

 

[Guest]

Re : Annuler fenetre "enregistrer sous"

Bonsoir Yves,

Michel n'a pas l'air d'être là, alors essaie ceci et dis nous si cela convient:

Sub Archive()
    Dim archivage As String
    Dim nom As String,[COLOR=red] Fichier As Variant[/COLOR]
    Dim datt As String
    Sheets("Historique Cde").Unprotect Password:="yves"
    If Range("A3").Value = "" Then
        MsgBox "Archivage impossible, votre Historique est vide !! ", vbExclamation, "Attention..."
        Exit Sub
    End If
    archivage = MsgBox(" Voulez-vous archivez votre Historique des Commandes ?", vbYesNo + vbExclamation, "Archivage")
    If archivage = 7 Then Exit Sub
    MsgBox "L'Historique des Commandes sera éffacé et sauvegardé ", vbInformation, "INFO"
    datt = CStr(Format(Date, "dd mmmm yyyy"))
    nom = CStr("Archive Cde ") & datt & ".xls"
    [COLOR=red]Fichier = Application.GetSaveAsFilename(InitialFileName:=nom, FileFilter:="Classeur excel (*.xls),*.xls")[/COLOR]
 
[COLOR=red][COLOR=black]  'Si choix annuler, sortir[/COLOR]
 
[/COLOR]   [COLOR=red]If Fichier = False Then Exit Sub[/COLOR]
 
    ActiveSheet.Copy
 
    Application.ScreenUpdating = False
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True[COLOR=red], Filename:=Fichier[/COLOR]
    Application.DisplayAlerts = True
    Sheets("Historique Cde").Unprotect Password:="yves"
    Call effacehisto
    Sheets("Historique Cde").Protect Password:="yves"
    Application.ScreenUpdating = True
End Sub

Tu remarqueras que j'ai ajouté un Filename:=Fichier à la fermeture du fichier, mais tu peux y mettre la variable Nom si tu ne veux pas que l'utilisateur change le nom du fichier proposé dans la fenêtre d'enregistrement.

A bientôt

 

[yves03]

Re : Annuler fenetre "enregistrer sous"

Merci de ton aide encore une fois.
Il y a un petit probleme, la partie annuler de la fenetre enregistrer fonctionne, par contre quand je veux enregistrer le fichier, la macro se bloque ici

If Fichier = False Then Exit Sub

Si tu as une idée
Merci

 

[Guest]

Re : Annuler fenetre "enregistrer sous"

Yves,

Oui, excuses moi j'ai fait une erreur de logique:

Déclarer Fichier comme ceci: Dim Fichier As Variant

 [COLOR=red]If Fichier <> False Then[/COLOR]
    ActiveSheet.Copy    
    Application.ScreenUpdating = False
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True[COLOR=red], Filename:=Fichier[/COLOR]
    Application.DisplayAlerts = True
    Sheets("Historique Cde").Unprotect Password:="yves"
    Call effacehisto
    Sheets("Historique Cde").Protect Password:="yves"
    Application.ScreenUpdating = True
[COLOR=red]End IF[/COLOR]

A bientôt

 

[yves03]

Re : Annuler fenetre "enregistrer sous"

Je ne sais plus comment te dire MERCI .
C'est Super.
Merci encore.
Bonne soirée.
😉

 

[tototiti2008]

Re : Annuler fenetre "enregistrer sous"

Bonjour à tous,

désolé, j'avais oublié que FileDialog n'existait que depuis Excel 2002....