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

[Carlich]

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.

 

[Carlich]

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é

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]

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é

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]

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]

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]

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]

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

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