> Tous les forums > Forum Bureautique
 envoi de mail par excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vieuxmonsieur
  Posté le 15/12/2008 @ 20:39 
Aller en bas de la page 
Astucien

bonsoir le forum,

dans cette macro, comment eviter l'alerte outlook à l'endroit en rouge, malgré la ligne précédente svp

Sub envoi_Feuille()
Application.ScreenUpdating = False
répertoireAppli = ActiveWorkbook.Path
Sheets("résultats").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "\Resultats.xls"
ActiveWindow.Close
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
Range("A11").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Value
msg.Subject = Range("A2").Value
msg.Body = Range("A5").Value & Chr(13) & Chr(13) & Range("A8").Value & Chr(13) & Chr(13)
msg.Attachments.Add Source:=répertoireAppli & "\Resultats.xls"
Application.DisplayAlerts = False
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

en vous remerciant chaleureusement

Publicité
Bérylion
 Posté le 15/12/2008 à 23:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut

faut ruser !!

cette alerte provient de OL et non de XL...

y faut juste ClickYes

vieuxmonsieur
 Posté le 16/12/2008 à 06:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour Bérylion, le forum,

y a-t-il moyen d'éviter ce click ?

en te remerciant

Bérylion
 Posté le 16/12/2008 à 08:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

re-
ya toujours moyen ! mais dans ce cas, attention l'usine à gaz... j'avais planché sur une solution pseudo-événementielle, qui simulait une suite de raccourcis claviers, à base de sendkeys, mais c'était loin d'être parfait si je retrouve ça, je te balance le code ; à ton aise ensuite de le tripoter comme du voudras, même si ça reste bien plus simple d'utiliser le pti soft cité plus haut. mais on fait comme on aime...

Modifié par Bérylion le 16/12/2008 08:31
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
79,99 €Alimentation modulaire Corsair RM650 80+ Gold à 79,99 €
Valable jusqu'au 23 Janvier

Cdiscount propose actuellement l'alimentation modulaire Corsair RM650 à 79,99 €. Cette alimentation de 650W est certifiée 80+ Gold et est garantie 10 ans. Entièrement modulaire, vous pourrez brancher uniquement les câbles (fournis) dont vous avez besoin. On la trouve ailleurs à partir de 100 €. 


> Voir l'offre
69,99 €Centrale vapeur Philips HI5910/99 2400W 4 bars à 69,99 €
Valable jusqu'au 27 Janvier

Cdiscount fait une vente flash sur la centrale vapeur Philips HI5910/99 2400W 4 bars qui passe à 69,99 €.  Effet pressing 180g - réservoir amovible de 1,1L - arrêt automatique - Détartrage intelligent - semelle céramique + Rase bouloche


> Voir l'offre
47,40 €SSD externe USB 3.1 PNY Elite CS1050 480 Go à 47,40 €
Valable jusqu'au 22 Janvier

RueDuCommerce fait une promotion sur le SSD externe USB 3.1 PNY Elite CS1050 480 Go qui passe à 47,40 € alors qu'on le trouve ailleurs à partir de 62,50 €. Ce SSD externe ultra compact (5,99 x 3,56 x 0,89 cm, 50 grammes) offre des vitesses allant jusqu'à 420 Mo/s en lecture et en écriture. 


> Voir l'offre

Sujets relatifs
Macro pour un envoi feuille excel par mail
Envoi e-mail depuis excel ?
Envoi direct feuille excel Mail-objet Formulaires
envoi mail
Envoi quotidien en VBA Outlook d'un mail
gestion @ mail dans fichier clients Excel
adresse Mail sur excel 2007
Envoi de mail avec outlook en passant par les contacts
Problème Envoi/Réception Mail
envoi mail alors que je n'ai rien à envoyer
Plus de sujets relatifs à envoi de mail par excel
 > Tous les forums > Forum Bureautique