Microsoft 365 envoie mail par excel si fonction renvoie un url, n'envoie pas si vide

[danbibi]

bonjour a tous ! j'aimerai envoyer des mails automatiquement via des excel. Les fichiers sont du mon desktop. J'arrive a envoyer des mails grace a une macro seulement si j'insere dans la cellule le lien pdf.

Je fais un tableau afin que les lien pdf se creer automatiquement. Je dois envoyer un fichier a tout le monde. Ca pas de probleme, c'est le tableau des pdf1, ca envoie bien.

en ce qui concerne le deuxième pdf, parfois je voudrai l'envoyer aux clients, et parfois non, cela grâce a une colonne, ou lorsque la valeur est 1, je voudrais rajouter le pdf 2, et ne pas l'envoyer si la valeur est 0.

dans les cellules du pdf2, jai écrit cette fonction ( fonction si, et concatener)( si rajouter_pdf_2 = 0 je voudrais un vide ("")

ca marche quand la valeur du pdf2 est 1( ca envoie donc deux fichiers aux client) mais cela ne marche pas quand il doit y avoir qu'un seul pdf( c'est a dire quand la valeur est 0 dans rajouter_pdf_2)
auriez vous un macro qui me permet de corriger cette erreur ?
voici la macro

je ne sais pas coder
merci beaucoup !!

 

[danielco]

Quelle erreur ?

 

[danbibi]

 

[danbibi]

j'ai un autre dossier qui fonctionne sur le meme principe et j'aimerai choisir les fichies que je veux envoyer sans que le premer pdf soit obligatoire

 

[danielco]

Fais-moi parvenir le classeur.

Daniel

 

[danbibi]

dans mon commentaire precedent il y a le classeur (projet_immobilier), meme principe
merci a vous

 

[danielco]

IL faut avoir un colonne E et F pour les pdf 4 et 4 qu'ils existent ou non. Le tableau doit les inclure.

Daniel

 

[danbibi]

desole mais ca ne marche toujours pas dans le fichier projet_immobilier
sur le meme principe, j'ai un tableau avec des 0 et des 1 pour decider a qui je veux envoyez quoi et il me faut la macro adequate
j'ai 5 pdf differents par exemple

 

[danielco]

Quelle est l'erreur ? "ça ne marche pas" n'est pas une réponse.

Daniel

 

[danbibi]

lorsque j'essaie d'envoyer pdf2 et pdf3 , et pas le pdf 1, cela affiche l'erreur suivante:

 

[danielco]

Enfin ! C'est écrit, non ?

Le chemin ou le nom du fichier est incorrect.

Daniel

 

[danbibi]

j'ai compris l'erreur, mais j'ai bien verifier et les noms des fichiers sont correct, j'ai meme fait le test dans un autre classeur qui utilise ces fichiers et ils s'envoient bien par mail
La toute derniere macro que vous m'avez envoyer et censer envoyer des mails en fonction de mon choix, meme si je veux pas envoyer le premier pdf mais que le deux et le trois par exemple ? et tout ca en fonction de mon tableau de 1et 0 c'est ca ?

 

[danielco]

Désolé, j'ai commis une erreur :

Public Sub Send_Emails2()

    Dim table As ListObject
    Dim OutlookApp As Object
    Dim OutEmail As Object
    Dim r As Long
    
    Set OutlookApp = CreateObject("Outlook.Application")
    
    Set table = ActiveSheet.ListObjects(1)

    For r = 2 To table.Range.Rows.Count
        MsgBox "PDF1 " & table.ListColumns(2).Range(r).Value & vbCrLf & _
               "PDF2 " & table.ListColumns(3).Range(r).Value & vbCrLf & _
               "PDF3 " & table.ListColumns(4).Range(r).Value
        Set OutEmail = OutlookApp.CreateItem(0)
        With OutEmail
            .To = table.ListColumns(1).Range(r).Value
            .Subject = "Yarok Capital"
            .Body = "Bonjour, pouvez-vous confirmer blabla"
            For i = 2 To 6
              If table.ListColumns(i).Range(r).Value <> "" Then .Attachments.Add table.ListColumns(i).Range(r).Value
            Next i
            .Send 'or .Display to 6not send
        End With
    Next
    
    Set OutlookApp = Nothing
    
End Sub

Je ne me sers pas du tableau des "0" et des "1". Je teste si les colonnes B:F sont remplies ou non.

Daniel

 

[danbibi]

oui ca marche ! merci beaucoup pour votre patience