Word Mon Fichier Word est vide aprés sauvegarde

Azuveus

XLDnaute Nouveau
Bonjour,

Voila la situation, j'ai créer un document word :
1630931647938.png


L'utilisateur rempli le document puis clique sur le bouton "Envoyer le mail"

VB:
Private Sub CommandButton1_Click()

'Declaration des variables
Dim TitreMail As String
Dim NomFichier As String
Dim NomClient As String
Dim NumFacture As String
Dim TypeDoc As String
Dim Reason As String
Dim Lien As String

'Récupération des variables
TypeDoc = Left(ActiveDocument.Tables(1).Cell(1, 2).Range.Text, Len(ActiveDocument.Tables(1).Cell(1, 2).Range.Text) - 1)
NomClient = Left(ActiveDocument.Tables(1).Cell(2, 2).Range.Text, Len(ActiveDocument.Tables(1).Cell(2, 2).Range.Text) - 1)
NumFacture = Left(ActiveDocument.Tables(1).Cell(6, 2).Range.Text, Len(ActiveDocument.Tables(1).Cell(6, 2).Range.Text) - 1)
Reason = ActiveDocument.Tables(1).Cell(9, 2).Range.Text
Lien = "\\***\DEMANDE_2021\"
NomFichier = Left(TypeDoc, Len(TypeDoc) - 1) & " - " & Left(NomClient, Len(NomClient) - 1) & " - " & Left(NumFacture, Len(NumFacture) - 1)
TitreMail = "REQUEST FOR CREDIT - " & NomClient & " - " & TypeDoc & " - FA " & NumFacture

'Sauvegarde du fichier sur le Groupe G
ActiveDocument.SaveAs FileName:="\\***\Demande VF11\DEMANDE_2021\" & NomFichier & ".docx"
 
 
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)

monItem.To = "***@***.fr"
monItem.CC = "***@***.fr
monItem.BCC = "***@***.fr"

monItem.Subject = TitreMail
monItem.HTMLBody = "Bonjour ***,<br /><br /> Veuillez trouver ci-joint une nouvelle demande de <b>" & TypeDoc & "</b><br /> Client :<b> " & NomClient & "</b><br /> Numero de facture : <b>" & NumFacture & "</b><br />Raison : <b>" & Reason & "</b></b><br /><br />Une copie de ce fichier est enregistré sur le groupe G. <br /> Dossier de sauvegarde : " & Lien & "<br /><br /> Cordialement.<br /> L'équipe Customer Care Spécialist."

monItem.Attachments.Add (ActiveDocument.FullName)
monItem.Send

Set ol = Nothing

'Réinitialisation des champs
ActiveDocument.ContentControls(1).DropdownListEntries(1).Select
ActiveDocument.ContentControls(3).DropdownListEntries(1).Select
ActiveDocument.ContentControls(4).DropdownListEntries(1).Select

ActiveDocument.Tables(1).Cell(2, 2).Range.Text = ""
ActiveDocument.Tables(1).Cell(3, 2).Range.Text = ""
ActiveDocument.Tables(1).Cell(4, 2).Range.Text = ""
ActiveDocument.Tables(1).Cell(5, 2).Range.Text = ""
ActiveDocument.Tables(1).Cell(6, 2).Range.Text = ""
ActiveDocument.Tables(1).Cell(8, 2).Range.Text = ""
ActiveDocument.Tables(1).Cell(9, 2).Range.Text = ""

'Comfirmation d'envois du mail
MsgBox "Demande envoyé avec succés "
End Sub

Le code fonctionne, car il envoi bien le mail est sauvegarde une copie a l'endroit souhaité! Le problème est que une fois le mail reçu, le fichier dans le s'ouvre complètement vide... il est egalement vide si je l'ouvre depuis la ou il est stocker... Je ne comprends pas pourquoi.

Pourriez vous m'aider svp ?
Azuveus.
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510