Envoi document Excel en PDF par mail

Bonjour Tout le monde

J'ai un petit soucis avec ma macro qui envoie ma feuille "commande" par mail.

Alors elle me l'enregistre en pdf.

Lorsque j'appuis sur le bouton mail elle ouvre ma boite boite mail et on voit

que la pièce jointe en PDF est bien ma feuille "commande".

Ce que j'aurai souhaité c'est qu'au mome ou j'appuis le bouton mail,

qu'elle me laisse choisir le destinataire dans la liste en page données,

ou alors qu'elle le prenne en cellule "G3" de la feuille "commande",

qui est reliée via une "rechercheV au fournisseur" cellule "I2".

Alors est ce quelqu'un de vous pourrait bien m'aider à mettre ça en place SVP.

Je vous Remerci d'avance

Bonjour Rubis5460,

Dans la boucle "With m" vous pouvez paramétrer votre mail à votre convenance,

Voici toutes les propriétés disponibles (colonne de gauche) :

https://docs.microsoft.com/fr-fr/office/vba/api/outlook.mailitem.actions

Pour répondre à votre problématique:

Destinataire = Range("G3")
  With m
    .to = Destinataire
    .Attachments.Add ActiveWorkbook.Path & "\" & Nom
    .Display
  End With

Mais par exemple, on peut imaginer personnaliser automatiquement l'object du mail de cette façon:

  Destinataire = Range("G3")
  Objet = "Bon de commande numéro: " & Range("G4")
  With m
    .to = Destinataire
    .Subject = Objet
    .Attachments.Add ActiveWorkbook.Path & "\" & Nom
    .Display
  End With

A+

Bonjour Gabin37,

Merci beaucoup pour votre investissement dans mon problème.

Cela fonctionne très bien. Et cela me donne en même temps beaucoup de lecture et de choix pour la suite.

Encore une fois Merci et Bonne journée.

Cdt Rubis54

Re Gabin37

je reviens vers vous car il y a un petit soucis.

Ce matin quand j'ai réceptionné votre fichier, tout fonctionnait très bien sur mon PC et tout à l'heure j'ai mis la même macro dans un autre fichier et il m'affiche une erreur que vous pouvez voir sur la pièce jointe!

Pourriez vous m'indiquer ce qu'il faut changer SVP.

Merci d'avance

Cdt Rubis54

Re,

Cette erreur est survenue au changement de fichier ou est-ce qu'il y a eu un changement de PC ? Il semblerait que la déclaration de variable soit imposée.

A tester donc en déclarant toutes les variables au début:

Dim olApp As Outlook.Application
Dim m As Outlook.MailItem
Dim Objet As String
Dim Destinataire As String

Re Gabin37,

Merci ça fonctionne . Allez savoir !

Votre fichier de ce matin je l'ai sur mon pc et j'ai copier la macro dans un dossier que j'ai sur clé USB et que je fais fonctionner uniquement sur clé.

Est ce peut-être cela ?

Est ce peut-être cela ?

Je ne sais pas, je trouverais ca même surprenant.

Pour moi c'est uniquement lié à la configuration de Microsoft Visual Basic pour Applications, donc lié au PC

Peut-être que des utilisateurs plus expérimentés sauront nous expliquer le pourquoi du comment

Re Gabin37

oui effectivement c'est bizarre !

Mais bon, pour l'instant ça fonctionne.

On verra bien si quelqu'un peut se pencher sur ce problème. ou alors c'est des versions Excel différentes ?

A+ et Merci encore