Pourquoi

[LuckyGohst]

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]

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.

 

[LuckyGohst]

Re : Pourquoi

Je vais essayer en suppriment les feuilles, car je ne peut pour joindre le fichier car je pense qu’il faut définir un chemin d’accès et là je ne peut pas
merci beaucoup

 

[tototiti2008]

Re : Pourquoi

Comment ça ?

Private Sub Envoyer1_Click()
Dim Wbk As Workbook
Set Wbk = thisworkbook
Wbk.SendMail "luc.@.com", "Formulaire test"
End Sub

Je n'ai sans doute pas compris mais je ne vois pas le problème....

 

[LuckyGohst]

Re : Pourquoi

C’est moi qui ne suis pas doué, je te remercie cela marche très bien avec « Set Wbk = thisworkbook »

Merci tototiti2008