Quelqu'un de doué en macro ?? Fermé

Question

Bonjour, 

après de nombreuses recherches, je n'ai rien trouvé de détaillé a propos des macro assez complexes

en gros: 

j'ai un classeur excel avec les noms (mr xxx)  et adresses mail (***@***)
a chaque nom je dois envoyer un mail unique (m1)  et une pièce jointes (pj1) dans un dossier. 

est-ce réalisable svp ? 

milles merci vous me feriez gagner énormément de temps !!!

gbinforme · Answer

Bonjour, 
 
est-ce réalisable svp ? 
Oui, c'est possible avec excel mais pour coder une macro il faut savoir ce que tu veux envoyer, dans quelles conditions et bien sûr connaitre l'organisation du classeur.

Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, ce serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur  https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.

gbinforme · Answer

Bonjour, 

Voici ton classeur avec la macro d'envoi de tes mails

https://www.cjoint.com/c/FHukgGDbfDl

Il faut bien sûr mettre des adresses correctes.

rom · Answer

merci beaucoup pour vos réponses !! 


aussi, est-il possible de me faire une "traduction" de la macro svp ? histoire que je puisse m'y retrouver.

Pour l'adresse du fichier à rechercher, je n'arrive pas à la changer, entre le (), "", ... 
et changer le format de la pj à envoyer, par en xls. ? 

doit-on écrire ou modifier l'adresse à la main ? 


exemple nouveau dossier de recherche :  document/ artistes / ndf / juillet / réglées / envoyées    ?? 


merci d'avance !!! 

voici une copie de la macro :


ub Envoyer()
Dim elm As Range
Dim rep As String
Dim Wsh As Object
Dim Sys As Object
    Set Wsh = CreateObject("WScript.Shell")
    Set Sys = Wsh.Environment("SYSTEM")
    rep = Wsh.SpecialFolders("MyDocuments") & "\mail\"
    Set Sys = Nothing
    Set Wsh = Nothing
    For Each elm In ActiveSheet.UsedRange.Columns("G").Cells
        If InStr(1, elm.Value, "@") > 0 Then
            Call env_courriel(elm.Value, [emet].Value, [objt].Value, rep & _
                elm.Offset(0, -6).Value & elm.Offset(0, -5).Value & [fich].Value & ".pdf" _
                , elm.Offset(0, 1).Value)
        End If
    Next elm
End Sub

Public Sub env_courriel(des, eme, obj, fic, mes)
Dim omg As Object
Dim msg As String
Dim tcl As Long
Dim t_p(), rep
    On Error GoTo fin
    Set omg = CreateObject("CDO.Message")
    With omg
        .Subject = obj           ' sujet
        .From = eme              ' adresse mail de l'expéditeur n'est pas obligatoire
        .To = des                ' Email du destinataire doit-être correct ici
        .TextBody = mes
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp." & Mid(eme, InStr(1, eme, "@") + 1)
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' 587 25 ?
            '----- Dans le cas où le serveur de mail demande une authentification
'            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
'            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = eme
'            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon mot de passe"
'             ----- avec   "SSL"
'            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
           '----------------
            .Update
        End With
        .AddAttachment (fic)
        .Send
    End With
    Set omg = Nothing
    MsgBox "Envoi courriel bien effectué"
fin:       ' si erreur on sort de la procédure : description de l'erreur survenue
 If Err.Number <> 0 Then MsgBox "Anomalie détectée" & vbLf & vbLf & Err.Description & fic
End Sub

gbinforme · Answer

Bonjour, 

 est-il possible de me faire une "traduction" de la macro svp ?
Les macros s'écrivent en anglais et je ne vois pas l'intérêt de la mettre en français car tu ne pourras pas t'en servir.

changer le format de la pj à envoyer, par en xls. ?

Je t'avais demandé quel était le suffixe et tu ne l'as pas précisé !!!!
Call env_courriel(elm.Value, [emet].Value, [objt].Value, rep & _
elm.Offset(0, -6).Value & elm.Offset(0, -5).Value & [fich].Value & ".xls" _
, elm.Offset(0, 1).Value) 

doit-on écrire ou modifier l'adresse à la main ?
Je t'ai mis les fonctions qui permettent de les retrouver en fonction de ce que tu as mentionné 
l'ensemble des PJ sont située dans mes document/ mail 
et maintenant
exemple nouveau dossier de recherche : document/ artistes / ndf / juillet / réglées / envoyées ??

Si c'est autrement qu'il faut faire faudrait une boule de cristal mais ce n'est plus de l'informatique. ;-)

voici une copie de la macro :
Des fois que je ne la connaisse pas ?
Pour la rendre lisible, il y a des balises appropriées sinon personne ne l'a lit ;-)

Lorsque l'on pose une question macro, il faut être très précis sinon c'est impossible qu'elle soit adaptée et manifestement ton organisation n'est pas celle que tu as évoquée. Si tu donnes des éléments précis et concrets, il sera possible de coller à ton problème.

Quelqu'un de doué en macro ??

4 réponses

Discussions similaires