Envoyer formulaire VBA en piece jointe

N

nanarou

Guest
Bonjour

Je cherche a récupérer le contenu de formulaires à remplir , que je propose sur internet, mais pas dans une base de données, mais sous la même forme que proposé sur internet.
La solution que j’ai trouvé est un fichier excel avec un bouton « envoyer » en Visual Basic A .Le problème de cette technique est qu’elle n’est pas compatible avec tout les PC, en effet après plusieurs testes j’ai remarqué que les PC avec excel du pack office 2000 ne marche pas (erreur 1004 en VBA).
Alors je me penche vers une autre technologie, mais je vois pas très bien comment m’y prendre pour recevoir ça sous la forme proposé sur le net et dans ma boite de courrier électronique.

Merci beaucoup pour votre aide
 
N

nanarou

Guest
PS:

Voici le code sur mon bouton d'envoi (ça marche donc sur toutes les versions de excel sauf la version 2000).


Private Sub CommandButton1_Click()
Dim CheminSource As String

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Windows\temp\tmp_3201.xls"
ActiveWorkbook.SaveAs "C:\Windows\temp\tmp2_3201.xls"

Call MailEnvoi
MsgBox "Votre 3201 a bien été envoyé à la CPAM", vbInformation, "CONFIRMATION"

Kill ("C:\Windows\temp\tmp_3201.xls")

End Sub

Sub MailEnvoi()
Dim Pj As String

Pj = "C:\Windows\temp\tmp_3201.xls"
Set objEmail = CreateObject("CDO.Message")
objEmail.To = "cpam07@hotmail.com"
objEmail.Subject = "Imprimé 3201"
objEmail.Textbody = ""

If Pj <> "" Then objEmail.AddAttachment Pj
objEmail.Send

Set objEmail = Nothing
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088