Code VBA pour répondre au Box

Bonjour à tous,

Je cherche à produire une macro en VBA me permettant d'ouvrir un classeur Excel pour ensuite faire des manips dessus.

Le problème est que, lorsque j'ouvre ce classeur, Excel me lance des messages comme "Mettre ou pas à jour les liaisons avec d'autres classeurs"

Or, je ne sais pas comment programmer une réponse automatique en VBA, afin que ma macro ne se retrouve pas bloqué dès l'ouverture du fichier, à cause des messages qui s'affichent et nécessitent une réponse.

Je suppose que mon problème est simple à résoudre pour la plupart des passionnés d'Excel, mais j'ai effectué mes propres recherches et impossible de trouver ce code. J'ai uniquement trouver les instructions pour créer des MsgBox mais rien pour répondre au message d'Excel.

Merci pour votre aide !

Bonjour Peace, le forum,

Pour éviter les messages d'alertes :

Code:

---

application.DisplayAlerts =false

---

il ne faut pas oublier en fin de code

Code:

---

application.DisplayAlerts =true

---

mais si tes mises à jour des liaisons avec d'autres fichiers doivent se faire, provoque les par code

a +

Bonjour Casefayere,

Ton code permet a la macro d' "oublier" le message et d'effectuer les manips sur le classeur.

Seulement, une fois ces manips finies, la macro refuse de me fermer le classeur.

Voici le code VBA en début/fin de macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ReportDonnées()   Application.DisplayAlerts = False   Workbooks.Open Filename:= _ "K:\Tableaux de couts\Cochet Beurre de Cacao.xls"   ' les manips à effectuer....   Application.DisplayAlerts = True   Workbooks("Cochet Beurre de Caco.xls").Close savechanges:=False   End Sub

---

La fermeture du classeur Workbooks("Cochet Beurre de Caco.xls").Close savechanges:=False ne veut pas s'exécuter. Il me met un message d'erreur

Je ne connais pas le savechanges dans

Code:

---

Workbooks("Cochet Beurre de Caco.xls").Close savechanges:=False

---

mais tu ne peux enregistrer ou ne pas enregistrer un fichier après l'avoir fermé donc ce bout de code

Code:

---

savechanges:=False

---

devrait paraitre avant la fermeture

à mon avis....

J'ai enlevé le code savechanges:=False

Mais excel me dit que le code Workbooks("Cochet Beurre de Caco.xls").Close est faux ??

Il me semble pourtant que c'est bien ce code qui permet de fermer le classeur.

A moins que justement, les messages "ignorés" par la macro à l'ouverture du classeur mais toujours présent à la fermeture du classeur empêche le code VBA de fermer le classeur.

Qu'en penses-tu ?

et si tu mets

Code:

---

activeworkbook.Close

---

C'est bon pour la fermeture du classeur.

C'était en fait du à une erreur de saisie sur le nom du fichier :roll:

Par contre, le problème des Box d'Exce à l'ouverture du classeur reste le même. Si je n'y réponds pas, la macro n'exécute pas la suite des manipulations programmées.

Comment programmer une réponse automatique alors ?

s'il y a des liaisons à provoquer, fais le par macro et laisse le

Code:

---

Application.DisplayAlerts = False

---

au début,
maintenant, je ne connais pas la teneur de tes autres alertes !!!

En fait, il me fait 2 alertes à l'ouverture du fichier :
- la mise à jour ou pas des liaisons
- le mise en garde à cause des références circulaires

Je souhaite donc programmer automatiquement les réponses qui seront :
- pour la 1ière alerte : "Ne pas mettre à jour"
- pour la 2ième alerte : "Annuler"

Quel est le code VBA à saisir sur l'éditor pour que les réponses automatiques soient exécutés par la macro ?

Merci d'avance Casefayere !

Pour les liaisons, je pense que cela suffit

Code:

---

Application.AskToUpdateLinks = false

---

pour les ref circulaires

Code:

---

Application.DisplayAlerts = False

---

devrait suffire mais je peux me tromper

je viens de voir ça pour les ref circulaires :

Code:

---

Application.Iteration = false

---

regardes ce que ça peut donner (surtout avant la fermeture du classeur)

le message d'alerte sur la mise à jour des liaisons persiste mais je vais trouver une solution autre.

Ne t'embête plus.

Merci de ton aide en tout cas !