Bonjour
Toute nouvelle dans le monde le la VBA, j'ai fouillé les forums pour arriver à un résultat mais pas assez satisfaisant.
J'ai un bon de commande disponible à tous les personnels.
Je voudrais que celui-ci soit rempli et enregistrer dans un fichier avec un nom spécifique. ca j'ai réussi avec mon premier bouton et le code :
Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim nom As String
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Range("d4") & "_" & Range("c9")
ActiveWorkbook.SaveCopyAs Filename:= _
"C:\Users\lmolinari\Desktop\Test\" & Format(Date, "yyyy-mm-dd") & "_" & Range("d4") & "_" & Range("c9") & ".xlsm"
rep = MsgBox("Votre bon de commande est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub
Ensuite je voudrais que ce classeur soit envoyé en PJ par mail aux responsables pour la commande mais je bloque sur 3 points :
1. le fichier envoyé ne porte pas le nom donné avec le premier bouton
2. je n'arrive pas à envoyer à 2 destinataires
3. Je n'arrive pas à mettre un corps dans le mail genre " Bonjour, veuillez trouver le devis de (cellule C9) pour le fournisseur (cellule D4)."
Voici mon code actuel :
Private Sub CommandButton2_Click()
ActiveWorkbook.SaveAs Filename:= _
"\\172.16.0.240\Sub EnvoiMail()"
Application.DisplayAlerts = False
ThisWorkbook.SendMail Recipients:="choupinette@xxx.fr", _
Subject:="Demande de devis", _
ReturnReceipt:=True
End Sub
Un dernier point : comment être sure que le bouton choisira la boite mail active car sur mon PC j'utilise Outlook et en cliquant ça m'ouvrait Thunderbird (que j'ai du supprimer) !
J'ai mis le doc en PJ pour mieux comprendre.
Si quelqu'un arrive à me sauver je lui serais hyper reconnaissante !!!
Merci et bonne journée
Molly