comment crée un lien qui retourne le document?

[Adrien]

Bonjour,

j'aimerai envoyer un tableau excel en piece jointe à mes clients par mail, où ils réponderont dessus... et à la fin de la page excel en clickant sur le lien, le tableau sera renvoyer sur ma boite mail?

Est-ce possible?

merci beaucoup par avance...

 

[G.David]

Salut
j'avais fait ça mais il y a quelques problème avec certains PC je n'ai pas trouvé d'ou celà venait.
ici le fichier formulaire cree un second fichier portant le nom 'ENQ_nom_client.xls' qui ne contient qu'un tableau d'une ligne
un autre classeur est chargé après coup de collationner les résultats pour analyse

sub envoi()
Dim nom_fichier As String
Dim nom_cellule As String
Dim msg1 As String
Dim msg2 As String
Dim msg3 As String
Dim t As Integer
If Range('f2').Value = 1 Then
    msg1 = 'Vous devez renseigner la case société'
    msg2 = ' creation et enregistrement du fichier réponse'
    msg3 = 'le programme va ouvrir un envoi par mail ;vous devez recevoir une mise en garde de votre systeme'
ElseIf Range('f2').Value = 2 Then 'Anglais
    msg1 = 'message anglais 1'
    msg2 = 'message anglais 2'
    msg3 = ' message anglais 3'
ElseIf Range('f2').Value = 3 Then 'Allemand
    msg1 = 'Die Zelle ' Firma ' ist einzutragen.'
    msg2 = 'Erstellung und Einspeichern der Antwortsdaten'
    msg3 = 'Das Programm wird einen E-mail für die Antwort generieren; Sie sollten eine Warnung Ihres Systemes erhalten.'
End If
If Range('e10').Value = '' Then
MsgBox msg1
Exit Sub
Else
nom_cellule = Range('e10').Value
For t = 1 To Len(nom_cellule)
If Right(Left(nom_cellule, t), 1) = Chr$(32) Then
nom_fichier = nom_fichier + '_'
Else
nom_fichier = nom_fichier + Right(Left(nom_cellule, t), 1)
End If
Next
nom_fichier = 'ENQ_' & nom_fichier & '.xls'
MsgBox msg2
Workbooks.Add
ActiveWorkbook.SaveAs (nom_fichier)
Workbooks('Enquete.xls').Activate
'===========================================================
Range('J7:J20').Select
Selection.Copy
Windows(nom_fichier).Activate
Range('B1').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Workbooks('Enquete.xls').Activate
societ = Range('e10').Value
blabla = Range('c132').Value
Windows(nom_fichier).Activate
Cells(1, 1).Value = societ
Cells(1, 15) = blabla
'===========================================================
MsgBox msg3
Workbooks(nom_fichier).HasRoutingSlip = True
With Workbooks(nom_fichier).RoutingSlip
    '.Delivery = xlOneAfterAnother
    .Recipients = 'mon.adresse@fai.fr'
    .Subject = 'Retour enquete'
    .Message = 'Voici le classeur en retour a enregistrer dans le dossier d'enquete du service commercial'
End With
Workbooks(nom_fichier).Route
End If
End Sub

a partir de la derniere partie c'est le truc qui marche mais pas à tous les coups
si cela peut t'aider
Cordialement
G.David