yannlehardi
XLDnaute Nouveau
Bonjour tout le monde, je souhaite que les utilisateurs du fichier excel que je viens de créer puisse me renvoyer ce fichier en un simple clic sur un bouton. Après de nombreux excès infructueux je n'ai pas trouvé les codes vba pour faire cela.
J'avais par exemple essayé :
Private Sub Yann_email()
With ThisWorkbook
.HasRoutingSlip = False
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("adresse@destinataire")
.Subject = "Retour fichier incontournables"
.Message = "Preum's?"
.ReturnWhenDone = False
End With
.Route
End With
End Sub
Mais sans succès...
Avez vous une idée par le plus grand des hasards?
J'avais par exemple essayé :
Private Sub Yann_email()
With ThisWorkbook
.HasRoutingSlip = False
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("adresse@destinataire")
.Subject = "Retour fichier incontournables"
.Message = "Preum's?"
.ReturnWhenDone = False
End With
.Route
End With
End Sub
Mais sans succès...
Avez vous une idée par le plus grand des hasards?