LuckyGohst
XLDnaute Nouveau
Bonjour le forum,
Quelqu'un sait il pourquoi celui qui réceptionne mon fichier n’a plus les module et userform
Ci joint le code qui envoye mon fichier !
ben si en faite il copie mon onglet, mais peut il copier le classeur qui est ouvert au moment de l'envoi ( pas tres claire)
Private Sub Envoyer1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("1").Copy
Set Wbk = ActiveWorkbook
Wbk.SendMail "luc.@.com", " Formulaire test"
Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub
Quelqu'un sait il pourquoi celui qui réceptionne mon fichier n’a plus les module et userform
Ci joint le code qui envoye mon fichier !
ben si en faite il copie mon onglet, mais peut il copier le classeur qui est ouvert au moment de l'envoi ( pas tres claire)
Private Sub Envoyer1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("1").Copy
Set Wbk = ActiveWorkbook
Wbk.SendMail "luc.@.com", " Formulaire test"
Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub