1. #1
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    mars 2017
    Messages
    38
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 28
    Localisation : France, Hautes Pyrénées (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2017
    Messages : 38
    Points : 20
    Points
    20

    Par défaut [Débutante]-Problème enregistrer sous bouton annuler

    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.

  2. #2
    Membre émérite
    Femme Profil pro
    Étudiant
    Inscrit en
    octobre 2016
    Messages
    1 478
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 22
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : octobre 2016
    Messages : 1 478
    Points : 2 426
    Points
    2 426

    Par défaut

    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

  3. #3
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    mars 2017
    Messages
    38
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 28
    Localisation : France, Hautes Pyrénées (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2017
    Messages : 38
    Points : 20
    Points
    20

    Par défaut

    Merci à toi c'est parfait

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème enregistrer sous le format PDF
    Par dinier dans le forum Macros et VBA Excel
    Réponses: 21
    Dernier message: 17/05/2009, 23h23
  2. Problème Enregistrer-sous OleExcel
    Par aliboubou dans le forum C++Builder
    Réponses: 2
    Dernier message: 31/01/2008, 11h51
  3. Problème avec le bouton Annuler de la fonction Inputbox
    Par r0main2b dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/06/2007, 19h48
  4. [W3C] Type MIME, problème "enregistrer sous"
    Par spikelille dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 30/01/2006, 17h13
  5. [débutante] problème affichage sous Firefox
    Par silversky dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 16/09/2005, 13h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo