Discussion :

[jj.bastin]

Bonjour à tous,

J'ai besoin de votre aide pour l'application suivante.

Lors de l'ouverture d'un fichier Excel qui se nomme ""tableau ........."", j'ouvre grâce aux codes ci-dessous un 2 èm fichier ""ARTBURET"" en lecture seule et un troisième ""Prix des collecteurs ........""

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Set c = ThisWorkbook
Application.Workbooks.Open ("F:\Noticeanc\ARTBURET.xls"), , True
Application.Workbooks.Open ("F:\Users\Commun SRC\Prix des collecteurs et kits hydrauliques ECG.xls")
c.Activate
Set c = Nothing
End Sub

Lors de la fermeture du 1er fichier c'est le principe inverse grâce à d'autre codes dans This workbook close et cela fonctionne très bien.

Toutefois lors de l'ouverture de mon premier fichier comme celui-ci est lié au 2 èm j'obtiens une boîte de dialogue qui m'informe que le classeur comporte des liaisons avec un autre classeur et cette boîte de dialogue me demande de faire la mise à jour en cliquant sur OK et de même pour le troisième fichier qui est lié au 1er.

Pouvez-vous m'aider à trouver le code à insérer pour mettre à jour les deux fichiers

De plus je suppose que le code pour le premier fichier doit être insérer dans this workbook open du premier fichier avec les autres codes d'ouverture toutefois pour le code du troisième fichier est ce qu'il sera inséré this workbook du troisième fichier et si oui dans quel répertoire ?????

Merci pour votre aide

J-J

[Philippe Tulliez]

Bonjour,

Toutefois lors de l'ouverture de mon premier fichier comme celui-ci est lié au 2 èm j'obtiens une boîte de dialogue qui m'informe que le classeur comporte des liaisons avec un autre classeur et cette boîte de dialogue me demande de faire la mise à jour en cliquant sur OK et de même pour le troisième fichier qui est lié au 1er.
Pouvez-vous m'aider à trouver le code à insérer pour mettre à jour les deux fichiers

Il y a moyen de le faire manuellement
Les options qui concernent les cellules liées se retrouvent dans les options avancées d'excel (Fichier-Options-Options avancées)
A ma connaissance, il y en a trois

Dans la section - Lors du calcul de ce classeur (2 options)

1. Mettre à jour les liaisons vers d'autres documents
2. Enregistrer les valeurs des liaisons externes

Dans la section Général

1. Confirmation de la mise à jour automatique des liens

Il y a également la possibilité de modifier les paramètres de la boîte de dialogue ModifIer les liaisons Onglet [Données] groupe Connections, commande Modifier les liens.
Dans invite de démarrage, il y a 3 options possibles

1. Laisser les utilisateurs choisir d'afficher ou non l'alerte
2. Ne pas afficher l'alerte et ne pas mettre à jour les liens automatiques
3. Ne pas afficher l'alerte et mettre à jour tous les liens

Les lignes ci-dessous concerne il me semble la version 2007 (mes notes sont de cette époque à mon avis)
Dans le backstage (onglet [Fichier])
Informations
Paramètres du centre de gestion de la confidentialité
A gauche Contenu externe
Paramètres de sécurité pour les liaisons de classeur
Activer la mise à jour automatique pour toutes liisons de classeur (non recommandé)

Le code VBA pour :
Mettre à jour les liaisons vers d'autres documents et enregistrer les valeurs des liaisons externes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ActiveWorkbook: .UpdateRemoteReferences = True: .SaveLinkValues = True: End With

Confirmation de la mise à jour automatique des liens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.AskToUpdateLinks = True