Pourquoi

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
 

tototiti2008

XLDnaute Barbatruc
Re : Pourquoi

Bonjour LuckyGohst,

Si possible, à l'avenir, choisit un thème plus clair pour ton fil.
Ton code ne copie que la feuille "1" dans un nouveau classeur. Donc seul le code VBA qui se trouve dans la feuille "1" sera joint au fichier.
Il faudrait joindre tous le classeur, ou supprimer les feuilles du classeur dont tu n'as pas besoin.
 

Discussions similaires

Réponses
2
Affichages
163

Statistiques des forums

Discussions
312 895
Messages
2 093 383
Membres
105 714
dernier inscrit
POKITO