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
Philippe.R
Bonjour, Ceci : http://www.excelabo.net/xl/sortir.php#fichierjoint ou encore : http://www.excelabo.net/xl/sortir.php#xloutlook pourraient peut être faire l'affaire -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Papounet" a écrit dans le message de news: 421135ad$0$44081$
Qui peut m'aider à créer un macro permettant d'expédier un fichier joint via microsoft outlook ?
Merci d'avance Guy
Bonjour,
Ceci :
http://www.excelabo.net/xl/sortir.php#fichierjoint
ou encore :
http://www.excelabo.net/xl/sortir.php#xloutlook
pourraient peut être faire l'affaire
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Papounet" <enigma.guy@biz.tiscali.be> a écrit dans le message de news:
421135ad$0$44081$5fc3050@dreader2.news.tiscali.nl...
Qui peut m'aider à créer un macro permettant d'expédier un fichier
joint via microsoft outlook ?
Bonjour, Ceci : http://www.excelabo.net/xl/sortir.php#fichierjoint ou encore : http://www.excelabo.net/xl/sortir.php#xloutlook pourraient peut être faire l'affaire -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Papounet" a écrit dans le message de news: 421135ad$0$44081$
Qui peut m'aider à créer un macro permettant d'expédier un fichier joint via microsoft outlook ?
Merci d'avance Guy
news.microsoft.com
salut essai ça Sub Envoi() ThisWorkBook.Sheets("NomFeuille").copy Applicatio.WorkBooks(2).Activate Application.CommandBars.ActiveMenuBar.Enabled=True SendKeys("%FYD") End Sub
salut gaston
salut
essai ça
Sub Envoi()
ThisWorkBook.Sheets("NomFeuille").copy
Applicatio.WorkBooks(2).Activate
Application.CommandBars.ActiveMenuBar.Enabled=True
SendKeys("%FYD")
End Sub
salut essai ça Sub Envoi() ThisWorkBook.Sheets("NomFeuille").copy Applicatio.WorkBooks(2).Activate Application.CommandBars.ActiveMenuBar.Enabled=True SendKeys("%FYD") End Sub