olivier147
XLDnaute Nouveau
Bonjour à tous,
Je précise que je suis débutant en VBA, je bricole pas mal avec les codes pour m'en sortir mais cette fois-ci je ne comprends pas ce qui bloque.
J'ai créé un formulaire avec différents champs à remplir style TextBox. Une fois le formulaire rempli, l'utilisateur à la possibilité de presser un bouton pour faire suivre le formulaire via un mail au format PDF.
Dans la macro je teste d'abord si une TextBox n'est pas vide, auquel cas le message suivant s'affiche: "Veuillez remplir la case X". Ici que la TextBox soit remplie ou non le message précédent s'affiche, à croire que pour lui le champs est tout le temps vide....
Voyez vous d’où vient le problème?
Merci d'avance
Sub Envoi_Mail()
If TextBox5 = "" Then
MsgBox "Veuillez remplir la case X"
Exit Sub
End If
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
' "C:\Users\Thierry\AppData\Local\Temp\MaFeuille.pdf "
CurFile = ThisWorkbook.Path & "\" & "MaFeuille.Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "monmail@gmail.com"
.Subject = "Main courante Flashover"
.Body = "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add CurFile
'.Attachments.Add "c:\My Documents\book.doc"
.Display '.Send
.Send
End With
' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub
Je précise que je suis débutant en VBA, je bricole pas mal avec les codes pour m'en sortir mais cette fois-ci je ne comprends pas ce qui bloque.
J'ai créé un formulaire avec différents champs à remplir style TextBox. Une fois le formulaire rempli, l'utilisateur à la possibilité de presser un bouton pour faire suivre le formulaire via un mail au format PDF.
Dans la macro je teste d'abord si une TextBox n'est pas vide, auquel cas le message suivant s'affiche: "Veuillez remplir la case X". Ici que la TextBox soit remplie ou non le message précédent s'affiche, à croire que pour lui le champs est tout le temps vide....
Voyez vous d’où vient le problème?
Merci d'avance
Sub Envoi_Mail()
If TextBox5 = "" Then
MsgBox "Veuillez remplir la case X"
Exit Sub
End If
' Nécessite la référence : Microsoft Outlook 1x Object Library
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
' "C:\Users\Thierry\AppData\Local\Temp\MaFeuille.pdf "
CurFile = ThisWorkbook.Path & "\" & "MaFeuille.Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "monmail@gmail.com"
.Subject = "Main courante Flashover"
.Body = "Vous trouverez ci-joint le fichier PDF ..."
.Attachments.Add CurFile
'.Attachments.Add "c:\My Documents\book.doc"
.Display '.Send
.Send
End With
' Effacer les variables objets
Set olMail = Nothing
Set olApp = Nothing
End Sub
Dernière édition: