Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Jacques,
une façon de faire :
Remplace "Feuil1" par le nom de la feuille que tu désires envoyer
'----------------------- Sub SendFeuille()
Worksheets("Feuil1").Copy SendKeys "E" With ActiveWorkbook .SendMail _ Recipients:="", _ Subject:="Here is the file" .Close False End With End Sub '-----------------------
Salutations!
"Jacques" a écrit dans le message de news: Bonjour,
Excel 97
J'ai un document qui contient 5 feuilles. Comment envoyer en pièce jointe uniquement la feuille numréo 3 ?
Merci de vos réponses
Bonjour Jacques,
une façon de faire :
Remplace "Feuil1" par le nom de la feuille que tu désires envoyer
'-----------------------
Sub SendFeuille()
Worksheets("Feuil1").Copy
SendKeys "E"
With ActiveWorkbook
.SendMail _
Recipients:="destinataire@fournisseur", _
Subject:="Here is the file"
.Close False
End With
End Sub
'-----------------------
Salutations!
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:uBvXunjJEHA.3944@tk2msftngp13.phx.gbl...
Bonjour,
Excel 97
J'ai un document qui contient 5 feuilles. Comment envoyer en pièce jointe
uniquement la feuille numréo 3 ?
Remplace "Feuil1" par le nom de la feuille que tu désires envoyer
'----------------------- Sub SendFeuille()
Worksheets("Feuil1").Copy SendKeys "E" With ActiveWorkbook .SendMail _ Recipients:="", _ Subject:="Here is the file" .Close False End With End Sub '-----------------------
Salutations!
"Jacques" a écrit dans le message de news: Bonjour,
Excel 97
J'ai un document qui contient 5 feuilles. Comment envoyer en pièce jointe uniquement la feuille numréo 3 ?
