Discussion :

[PeaceMaker]

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 !

[casefayere]

Bonjour Peace, le forum,

Pour éviter les messages d'alertes :

Code :

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

application.DisplayAlerts =false

il ne faut pas oublier en fin de code

Code :

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

application.DisplayAlerts =true

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

a +

[PeaceMaker]

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 :

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

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

[casefayere]

Je ne connais pas le savechanges dans

Code :

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

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 :

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

savechanges:=False

devrait paraitre avant la fermeture

à mon avis....

[PeaceMaker]

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 ?

[casefayere]

je viens de voir ça pour les ref circulaires :

Code :

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

Application.Iteration = false

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