IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

MsgBox et actualisation Power Query [XL-365]


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    novembre 2009
    Messages
    217
    Détails du profil
    Informations personnelles :
    Localisation : France, Puy de Dôme (Auvergne)

    Informations forums :
    Inscription : novembre 2009
    Messages : 217
    Points : 65
    Points
    65
    Par défaut MsgBox et actualisation Power Query
    Salut,

    J'ai une BDD excel qui est en lien avec d'autres fichiers comme "Devis". Je souhaites lorsque j'ouvre le fichier "Devis" que cela me demande si je veux actualiser et mettre à jour le fichier.
    J'ai mis cela dans le VB :

    Onglet ThisWorkbook :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub workbook_open()
     
    MsgBox ("Voulez-vous mettre à jour le fichier ?"), vbYesNo
        If vbYes Then ActiveWorkbook.RefreshAll
        If vbNo Then Exit Sub
     
    End Sub
    Le problème, c'est que je fasses oui ou non, cela m'actualise tout automatiquement.

    Avez-vous une solution ?

    Merci par avance
    @+

  2. #2
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    juillet 2012
    Messages
    8 803
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 8 803
    Points : 81 302
    Points
    81 302
    Billets dans le blog
    15
    Par défaut
    Salut,

    Quelque chose comme ceci devrait fonctionner (proposition d'un débutant) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Sub workbook_open()
    Dim MiseJour As Integer
    Dim Cancel As Boolean
        MiseJour = MsgBox("Voulez-vous mettre à jour le fichier ?", vbQuestion + vbYesNo)
        If MiseJour = vbYes Then ActiveWorkbook.RefreshAll Else Cancel = True
    End Sub
    En attendant les experts vont passer pour d'autres propositions
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

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

Discussions similaires

  1. Réponses: 3
    Dernier message: 21/07/2021, 14h31
  2. Actualiser requêtes Power Query fichiers Excel fermés
    Par mcfive dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 21/03/2018, 21h50
  3. Réponses: 0
    Dernier message: 03/09/2014, 14h33
  4. [Power Query] Partage dans Sharepoint Enterprise ?
    Par jdmbh dans le forum Power BI
    Réponses: 0
    Dernier message: 16/04/2014, 09h49

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