Bonjour
Après de multiples recherche, je n'arrive pas a trouver un code qui me permet d'envoyer la feuille active en pièce jointe.
J'ai un fichier de base depuis lequel l'opérateur crée un feuille et l'enregistre dans le même dossier que celui de base (ci-dessous le code que j'utilise)
ActiveSheet.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Range("D14"), "yy-mm-dd") & " " & Range("g8") & " " & Format(Range("T14"), "0h00") & " " & Range("U1") & " " & Range("U2") & " " & Range("U3") & " " & Range("U4") & " " & Range("U5") & " " & Range("U6") & " " & Range("E15") & " " & Range("M14") _
& ".xls"
Mon problème est que souhaiterais créer un code pour envoyer ce fichier en pièce jointe.
et si c'est possible d'utiliser les valeurs contenues dans des cellules pour
Cellule A5 pour l'adresse du destinataire
Cellule A6 pour l'adresse de la copie
Cellule A7 pour l'objet
Cellule A8 le texte du mail
je suis désolé, j'en demande beaucoup, mais la je suis perdu
par avance merci de votre aide
Après de multiples recherche, je n'arrive pas a trouver un code qui me permet d'envoyer la feuille active en pièce jointe.
J'ai un fichier de base depuis lequel l'opérateur crée un feuille et l'enregistre dans le même dossier que celui de base (ci-dessous le code que j'utilise)
ActiveSheet.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Range("D14"), "yy-mm-dd") & " " & Range("g8") & " " & Format(Range("T14"), "0h00") & " " & Range("U1") & " " & Range("U2") & " " & Range("U3") & " " & Range("U4") & " " & Range("U5") & " " & Range("U6") & " " & Range("E15") & " " & Range("M14") _
& ".xls"
Mon problème est que souhaiterais créer un code pour envoyer ce fichier en pièce jointe.
et si c'est possible d'utiliser les valeurs contenues dans des cellules pour
Cellule A5 pour l'adresse du destinataire
Cellule A6 pour l'adresse de la copie
Cellule A7 pour l'objet
Cellule A8 le texte du mail
je suis désolé, j'en demande beaucoup, mais la je suis perdu
par avance merci de votre aide