Discussion :

[cyr78]

Bonsoir,

J'ai créé un formulaire avec un bouton pour l'envoyer par mail sans sortir du doc. Je souhaiterais rajouter dans mon code vba la fonction "enregister sous" afin que le formulaire n'arrive pas vierge dans la boite mail de réception.
Est ce que j'ai été assez clair dans mes explications ? Et si oui, est ce que quelqu'un peut m'aider ?

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
  Dim ol As Object, monItem As Object
  Set ol = CreateObject("outlook.application")
  Set monItem = ol.CreateItem(olMailItem)
 
  monItem.To = "cartesdevisite.fr@sodexo.com"
  monItem.Subject = "Commande cartes de visite"
  monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver ci-jointe ma demande de cartes de visite" & Chr(13) & Chr(13) & "Merci"
  Set mondoc = monItem.Attachments
  mondoc.Add ActiveDocument.FullName
  monItem.Send
  Set ol = Nothing
  MsgBox "la demande a bien été transmise "
 
End Sub

[Heureux-oli]

Salut,

Peut-être :

Code :

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

ActiveDocument.SaveAs "Le Nom.doc"

[cyr78]

Est ce que je met la ligne n'importe où dans le code ? De plus, je laisse "le nom.doc" ou il faut que que je définisse un nom ?

[cyr78]

En fait, j'ai trouvé comment utiliser le code mais je voudrais que l'utilisateur puisse choisir le nom et l'emplacement de sauvegarde. Peux-tu m'aider ?

[Heureux-oli]

Salut,

Alors il faut ouvrir une boîte de dialogue.

Code :

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

Application.Dialogs(wdDialogFileSaveAs).Show

Mais l'idéal est de l'assortir à un test pour déterminer si le document n'a pas été sauvegardé par l'utilisateur.

Code :

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

1
2
3
If  Not ActiveDocument.Saved Then
Application.Dialogs(wdDialogFileSaveAs).Show
End if

[cyr78]

Merci, c'est bon. Tout fonctionne comme je le souhaitais.