Pièce jointe

[renard700]

Bonjour a tous,
je m arrache les cheveux dans le code suivant pour attacher une pièce jointe
le code bloque a .Attachments.Add p1 et je ne comprend pas malgré des exemples trouvés dans le forum.
Merci de votre aide

Sub Envoi()

Dim nom As String, ol As New Outlook.Application, derlg As Integer, repcourant As String, p1 As String, p2 As String
Dim olmail As MailItem, admail As String, messmail As String, i As Integer, nomfamille As String, prenom As String, daten As String, tech As String, medecin As String

repcourant = Application.ThisWorkbook.Path
If Dir(repcourant & "\Fiches Installations Axxx", 16) = "" Then MkDir repcourant & "\Fiches Installations Aeris"

'paramètres
daten = "-" & Day(Now) & "." & Month(Now) & "." & Year(Now)
nomfamille = ActiveSheet.Range("C11").Value 'case a lire
prenom = ActiveSheet.Range("C13").Value 'case a lire
tech = ActiveSheet.Range("F6").Value 'case a lire
medecin = ActiveSheet.Range("C15").Value 'case a lire
messmail = "Ci-joint le rapport d'installation de Mr" & " " & nomfamille & " " & prenom & "," & " " & "réalisé par" & " " & tech
admail = "xxxxxxx@xxxxx.fr"
p1 = ActiveSheet.Range("G19").Value

With Sheets("patient")
   .Select
   nom = ThisWorkbook.Path & "\" & "Fiches Installations Aeris" & "\" & nomfamille & "_" & prenom & daten & "-" & "Dr_" & medecin & ".pdf"
   'MsgBox nom
   .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      nom, Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, _
      OpenAfterPublish:=False
End With


Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
   .To = admail
   .Subject = "Rapport Installation de Mr " & nomfamille & " " & prenom 'Sujet
   .Body = messmail 'Corps du mail
   .Attachments.Add nom
.Attachments.Add p1

    .Display '.Send     'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With


 
End Sub

 

[renard700]

Re : Pièce jointe

En fait le code fonctionne bien, mais ma cellule G19 etant vide le code plante, comment eviter cela