Macro pour l'insertion d'un objet dans la cellule active

Bonjour à tous,

Je me permets de solliciter votre aide car je suis à la recherche d'une formule me permettant d'automatiser certaines tâches,
Objectif : Insérer de manière automatique un objet (mail outlook) dans Excel
Mon tableau excel regroupe différentes lignes, chaque ligne correspond à un client distinct,
J'aimerais pour chaque ligne pouvoir intégrer le mail de relance envoyé au client,

Bien que débutant en codage, je vois deux solutions :

Solution 1 (la plus pratique pour l'utilisateur) :
Pouvoir insérer le mail enregistré dans la cellule active, redimensionné et intégré dans la cellule active, en allant chercher automatiquement le dernier mail enregistré dans Mes Documents OU le mail enregistré au NOM.xls / dans lequel le NOM serait indiqué dans une cellule distincte de la cellule active

Solution 2 (la plus simple) :
Insérer le dernier mail enregistré dans MESDOCUMENTS, sans redimensionnement et non intégré dans la cellule active

Avez-vous des pistes ?

Merci pour votre aide,
Cordialement,
Joris

Bonjour Joris,

Ce Tableau Excel ne répertorie QUE les clients pour lesquels tu as effectué une relance, c'est bien cela ?

Bonjour,

Citation:

---

Envoyé par Joris54

Solution 1 (la plus pratique pour l'utilisateur) :
Pouvoir insérer le mail enregistré dans la cellule active, redimensionné et intégré dans la cellule active, en allant chercher automatiquement le dernier mail enregistré dans Mes Documents OU le mail enregistré au NOM.xls / dans lequel le NOM serait indiqué dans une cellule distincte de la cellule active

Solution 2 (la plus simple) :
Insérer le dernier mail enregistré dans MESDOCUMENTS, sans redimensionnement et non intégré dans la cellule active

---

Solution 3 (la plus pratique pour l'utilisateur, la plus simple, et la plus visuelle) :
- Enregistrer tous les mails concernés dans un même répertoire,
- Insérer un lien hypertexte, dans la cellule, menant vers le fichier mail concerné.

Citation:

---

Envoyé par révèr

Bonjour Joris,

Ce Tableau Excel ne répertorie QUE les clients pour lesquels tu as effectué une relance, c'est bien cela ?

---

Bonjour

merci pour ton retour

Oui mais il se peut que pour certaines lignes (certain client) il n'y ait pas de mail associé enregistré dans un fichier,

Citation:

---

Envoyé par pijaku

Bonjour,



Solution 3 (la plus pratique pour l'utilisateur, la plus simple, et la plus visuelle) :
- Enregistrer tous les mails concernés dans un même répertoire,
- Insérer un lien hypertexte, dans la cellule, menant vers le fichier mail concerné.

---

Bonjour
merci pour l'astuce,

Mais dans ce cas comment insérer les liens hypertexte de manière automatique ?
En fonction du nom du client / nom du mail ?

Pour insérer un lien hypertexte en VBA : https://www.developpez.net/forums/d1...xte-d-cellule/

Pour que ce soit automatique : https://docs.microsoft.com/fr-fr/off...rksheet.change

Citation:

---

En fonction du nom du client / nom du mail ?

---

Pour cela, je dirais : à toi de voir ce qui sera le mieux.

Bonjour,

Merci pour vos retours,
malheureusement je n'ai pas de connaissance en codage pour réussir avec les méthodes proposées,

Je suis donc passé par l'enregistrement de macro pour :
Insérer un fichier.msg en fonction de la valeur de la cellule sélectionné
L'objectif est de sélectionné une cellule ayant un nom X, puis lancer une macro pour insérer un fichier X.msg situé à un emplacement précis en tant qu'objet

J'ai alors fait l'enregistrement avec un nom donné puis modifié le nom du fichier pour qu'il soit égale à Activecell.value, avec une formule trouvée sur un forum j'arrive à ce résultat :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub testauto() ' ' testauto Macro '   ' Range("O14").Select ActiveSheet.OLEObjects.Add(Filename:= _ "C:\Users\VMQL3971\Documents\" & ActiveCell.Value & ".msg", Link:=False, DisplayAsIcon:= _ True, IconFileName:="C:\Windows\system32\packager.dll", IconIndex:=0, _ IconLabel:="").Select ActiveSheet.Shapes("Object 3").IncrementLeft 18.4090551181 ActiveSheet.Shapes("Object 3").IncrementTop 5.25 ActiveSheet.Shapes("Object 3").IncrementTop 15 ActiveSheet.Shapes("Object 3").IncrementTop -5.25 ActiveSheet.Shapes("Object 3").IncrementTop -15 ActiveSheet.Shapes("Object 3").IncrementTop 5.25 ActiveSheet.Shapes("Object 3").IncrementTop -5.25 Range("O17").Select End Sub Sub ATEST() ' ' ATEST Macro '   ' ActiveSheet.OLEObjects.Add(Filename:= _ ActiveCell.Value.msg, Link:=False, DisplayAsIcon:= _ False).Select End Sub

---

C'est à ce niveau que j'ai bidouillé et je ne suis pas sûr de l'exactitude :

Code:

---

"C:\Users\VMQL3971\Documents\" & ActiveCell.Value & ".msg"

---

Pourriez-vous m'aider s'il vous plaît ?
merci

Cordialement
joris