Tout d'abbord bonjour a tous
Je developpe une application en Access et j'ai quelque questions:
-Est il possible de faire disparaitre le message d'avertissement avant l'effacement d'une table cree par une requete creation(contenant Into ,j'ai reussi a enlever tous les autres messages d'avertissements sauf celui la en decochant les onglets dans les options)
-Je fais une fusion avec un document word d'une de mes tables mais j'aimerais pouvoir l'envoyer en mail automatiquement a partir de access (avec sendmail) mais impossible de rentrer automatiquement l'addresse destination
-J'aimerais savoir si il est possible de decouper un etat en plusieurs (selon un champ "NumerodeFacture" )
 
Je sais ca fait beaucoup de questions et merci a celui qui m'aidera

 
Je faisait diparaitre tous les messages à l'époque pour mettre les miens à la place.
Mais je faisait ça par le code en VBA avec une commande (je me rappelle plus exactement la syntaxe, ça fait plus de 4 ans):
setwarnings=false avant d'envoyer la requete
setwarnings=true pour réactiver les messages après ta requete

Merci

Bonjour
J'ecris une appli en access qui entre autres doit envoyer de la doc par email a des clients appeles
J'ai un bouton sense ouvrir un document word ,le fusioner avec les donnees de mon client (a partir d'une table cree par une requete) ,l'envoyer par email a une addresse contenue dans un champ de la form puis fermer ce document word.
Le probleme c'est que l'envoi ne marche que pour le premier client ,quand je passe de record et que je rappuie sur mon bouton l'envoi ne se fait plus.
J'ai egalement un pb de raffraichissement des donnees contenues dans le document de fusion
Voici mon code (je suis novice c'est pas de l'art) , si quelqu'un peut m'aider...
 
Private Sub FusionEtEmail_Click()
On Error GoTo Err_FusionEtEmail_Click
 
Dim oApp As Object
Dim stDocName As String
Dim destinataire As String
'Creation de la table contenant l'enregistrement courant
DoCmd.SetWarnings False
stDocName = "FusionBL"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
'NE PAS OUBLIER DANS TOOLS-->REFERENCES DE COCHER LES CASES
'----------------------------------------MICROSOFT OFFICE 10.0 OBJECTS LIBRARY
'----------------------------------------MICROSOFT WORD 10.0 OBJECTS LIBRARY
 
'Ouverture du document de fusion Word
Set oApp = CreateObject("Word.Application" )
oApp.Visible = True
oApp.Documents.Open ("C:\Appli\BLVitallioFAX.doc" )
 
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Appli\B_EnrCourant.mdb", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Appli\B_EnrCourant.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=""""" _
, SQLStatement:="SELECT * FROM `T_EnrCourant`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
CommandBars("Task Pane" ).Visible = False
destinataire = Form_Clientèle.NumTélécopie & "@xxxxx.fr"
 
'Rafraichissement de l'affichage et de la fusion
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
 
 
ActiveDocument.MailEnvelope.Item.Recipients.Add destinataire
ActiveDocument.MailEnvelope.Item.Send
''Probleme impossible d'envoyer un deuxieme mail
''Problemepour fermer le document
 
Err_FusionEtEmail_Click:
Exit Sub
 
End Sub
 
Merci d'avance

meme en rajoutant  
oApp.Close
Set oApp = Nothing
 
avant Err_FusionEtEmail_Click:  
j'ai toujours rien

je me decourage j ai essaye toute sortes de manieres
il me semble que qu il est tres delicat d'ouvrir a la fois une appli outlook et ala fois une appli word et de les faire interagir  
Visiblement cela ne marche que la premiere fois