supprimer le message a l'ouverture de Word

supprimer le message a l'ouverture de Word - VB/VBA/VBS - Programmation

Marsh Posté le 26-08-2005 à 08:53:23    


j'ai un programme VB qui crée un fichier word fusion  
 
avec office 97 ==>  :) pas de probleme
 
sous Word 2002 et plus  :fou: ouverture d'un message d'alerte
 
premiere solution     .DisplayAlerts = wdAlertsMessageBox
 
mais je voudrai pouvoir supprimer ce message (avec wdAlertsnone le word ne s'ouvre pas car le bouton par defaut est à "NON"  
 
HELP HELP HELP  :??:  :??:  :??:  
 
 
merci d'avance
 

Reply

Marsh Posté le 26-08-2005 à 08:53:23   

Reply

Marsh Posté le 26-08-2005 à 09:57:44    

Peut-etre un parametre a preciser a une fonction pendant la creation de ton fichier word ? Je sais que j'avais eu le meme soucis lors de l'appel a la methode Close d'un workbook, et il suffisait de lui preciser le parametre AutoSave pour qu'il ne demande plus rien a l'utilisateur..
 
Enfin ce n'est qu'une idee..


Message édité par guendalf le 26-08-2005 à 09:58:08

---------------
Guendalf
Reply

Marsh Posté le 26-08-2005 à 11:19:04    

merci,
 
mais je ne vois pas ou???
 
le message arrive a la creation du document :
 
"A l'ouverture de ce document, la commande SQL suivante sera executee :
selec....
les donnees de votre base de donnees seront placees dans le document, souhaitez-vous poursuivre ? "
 
le probleme cet que le bouton par defaut est "NON"  
donc quand j'utilise la fonction "wdAlertsNone" comme elle prend la valeur par defauf. le document n'est pas cree...

Reply

Marsh Posté le 26-08-2005 à 12:10:32    

oui j'avais bien compris que tu ne pouvais pas juste desactiver les messages d'avertissements, car ils prennent la valeur par défault, qui n'est pas la bonne dans ton cas.
 
Peux-tu indiquer le code que tu effectues pour creer ton fichier word ? (Typiquement, où tu voulais desactiver les messages d'avertissements)


---------------
Guendalf
Reply

Marsh Posté le 26-08-2005 à 12:23:43    

Set Etat = GetObject(, "Word.Application" )
If Err.Number <> 0 Then Set Etat = CreateObject("Word.application" )
  Err.Clear    ' Efface l'objet Err si une erreur s'est produite.
On Error GoTo ErrFusionEditionDBOWord
 
With Etat
    ' Ouverture de l'overlay
     
    'Modif Mathias le 23/08/05
    .DisplayAlerts = wdAlertsMessageBox
     
         
    .Documents.Open FileName:=CheminOverlay & NomOverlay, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto

Reply

Marsh Posté le 26-08-2005 à 14:03:51    

tu peux donner quelques precisions sur la nature du fichier "Overlay" ?
C'est un fichier word qui contient une macro effectuant une requete SQL ??


---------------
Guendalf
Reply

Marsh Posté le 26-08-2005 à 14:21:10    

les données se trouvent dans un fichier Word
 
l'overlay fait une fusion de fichier (c'est lui qui crée la requette tout seul )

Reply

Marsh Posté le 15-10-2005 à 12:24:14    

Pour la solution, allez voir mon code source à l'adresse suivante :
J'ai mis du temps à trouver mais j'y suis arrivé.  
Allez-y, c'est bien commenté ;-)
 
http://www.vbfrance.com/code.aspx?ID=34207
 
Christophe  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed