Bouton non-imprimable et problème transfert Outlook [Résolu]

[choouux]

Bonjour,

Je cherche à savoir comment ne pas imprimer un bouton qui se trouve sur un document Word 2003.


Merci de votre aide

Pour info mon bouton sert à envoyer le document par E-Mail mais je n'arrive pas a remplir mon champs de destinataires

Si quelqu(un peut maider egalement dessus ca me ferait beaucoup plaisir

mon code est

Code :

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
SetMailAttachOption
End Sub
 
Sub SetMailAttachOption()
   Application.Options.SendMailAttach = True   'Or False
   ActiveDocument.SendMail
End Sub

Ps : j'ai deja regarder les autrers sujets mais je n'ai pas réussi a faire ce que je voulais


Merci d'avance

[Heureux-oli]

Pourquoi ne passe-tu pas une userform, j'ai pas trouvé comment ne pas imprimer le bouton.

Par contre, pour le textbox, j'ai bien un transfert d'informations.

Code :

1
2
3
4
5
 
Private Sub CommandButton1_Click()
MsgBox Me.TextBox1.Value
 
End Sub

Fait à la va vite, il réagit bien !

[choouux]

en fai tje ne voit pas comment une userform pourrait m'aider,

Mon bouton me sert à faire valider un document en le transmettant un un responsable de service via outlook.
J'ai donc besoin de laisser le bouton apparent afin que les utilisateurs le voit

A moins que la userform s'affiche à la fermeture du fichier et dans ce cas ca serait super mais je ne sais pas du tout comment faire ca

[Heureux-oli]

Sur l'évènement on close du document, tu peux faire apparaître ton UserForm.
Dans la FAQ word, il y a la liste des macros qui s'exécutent seules.

Pour l'envoi Outlook, je viens seulement de voir.

Il faut déclarer l'application Outlook pour pouvoir envoyer ton document.

En premier lieu, ajouter les références Outlook à ton projet.
Ensuite déclarer l'application Outlook dans ton code.
Utiliser un objet message et lui ajouter ton fichier en pièce jointe.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub CommandButton1_Click()
MsgBox Me.TextBox1.Value
Dim oApp As New Outlook.Application
Dim oMail As MailItem
Dim oDoc As Document
Set oDoc = ActiveDocument
oDoc.SaveAs "c:\temp\oli.docx"
 
 
 
Set oMail = oApp.CreateItem(olMailItem)
oMail.Attachments.Add ("c:\temp\oli.docx")
oMail.To = "Mon.detsinataire@dvp.com"
 
oMail.Send
 
 
 
End Sub

Voilà un exemple qui devrait t'aider un peu je pense

[choouux]

Je dois etre très nul car en j'ai bien vu que les Fonction Autoclose et Autoexit pourraient m'aider mais je ne saias pas ou les mettre

ton idée de lancer la userform1 a la fermeture du document est meilleure , d'ailleur cette userform1 est prete mais je n'arrive vraiment pas à la faire afficher quand je quitte word

il doit y avoir la synthaxe

UserForm1.show mais à quel endroit ?

[Heureux-oli]

Regarde sur le document joint, ouvre le et ferme le.

[choouux]

Génial ca fonctionne impeccable j'arrive a charger mon userform en quittant le document word aprsè en fonction de mon bouton que je selectionne outlook s'ouvre et prépare un E-mail avec la pièce jointe inclue


Grand merci à toi

Me manque plus qu'a reussir a remplir les champs d'adresse prédéfini dans outlook

Mais deja un enorme pas , grace toi

[Heureux-oli]

Dans mon code, je viens de vérifier, mais le

Code :

oMail.to

Permet de rentre le nom des destinataires.

[choouux]

Je ne comprend pas dans le code que tu me propose au dessus j'ai une erreur sur toutes les variables

le message de dit " type défini par l'utilisateur non défini "

comment résoudre ce problème ?


le seul code qui fonctionne est celui la

Code :

1
2
   Application.Options.SendMailAttach = True   'Or False
   ActiveDocument.SendMail

En tout cas merci à toi , j'apprend beaucoup de choses

[Heureux-oli]

En premier lieu, ajouter les références Outlook à ton projet.
Ensuite déclarer l'application Outlook dans ton code.
Utiliser un objet message et lui ajouter ton fichier en pièce jointe.

C'est parce que tu n'as pas ajouté les ref comme inscrit

[choouux]

c'est bien ce que je pensais , mais je ne sais pas comment faire je vais faire un tour dans la FAQ pour essayer de savoir comment on fait ces manipulations

merci

[Heureux-oli]

Dans l'éditeur VBE, Outils, Références, et tu dois activer les références pour Microsoft Outlook.

[choouux]

Génial, merci beaucoup de ton aide fort précieuse !!!

Ca parait si simple quand on connait ^^