Dans cet article, vous apprendrez comment mettre à jour automatiquement les liens de classeurs externes après un intervalle de temps x à l’aide du code VBA.

Q): Comment puis-je actualiser automatiquement les liens de classeurs externes toutes les 10 secondes?

Pour mettre à jour le fichier Excel toutes les 10 secondes; nous devons suivre les étapes ci-dessous:

Nous devons créer deux fichiers Excel 1) Source.xlsm & 2) Target.xlsm Nous devons maintenant ouvrir les deux fichiers.

Dans le classeur source, nous avons utilisé la fonction RAND dans la plage A1: D10 Puis copiez cette plage en utilisant la commande Collage spécial et choisissez Coller le lien dans le classeur cible, reportez-vous ci-dessous à la capture d’écran

img2

img3

Dans le classeur cible; lancer l’éditeur VB Cliquez sur l’onglet Développeur * Dans le groupe Code, sélectionnez Visual Basic

img4

Dans ce module de cahier, entrez le code suivant

Sous-classeur privé_Open ()

Appeler Update_Links

End Sub

img5

  • Cliquez sur Insérer puis Module

img6

Cela créera un nouveau module.

Entrez le code suivant dans le module

Sous Update_Links ()

En cas d’erreur Reprendre suivant

ActiveWorkbook.UpdateLink Nom: = ActiveWorkbook.LinkSources

Application.OnTime DateAdd (« s », 10, Now), « Update_Links »

End Sub

img7

Le code ci-dessus continuera à s’exécuter toutes les 10 secondes et mettra à jour les liens.