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

Carlich · 28 Juin 2021

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.

Bernard_XLD · 29 Juin 2021

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 · 29 Juin 2021

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 · 29 Juin 2021

Carlich à dit:
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 · 29 Juin 2021

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 · 29 Juin 2021

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 · 29 Juin 2021

Carlich à dit:
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 · 29 Juin 2021

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

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

Carlich

XLDnaute Junior

Bernard_XLD

Carlich

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Carlich

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Carlich

XLDnaute Junior

Discussions similaires