cerhu > microsoft.* > microsoft.vb

valextel (23/02/2018, 16h57)
Bonjour à toutes et à tous,

voici ma problématique:

à partir d'Excel, je cherche à envoyer un mail avec une pièce jointe dont l
chemin d'accès est présent dans une cellule (par exemple A1).

j'en suis là:
mon mail est créé avec ma plage de cellule à envoyer, mais je ne parviens pas
utiliser le chemin d'accès de la pièce jointe.
C'est certainement très simple mais je sèche....
merci d'avance pour votre aide

Private Sub CommandButton1_Click()
ActiveSheet.Range("A7:G43").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
.Item.To = Range("I1").Value
.Item.Subject = "SUJET"
.Item.Attachments.Add "C:FILE.PDF"
End With
End Sub
valextel (26/02/2018, 15h56)
Le vendredi 23 Février 2018 à 15:57 par valextel :
[..]
> ActiveSheet.Range("A7:G43").Select
> ActiveWorkbook.EnvelopeVisible = True
> With ActiveSheet.MailEnvelope
> .Item.To = Range("I1").Value
> .Item.Subject = "SUJET"
> .Item.Attachments.Add "C:FILE.PDF"
> End With
> End Sub

quand on cherche on trouve ...... tout seul
la solution était tout simplement d'ajouter la commande Range comme ceci.

.Item.Attachments.Add Range("B46").Value

Pour être complet et que cela serve à quelqu'un d'autre, ma deuxièm
problématique était de récupérer le nom d'un fichier issu d'une formule (soi
nom de fichier soit 0).
en intégrant dans le code un If IsNumeric on sait envoyer le fichier ou non. te
que:

If IsNumeric(Range("B46")) Then
Else
..Item.Attachments.Add Range("B46").Value

Bonne chance à tous dans vos recherches.
Discussions similaires
Envoyer depuis Access un mail avec pièce jointe

envoyer un mail avec une pièce jointe

Erreur d'execution 91 Set miEmail = olApp.CreateItem(olMailItem) il me renvoie une valeur 0 Envoi mail a partir d'acces avec piece jointe

macro pour envoyer un mail avec le document en pièce jointe


Fuseau horaire GMT +2. Il est actuellement 19h21. | Privacy Policy