messages intempestifs ouverture fichier

Bjr,

mon code:

Code:

---

1 2 3

Application.DisplayAlerts = False Set Classeur_courant = Workbooks.Open(chemin & Fichier) Application.DisplayAlerts = True

---

J'essaie de ne plus avoir le message "ce classeur contient des liens...mettre à jour ? etc"
mais pas moyen
Why?
Cdt

Bonjour,

Essaye d'aller dans le menu "édition/Liaison/Invite de démarrage" et choisis l'option "ne pas afficher le message d'alerte et ne pas mettre à jour" ou "ne pas afficher le message d'alerte et mettre à jour"

Je suppose que tu parles des fichiers que la macro essaie d'ouvrir ?
il y en a parfois 90 et que cinq ou six qui ont des liens et on ne sait pas lesquels à l'avance.

Non, je parlais uniquement du fichier dans lequel est la macro

Je n'y ai pas accès (grisé)

Le code vba pour supprimer le message sans mise à jour est:

Code:

---

ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

---

ou ce code pour mettre à jour sans message

Code:

---

ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

---

Essaye de l'adapter pour voir si ça marche

J'ai essayé avant l'ouverture et après mais ç'est tjs pareil.

J'ai essayé ça:

Code:

---

1 2 3 4

Application.DisplayAlerts = False Application.AskToUpdateLinks = False Set Classeur_courant = Workbooks.Open(chemin & Fichier) Application.DisplayAlerts = True

---

ça a l'air de fonctionner.
Merci à toi all.