Microsoft 365 Bouton pour mettre a jour automatiquement un fichier avec une BDD fermée

Carlich

XLDnaute Junior
Bonjour tout le monde j'espère que vous allez bien.

J'aurais besoin d'aide car j'aimerais pouvoir mettre a jour un fichier Excel avec macro qui fonctionne grâce a une base de données externe qui sort d'un logiciel externe.

En gros ma base de données me donne des chiffres qui peuvent changer toutes les heures et que je sors grâce a un logiciel externe qui me sort un Excel sans nom. Je dois donc:
1/ Sortir l'Excel de mon logiciel externe
2/ Enregistrer et remplacer par ma base de données
3/ Quitter l'Excel que j'ai remplacer
4/ Rouvrir la base de données pour que mon fichier "Toto" soit a jour

Et donc j'aimerais avoir un bouton sur mon fichier "Toto" qui me permettrais de skip l'étape 4 et mettre a jour mon fichier "Toto" sans avoir à rouvrir la base de données

J'espère avoir était clair, merci d'avance a tous ceux qui vont se pencher sur mon problème.
 
Solution
Bonjour carlich, etoto, le forum

si c'est le classeur actif
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
si c'est le classeur contenant la macro
ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources
si c'est un autre classeur ouvert
Workbooks("nomclasseur").UpdateLink Name:=Workbooks("nomclasseur").LinkSources

Bien cordialement, @+

Carlich

XLDnaute Junior
Personne a une solution svp?

Peut-être ai-je mal expliquer mon problème ; J'aimerais rafraichir mon tableau Excel si je change la base de donnée qui est fermé

VB:
Sub Test_Connection()

Dim Chemin As String, Fichier As String

Chemin = "E:\Miroiterie Fred\"
Fichier = "Test BDD Connexion"

ActiveWorkbook.RefreshAll


End Sub

J'ai pensé a ça tres basiquement mais ca ne fonctionne pas
 

Etoto

XLDnaute Barbatruc
Personne a une solution svp?

Peut-être ai-je mal expliquer mon problème ; J'aimerais rafraichir mon tableau Excel si je change la base de donnée qui est fermé

VB:
Sub Test_Connection()

Dim Chemin As String, Fichier As String

Chemin = "E:\Miroiterie Fred\"
Fichier = "Test BDD Connexion"

ActiveWorkbook.RefreshAll


End Sub

J'ai pensé a ça tres basiquement mais ca ne fonctionne pas
Bonjour,

Et Power Query ??? C'est son job. Mais ça vient de quel logiciel ?
 

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Bonjour carlich, etoto, le forum

si c'est le classeur actif
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
si c'est le classeur contenant la macro
ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources
si c'est un autre classeur ouvert
Workbooks("nomclasseur").UpdateLink Name:=Workbooks("nomclasseur").LinkSources

Bien cordialement, @+
 

Carlich

XLDnaute Junior
Bonjour Etoto, Yeahou

Merci de vos réponses a tous les 2

Etoto : je ne connaissais pas "Power Query" je vais me renseigner sur internet pour voir si ca peut correspondre a mes besoin

Yeahou : La base de données est fermée et ma feuille qui reprend ces données est ouvert, je vais testé les les formules que tu m'as donné merci
 

Etoto

XLDnaute Barbatruc
Bonjour Etoto, Yeahou

Merci de vos réponses a tous les 2

Etoto : je ne connaissais pas "Power Query" je vais me renseigner sur internet pour voir si ca peut correspondre a mes besoin

Yeahou : La base de données est fermée et ma feuille qui reprend ces données est ouvert, je vais testé les les formules que tu m'as donné merci
Re,

Power Query est un logiciel de Microsoft intégré a Excel et Power BI qui sert au transfert de données, avec Power Query on a du transfert de données ré-actualisable et totalement personnalisable. Exemples de transfert possibles :

Web à Excel
Excel à Excel
Excel à Power BI
Web à Excel
Access à Excel
TXT à Excel
CSV à Excel
etc....

Vraiment super pratique, je trouve
 

Carlich

XLDnaute Junior
Re, Etoto

D'accord je connaissais pas, ca à l'air très intéressant dans mon cas, il faut que je me renseigne sur ce Power Query

Sinon la méthode de Yeahou fonctionne aussi j'ai utilisé cette formule
VB:
Sub Test_Connection()

Dim Chemin As String, Fichier As String

Chemin = "E:\Miroiterie Fred\"
Fichier = "Test BDD Connexion"

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

End Sub

Quand je clique sur mon bouton, il met a jour l'Excel active c'est impeccable

Merci a vous 2:D
 

Discussions similaires

Réponses
13
Affichages
261

Statistiques des forums

Discussions
313 195
Messages
2 096 101
Membres
106 495
dernier inscrit
dylan.44