Message d'alertes

Question

Je lance cette macro depuis excel qui ouvre un fichier Word. Je n'arrive pas à désactiver les messages d'alertes de Word. Je souhaiterais quiter le fichier Word sans le message "Voulez vous enregistrer les modifications ...."

Sub ouvrir_fichier_word() Dim Fichier As String Dim WordApp As Word.Application Dim WordDoc As Word.Document Fichier = "D:\Mes Documents\Nom.doc" Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open(Fichier, ReadOnly:=False) 'True pour lecture seule WordApp.DisplayAlerts = wdAlertsNone WordApp.Selection.MoveDown Unit:=wdLine, Count:=1 WordApp.Selection.TypeText Text:="vbfrance.com" WordApp.Selection.HomeKey Unit:=wdStory WordApp.Selection.EndKey Unit:=wdStory, Extend:=wdExtend WordApp.Selection.Copy WordApp.Quit WordApp.DisplayAlerts = wdAlertsAll Set WordApp = Nothing Set WordDoc = Nothing End Sub

cs_casy · Answer

essaye avec WordApp.Saved=  True (ou un truc comme ça) juste avant le .Quit

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

didieraucun · Answer

J'ai mis ca :
WordApp.ActiveDocument.Close SaveChanges:=False

mais je n'ai réglé qu'une partie du probleme. j'ai encore le message :  

Et comme je vais avoir ce message à chaque fois .... 

Pas possible de désactiver tout ces fichus messages

cs_MPi · Answer

Sous Word, je ne sais pas, mais sous Excel, on utilise
Application.CutCopyMode = False
pour enlever la sélection en surbrillance... et du même fait ce message.

Il doit y avoir la même chose sous Word, du moins quelque chose de semblable...

MPi

Molenn · Answer

Sinon, il y a peut être moyen d'utiliser :

Application.displayAlerts avec la constante wdAlertsNone

Extrait de l'aide :
wdAlertsNone Aucune alerte ou boîte de message affichées. Si une macro rencontre une boîte de message, la valeur par défaut est affectée, et la macro poursuit son exécution.

Exemple : 
Application.DisplayAlerts = wdAlertsNone 

Molenn

Message d'alertes

4 réponses

Votre réponse

Discussions similaires