XL 2013 Aide macro, envoi mail

[Kaizers]

Bonjour à tous

Comme à chaque fois je fais appel à la communauté, car, comme à chaque fois vous me trouvez une solution

J'ai un fichier que je veux envoyer par mail depuis un bouton

Le fichier : SP01_BRUT.xls
Le chemin : Q:\CDG_DIR_OP\

J'aimerai qu'en cliquant sur le bouton, que VBA me mette le fichier en PJ sur Thunderbird.

Je procède ainsi car j'ai 50 fichiers à gérer, et cette action me permettrait d'envoyer à la volé à qui je veux.

merci pour votre aide

 

[Lone-wolf]

Bonjour Kaizers

Pour commencer, sur une feuille vierge, liste les classeurs sans l'extension; ensuite définir un nom (fichiers par ex.). Dans la feuille principale, en N2 par ex., Données > Validation de données > Liste et tu met =fichiers, Idem pour les destinataires. Ensuite, un test avec cette macro trouvée sur Developpez.net.

Sub Mail()
Dim destinataires$, sujet$, fichierjoint$, chemin$, nom$, derl&, i&


  With Feuil1
  derl = .Cells(Rows.Count, "B").End(xlUp).Row
  nom = .Range("n2").Value & ".xls"  ' À adapter
  For i = 2 To derl
  destinataires = destinataires & .Cells(i, "B")
  Next i
  End With

  sujet = " fichiers"
  body = "Veuillez trouver ci-joint fichier des données ; Cordialement"
  chemin = "Q:\CDG_DIR_OP\"

  fichierjoint = chemin & nom
  'Ici peut-être faut rajouter  .exe
  strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
  strcommand = strcommand & " -compose " & "to='" & destinataires & "'"
  strcommand = strcommand & "," & "subject=" & sujet & ","
  strcommand = strcommand & "body=" & body
  strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
  Call Shell(strcommand, vbNormalFocus)
End Sub

 

[Eternel_Lucifer]

Bonjour cher tous,
Je suis débutant en VBA, et je voudrais envoyer des SMS à des collègues de mon service en utilisant une macro écrite en VBA à p.
les n° de téléphone sont dans fichier excel.
je demande à tous de m'aider en me proposant une macro complète.

 

[Eternel_Lucifer]

Bonjour cher tous,
Je suis débutant en VBA, et je voudrais envoyer des SMS à des collègues de mon service en utilisant une macro écrite en VBA à partir de mon ordinateur de bureau. Win8 office 2013
les n° de téléphone sont dans fichier excel.
je demande à tous de m'aider en me proposant une macro complète.